1、国家二级 VB机试（上机操作）模拟试卷 414及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Labe12，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Text1和 Text2，初始内容均为空 )和一个命令按钮 (名称为 Command1，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。 注意：存盘时必须存 放在考生文件夹下，工程文件名保存为 sjt1 v
2、bp，窗体文件名保存为 sjt1 frm。(2)在名称为Form1的窗体上画一个图片框，其名称为 Picturel，一个水平滚动条，名称为HScroll1，一个命令按钮，名称为 Command1，标题为 “设置属性 ”，通过属性窗口在图片框中装入一个图形 (文件名为 pic1 jpg，位于考生目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 1所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下： Min 100 Max 1500 Large Change 100 Small Change 10 之后就可以通过移动滚动条上的滚动块来放大或缩小
3、图片框。程序运行后的窗体如图 2所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为Sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp(相应的窗体文件名为 sjt3 frm)，在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框，如图 1所示。编写窗体的 Mouse Down事 件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于三个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如
4、图 2所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp(相应的窗体文件名为 sjt4 frm)，其功能是通过调用过程 FindMin求数组的最小值。程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来 (如图所示 )。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综
5、合应用题 3 在窗体上建立三个菜单 (名称分别为 Read、 Calc和 Save，标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，然后再添加一个文本框，名称为 Text1， MultiLine属性设置为 True， ScrolIBars属性设置为 2(如图所示 )。程序运行后，如果执行 “读入数据 ”命令，则读入考生文件夹下 datain1 txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存入考生
6、文件夹下的 dataout txt文件中。在考生文件夹下有一个工程文件 sjt5 vbp，窗体文件中的 ReadData过程可以把 datain1 txt文件中的 100个整数读入 A11r数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值通过计算求得，文件名为 dataout txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为 sjt5 vbp，窗体文件名仍保存为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 414答案与解析 一、基本操作题 1 【正确答案】 (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_Click() HScr
8、o111 Max 1500 设置滚动条的最大值、最小值、最大改变值、最小改变值 HScro111 Min 100 HScro111 LarqeChanqe 100 HScro111 SmaliChange 10 End Sub Private Sub HScro111 Change() Picturel Width HScro111 Value 将图片的 width与滚动条的 Value保持一致 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件，按表 3 18所列在窗体画出控件并设置其属性。步
9、骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button 1 Then Text1 Text InputBox(“请输入要添加的项目 “) List1 AddItem Text1， Text 将 Text1中的内容加入列表 End If If Button 2 Then Text1 TextInputBox(“请输入要删除的项目 “) 列表总数用 ListCount求得 Fo
10、r i 0 ToList1 ListCount 1 判断列表项是否为要删除的项 If List1 List(i) Text1 Text Then 删除 i所对应的项 List1 RemoveItem i End If Next i End If End Sub 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”将问号改为正确的内容。 参考答案 Option Base 1 Private Function FindMin(a()As Integer) Dim Start As Int
11、eger Dim Finish 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)， a1(Text2
12、Text)， Val(Text3 Text)，Val(Text4 Text) 申请 arr1数组并初始化 For i 1 To 4 arr2(i) CInt(arr1(i)CInt 函数将 arr1中的数值转换为整型 Next i M Find Min(arr2) Print“最小值是： “； M End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体 Fonn1中绘制一个文本框，其相关属性及其值见表3 19和表 3 20。 步骤 2：打开代码编辑窗口，在代
13、码编辑窗口指定位置编写以下代码。 参考答案 需要考生编写的内容 Dim sum As integer 考生编写程序结束 需要考生编写的内容 Private Sub Calc_Click() Text1 Text “ “ For i 2 To 100 Step 2 从 2开始循环，以2为步长的下标都是偶数 Text1 Text Text1 Text Arr (i) Space(5) sumsum Arr(i)对下标为偶数的值求和 Next i Print sum End Sub Private Sub Read_Click() ReadData 调用 ReadData子过程 End Sub Private Sub Save_Click()调用 Save_Click函数 WriteData“dataout txt“， sum End Sub 考生编写程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
