VB实验操作题集连学习答案.docx

操作题一1.在学生文件夹中有工程文件sj126.vbp其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中查找最大值（或查找最小值）单选按钮，再单击查找按钮，则找出数组中的最大值（或最小值）并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的内容。注意：学生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。Private Sub Command1_Click() Dim A(1 To 10) As Integer Dim i As Long, s As String For i = 1 To 10 A(i) = Int(Rnd * 1000) Next i 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 NextIf Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End IfEnd Sub2.在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为图形控件。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如选择3则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时放在学生文件夹下，工程文件名为sj107.vbp窗体文件名为sj107.frm。 在Shape控件中，在Shape中选3-circle,在List1的列表框中List输入值分别为1、2、3、4、5。可以用FillStyle属性设置图形的填充图案1：透明2：水平线3：竖线4：右斜线5：左斜线。 List控件的Click事件过程为：在代码窗口录入： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub3.在名称为Form1的窗体上画一个文本框名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为隐藏、显示（如图所示）。请编写适当的事件过程，使得在运行时，如果单击隐藏按钮，则文本框消失，而如果单击显示按钮，则文本框显示出来。程序中不得使用任何变量。 *注意： 存盘时放在学生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 在命令按钮的caption中输入隐藏、显示。 隐藏：text1.visible=false显示：text1.visible=true在代码窗口录入：Private Sub Command1_Click()text1.visible=falseEnd SubPrivate Sub Command2_Click()text1.visible=trueEnd Sub4. 在窗体上画二个文本框名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个*同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。 *注意 存盘时放在学生文件夹下，工程文件名为sjt4.vbp窗体文件名为sjt4.frm。 答案是将Text1的文本框的PasswordChar属性为*。 Private Sub Text1_Change() Text2.Text = Text1.Text End Sub5. 在学生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为复制。 要求程序运行后，在列表框中自动建立四个列表项，分别为Item1、Item2、Item3、Item4如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到