vb的操作题(有答案)

1.(1)在考生文件夹中有工程文件sj126.vbp,其中的窗体 如图所示。

程序刚运行时,会生成一个有10个元素的整型数 组。

若选中"查找最大值"(或"查找最小值")单选按钮,再 单击"查找"按钮,则找出数组中的最大值(或最小值),并 显示在标签Label2中。

请去掉程序中的注释符,把程序中 的 ?改为正确的内容。

注意: 考生不得修改窗体文件中已经存在的程序。

最后把 修改后的文件按原文 件名存盘。

Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i) > x Then x End If = a(i)

ElseIf a(i) < y Then y End If Next = a(i) If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.(2)在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口其 设置为圆形。

画一个名称为List1的列表框,并在属性窗口中设置列表项的 值分别为1、2、3、4、5。

将窗体的标题设为"图形控件"。

单击列表框中 的某一项,则将所选的值作为形状控件的填充参数。

例如,选择3,则形状 控件中被竖线填充。

如图所示。

要求: 程序中不得使用变量,每个过程中只能写一条语句。

存盘时必须存 放在考生文件夹下,工程文件名为sj107.vbp,窗体文件名为sj107.frm。

在 Shape 控件中,可以用 FillStyle 属性设置图形的填充图案,0:透明,2:虚线,3: 点线,4:点划线,5:双点划线,6:内实线。

List控件的Click过程为: Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3. (1) 在名称为Form1的窗体上画一个文本框, 名称为Text1;

再画二个命令按钮,名称分别为C1、C2,标题分别为"隐藏"、 "显示"(如图所示)。

请编写适当的过程,使得在运行 时,如果单击"隐藏"按钮,则文本框消失,而如果单击"显 示"按钮,则文本框显示出来。

程序中不得使用任何变量。

*注意: 存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp, 窗体文件名为sjt3.frm。

隐藏:text1.visible=false 显示:text1.visible=true 4. 在窗体上画二个文本框,名称分别为Text1、Text2。

请设 置适当的控件属性, 并编写适当的过程, 使得在运行时, 如果在Text1中每输入一个字符,则显示一个"*",同时在 Text2中显示输入的内容(如图所示)。

程序中不得使用任 何变量。

*注意: 存盘时必须存放在考生文件夹下,工程文件名为sjt4.vbp, 窗体文件名为sjt4.frm。

答案:将 Text1 的文本框的 PasswordChar 属性为"*"。

Private Sub Text1_Change() Text2.Text = Text1.Text End Sub 5. (1)在考生文件夹中有工程文件wy69.vbp及其窗体文件 wy69.frm,该程序是不完整的,请在有?号的地方填入正确 内容,然后删除?及所有注释符(即'号)但不能修改其他 部分。

存盘时不得改变文件名和文件夹。

本题描述如下:在窗体上有一个列表框,名称为List1,一 个文本框,名称为Text1,和一个命令按钮,名称为 C1,标 题为"复制"。

要求程序运行后,在列表框中自动建立四个列表项,分别为 "Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的 一项, 则单击"复制"按钮时, 可以把该项复制到文本框中 (如 图所示)。

Private Sub Command1_Click() Dim i As Integer For i = 0 To 3 Text1.Text = List1 Next i End Sub 6 在考生文件夹下有一个工程文件sj31.vbp,相应的窗 体文件为sj31.frm,此 外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后,单击窗体,将把文件datain.txt中的数据 输入到二维数组 Mat 中,在窗体上按5行、5列的矩阵形式显示出来,并输出 矩阵左上-右下对角线 上的数据,如图所示。

在窗体的代码窗口中,已给出 了部分程序,这个程序 不完整,请把它补充完整,并能正确运行。

要求: 去掉程序中的注释符,把程序中的 ? 改为正确的内 容,使其实现上述功

能,但不能修改程序中的其他部分。

最后把修改后的 文件按原文件名存盘。

解题方法: 打开sjt5.vbp中的Form1窗体,打开代码窗口,修改后的代 码如下: Option Base 1 Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(M, N) Dim i, j Open App.Path & "\" & "datain.txt" For Input As #1 For i = 1 To N For j = 1 To M Input #1, Mat(i, j) Next j Next i Close #1

  • vb操作题答案

    vb操作题答案

    vb操作题答案...

    贡献者:网络收集
    485945
  • vb操作选择题及答案

    vb操作选择题及答案

    vb操作选择题及答案...

    贡献者:网络收集
    937209
  • VB操作题

    VB操作题

    VB操作题...

    贡献者:网络收集
    778192
  • vb24题操作答案

    vb24题操作答案

    vb24题操作答案...

    贡献者:网络收集
    886491
  • VB作业第三章习题答案

    VB作业第三章习题答案

    VB作业第三章习题答案...

    贡献者:网络收集
    872222
  • 2013计算机二级vb操作题答案-题库版(二)

    2013计算机二级vb操作题答案-题库版(二)

    2013计算机二级vb操作题答案-题库版(二)...

    贡献者:网络收集
    281279
  • VB上机操作练习题

    VB上机操作练习题

    VB上机操作练习题...

    贡献者:网络收集
    955375
  • vb作业题1—参考答案

    vb作业题1—参考答案

    vb作业题1—参考答案...

    贡献者:网络收集
    144982
  • 200901-VB操作题

    200901-VB操作题

    200901-VB操作题...

    贡献者:网络收集
    851432
  • VB国家计算机考试操作题

    VB国家计算机考试操作题

    VB国家计算机考试操作题...

    贡献者:网络收集
    636203
  • 网友在搜
    大宋之风流才子燃文 将夜 燃文 江湖第一高手 重生红孩儿 重生二代富商 风雨神州之纵横天下 极品暧昧笔趣阁 极品男人下载 灵罗戒燃文 制霸空权笔趣阁 世界十大名狗 mm走光 yy直播出事 种子 曲妙玲 1943年费城实验 狼人影像 国产三级 韩国av女星 奇闻怪事网 北京鬼楼之谜 好日子香烟价格表图 兰燕尸体 解剖图 金钱鳘 中国古代神话传说 嘉靖皇帝 隋炀帝 南北朝历史 刘据 贾环 萧何简介 封狼居胥 敬事房 秦国名将 邓演达 花与蛇5 大宋提刑官2剧情 小坂惠 水原めい 法政英雄 澳门街剧情 oh必胜奉顺英剧情 安城アンナ 仓知莉花 一帘幽梦剧情 窃听风云1剧情 3d肉蒲团剧情 恩替卡韦片价格 一药 虹膜异色症有什么危害 强生稳豪血糖仪试纸 宁红减肥茶 阿莫西林胶囊能吃吗 黑脸娃娃危害 脏腑功能失调 乙肝解毒胶囊怎么样 美容用具 多效修复防晒霜

    声明:本站内容部分源于网络转载,出于传递更多信息之目的,并不意味着赞同其观点或证实其描述。文章内容仅供参考,请咨询相关专业人士。

    如果无意之中侵犯了您的版权,或有意见、反馈或投诉等情况, 联系我们:点击这里给我发消息

    Copyright © 2016 All Rights Reserved 智诚知识网 手机站