国家二级VB机试（上机操作）模拟试卷356
基本操作题
1.(1)在名称为Form1的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件\\
(1)步骤1：新建一个“标准EXE\\
解析：(1)本题只需按要求画出控件和菜单并设置其相关属性即可。
(2)本题需在窗体的Click事件过程中，编写一行InputBox语句，其中Prompt参数值为“请输入”，Title参数值为“等级考试”，Default参数值为“Basic”。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作：
1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中；
2)从名称为List1的列表框中选中一项(如图3．139所示)。
3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
(1)步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：
Private Sub Command2_Click()
Dim k As Integer，i1，i2 As Integer
i1=a(1)：i2=a(1)
For k=2 To 100
If a(k) >i1 Then
i1 =a(k)
End If
If a(k) <i2 Then
i2 =a(k)
End If
Next k
If List1．Selected(0)=True Then
Text1．Text=i1 – i2
End If
If LiStl．Selected(1)=True Then
Text1．Text=i1+i2
End If
If LiStl．Selected(2)=True Then
Text1．Text=i1*i2
End If
步骤2：按键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。
步骤3：单击窗体右上角的关闭按钮以结束程序。
步骤4：按要求将文件保存至考生文件夹中。
(2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
For k=1 To 5
Label1(k-1)．ViSible=True
Shape1(k-1)．Height=s(k)
a=Line1．Y1
步骤2：按要求将文件保存至考生文件夹中。
解析：(1)本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值，然后依次从第二个元素开始向后循环，对每一个数组元素都加以判断，若其比最大值还大，则其成为新的最大值：若其比最小值还小，则其成为新的最小值。这样循环结束后可以得到数组的最大值和最小值。
接下来判断列表框中选中的是哪一项然后执行对应计算，并输出结果。
(2)“输入5个数据”按钮的单击事件过程中，需要连续输入5个数据并且存放到数组s中，因此k应该由1循环到5，在循环中将输入的数据保存到数组s中并且将其赋值给五个标签组成的控件数组，随后将标签的Visible属性设置为True以便显示出来。
“画直方图”按钮的单击事件过程中，源程序用For循环来依次计算每一个形状控件的高度，该高度应该为对应数组元素的值；然后计算该直方图的Top属性值(应为水平直线的Y1或Y2属性值减去直方图的高度)，最后显示该直方图(通过设置其Visible实现)。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．tim，此外还有一个名为datain．txt的文本文件，其内容如下：
32437658281298573 142536475869713243546576879805937
程序运行后单击窗体，将把文件datain．txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图3．126所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
步骤1：打开本题对应工程文件sjt5．vbo。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Dim Mat (M， N) As Integer
Open App．Path &\\
解析：本题源程序的大致设计思路是：程序运行后单击窗体，则打开数据文件datain．txt并从中读取数据，并依次存入二维数组Mat(下界为1，上界为5)的各元素中，故第一个?处是定义数组，应改为：Mat(M，N)As Integer：第二个?处是指明打开文件的方式，应改为：For Input：第三个?处是将数据文件中的数据读入并赋值给数组元素，应改为：Input #1，Mat(i，i)；然后用一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中第2维下标为2和第2维下标为4的元素对应(即第1维下标一致)交换值，交换值时引入一个中间变量t，故第4个?处是将中间变量t的值赋给数组元素Mat fi，4)，应改为：Mat(i，4)=t。最后将交换后的数组Mat中的数据，再按5行、5列的矩阵形式在窗体上显示出来。
本文档预览：3600字符，共3192字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
