vb的操作题(有答案)

时间:2022-05-03 22:07:51 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
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 = a(i)

End If


ElseIf a(i)

< y Then

y = a(i)

End If Next

If Option1.Value = True Then Label2.Caption = x Else

Label2.Caption = y End If End Sub

2.2)在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List1的列表框,并在属性窗口中设置列表项的 值分别为12345。将窗体的标题设为"图形控件"。单击列表框中 的某一项,则将所选的值作为形状控件的填充参数。例如,选择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


再画二个命令按钮,名称分别为C1C2标题分别为"隐藏""显示"(如图所示)。请编写适当的事件过程,使得在运行时,如果单击"隐藏"按钮,则文本框消失,而如果单击""按钮,则文本框显示出来。程序中不得使用任何变量。 *注意:

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



隐藏:text1.visible=false 显示:text1.visible=true



4. 在窗体上画二个文本框,名称分别为Text1Text2。请设

置适当的控件属性,并编写适当的事件过程,使得在运行时,如果在Text1中每输入一个字符,则显示一个"*",同时在Text2中显示输入的内容(如图所示)。程序中不得使用任何变量。 *注意:

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


本文来源:https://www.wddqw.com/doc/59cf0594daef5ef7ba0d3c46.html