vb的操作题分析和总结.docxVIP

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 = x Else = 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() = End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1； 再画二个命令按钮，名称分别为C1、C2，标题分别为隐藏、 显示（如图所示）。请编写适当的事件过程，使得在运行时，如果单击隐藏按钮，则文本框消失，而如果单击显示 按钮，则文本框显示出来。程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为，窗体文件 名为。 隐藏：=false 显示：=true 在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时， 如果在Text1中每输入一个字符，则显示一个*，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为，窗体文件 名为。 答案：将 Text1 的文本框的 PasswordChar 属性为*。 Private Sub Text1_Change() = End Sub （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 在考生文件夹下有一个工程文件，相应的窗体文件为， 此 外还有一个名为的文本文件，其内容如下： 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 程序运行后，单击窗体，将把文件中的数据输入到二维 数组 Mat 中，在窗体上按5行、5列的矩阵形式显示出来，并输出 矩阵左上-右下对角线 上的数据，如图所示。 在窗体的代码窗口中，已给出了部分程序，这个程序 不完整，请把它补充完整，并能正确运行。要求： 去掉程序中的注释符，把程序中的 改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的 文件按原文件名存盘。 解题方法： 打开中的Form1窗体，打开代码窗口，修改后的代码如下： Option Base 1 Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(M, N) Dim i, j Open \ For Input As #1 For i = 1 To N For j = 1 To M Input #1, Mat(i, j) Next j Next