1、国家二级 VB机试（上机操作）模拟试卷 124及答案与解析 一、基本操作题 1 在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Label2，标题分别为“姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Text1和 Text2，初始内容均为空 )和一个命令按钮 (名称为 Command1，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生 文件夹下，工程文件名保存为 sjt1 vbp，窗体
2、文件名保存为 sjt1 frm。 2 在名称为 Form1的窗体上画一个图片框，其名称为 Picture1，一个水平滚动条，名称为 HScroll1，一个命令按钮，名称为 Command1，标题为 “设置属性 ”，通过属性窗口在图片框中装入一个图形 (文件名为 pic1 jpg，位于考生目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 1所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下： Min 100Max 1500LargeChange 100SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后
3、的窗体如图 2所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp(相应的窗体文件名为 sjt3 frm)，在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框，如图 1所示。编写窗体的 MouseDown事件过程。程序运行后，如果用鼠标单 击窗体，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于三个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 2所示。这个程序不完整，
4、请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp(相应的窗体文件名为 sjt4 frm)，其功能是通过调用过程 FindMin求数组的最小值。程序运行后，在 4个文本框 中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来 (如图所示 )。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 5 在窗体上建立三个
5、菜单 (名称分别为 Read、 Calc和 Save，标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，然后再添加一个文本框，名称为 Text1， MuhiLine属性设置为 True， ScrollBars属性设置为 2(如图所示 )。程序运行后，如果执行 “读入数据 ”命令，则读入考生文件夹下 datain1 txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存人考生文件夹下的 dataout tx
6、t文件中。在考生文件夹下有一个工程文件 sjt5 vbp，窗体文件中的 ReadData过程可以把 datain1 txt文件中的 100个整数读入 Arr数组中；而 writeData过程可以把指定的整数值写到考生 文件夹下指定的文件中 (整数值通过计算求得，文件名为 dataout txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为 sjt5 vbp，窗体文件名仍保存为 sjt5 fnn。 国家二级 VB机试（上机操作）模拟试卷 124答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到
7、的控件及属性如表 3 16所示。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub Command1_Click()Form1 Print Text1 Text&“，现年 “&Text2 Text； &“岁 “End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表 3 17。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub Command1 C1ick()HScroll1 Max=1500设置滚动条的最大值
8、、最小值、最大改变值、最小改变值 HScroll1 Min=100HScroll1 LargeChange=100HScroll1 SmallChange=10End SubPrivate Sub HScrolll Change()Picture1 Width=HScrolii Value将图片的 width与滚动条的 Value保持一致 End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件，按表 3 18昕列在窗体画出控件并设置其属性。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内
9、容。参考代码 (画下划线部分是需填入的内容 )Private Sub Form_MouseDown(Button As Integer， Shift AS Integer， X As Single， Y As Single)If Button=1 ThenText1 Text=InputBox(“请输入要添加的项目 “)List1 AddItemText1 Text将 Text1中的内容加入列表 End IfIf Button=2 ThenText1 Text=InputBox(“请输入要删除的项目 “)列表总数用 ListCount求得 For i=0 ToList1 ListCount-1
10、判断列表项是否为要删除的项 If List1 List(i)=Text1 TextThen删除 i所对应的项 List1 RemoveItemiEnd IfNext iEnd IfEnd Sub程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Option Base 1 Private Function FindMin(a()As Integer) Dim Start As Integer Dim Fin
11、ish As Integer， i As Integer Start=LBound(a)求数组 下界值 Finish=UBound(a)求数组上界值 Min=a(Start)将第一个数赋给最小值进行比较 For i=Start To Finish循环判断找最小值 If a(i) Min Then Min=a(i) Next i FindMin=Min End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4)As Integer arr1=Array(Val(Text1 Text)， Val(Text2 Text)， Val(T
12、ext3 Text)，Val(Text4 Text)申请 arrl数组并初始化 For i=1 To 4 arr2(i)=CInt(arr1(i)CInt函数将 arr1中的数值转换为整型 Next i M=FindMin(arr2) Print“最小值是： “； M End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件，利用菜单设计器，按表中的设置建立 菜单项，在窗体 Form1中绘制一个文本框，其相关属性及其值见表3 19和表 3 20。步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参
13、考代码 需要考生编写的内容 Dim sum As integer考生编写程序结束 需要考生编写的内容Private Sub CalC C1ick()Text1 Text=“For i=2 To 100 Step 2从 2开始循环，以 2为步长的下标都是偶数 Text1 Text=Text1 Text&Amr(i)&Space(5)sum=sum+Arr(i)对 下标为偶数的值求和 Next iPrint sumEnd SubPrivate Sub Read Click()ReadData调用 ReadData子过程 End SubPrivate Sub Save Click()调用 Save Click函数WriteData“dataout txt“， sumEnd Sub考生编写程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
