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的列表框,并在属性窗口中设置列表项的 值分别为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。 本文来源:https://www.wddqw.com/doc/59cf0594daef5ef7ba0d3c46.html