admin 管理员组文章数量: 1087139
2024年4月22日发(作者：前端测试培训)
vb的操作题（有答案）
第一篇：vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件，其中的窗体如图
所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中
“查找最大值”（或“查找最小值”）单选按钮，再单击“查找”按
钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。
请去掉程序中的注释符，把程序中的 ？改为正确的内容。
注意：
考生不得修改窗体文件中已经存在的程序。最后把修改后的文件
按原文
件名存盘。
Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10
If = True Then If a(i)x Then
x = a(i)End If ElseIf a(i)
< y Then y = a(i)End If Next If = True Then
n = x Else n = y End If End Sub 2.（2）
在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗
口中将其
设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置
列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。
单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例
如，选择3，则形状
控件中被竖线填充。如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时
必须存
放在考生文件夹下，工程文件名为，窗体文件名为
。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：
透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。
List控件的Click事件过程为： Private Sub List1_Click()
yle = End Sub 3.（1）在名称为Form1
的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别
为C1、C2，标题分别为“隐藏”、“显示”（如图所示）。请编写适
当的事件过程，使得在运行时，如果单击“隐藏”按钮，则文本框消
失，而如果单击“显示”按钮，则文本框显示出来。程序中不得使用
任何变量。*注意：
存盘时必须存放在考生文件夹下，工程文件名为，窗体
文件名为。
隐藏：e=false 显示：e=true
4.在窗体上画二个文本框，名称分别为Text1、Text2。请设置适
当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1
中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内
容（如图所示）。程序中不得使用任何变量。*注意：
存盘时必须存放在考生文件夹下，工程文件名为，窗体
文件名为。答案：将Text1的文本框的PasswordChar属性为
“*”。Private Sub Text1_Change() = End
Sub 5.（1）在考生文件夹中有工程文件及其窗体文件
，该程序是不完整的，请在有？号的地方填入正确内容，然
后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改
变文件名和文件夹。
本题描述如下：在窗体上有一个列表框，名称为List1，一个文本
框，名称为Text1，和一个命令按钮，名称为 C1，标题为“复制”。
要求程序运行后，在列表框中自动建立四个列表项，分别为
“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中
的一项，则单击“复制”按钮时，可以把该项复制到文本框中（如图
所示）。
Private Sub Command1_Click()Dim i As Integer For i = 0 To 3
= List1 Next i End Sub 6 在考生文件夹下有一个工程文件
版权声明：本文标题：vb的操作题(有答案) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1713720513a648452.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论