1、国家二级 VB机试（上机操作）模拟试卷 315及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为 “形状 ”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本框最多能够显示 5个字符，文本框中初始内容为 “圆形 ”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，工程文件名为 sjt1 vbp。 (2)在名称为 Form1的窗休上 添加一个名称为 Label1的标签，字号大小为四号，标题为 “等级
2、考试 ”，如图 1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为 “标签 ”，单击窗体时，显示标签，如图 2所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2 frm，工程文件名保存为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp(相应的窗体文件名为 sjt3 frm)，在窗体上添加一个名 称为 List1的列表框和一个名称为 Text1的文本框，如图 1所示。编写窗体的 MouseDown事件过程。程序运行后，如果用鼠标单
3、击窗体，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于三个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 2所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp(相应的窗体文件名为 Sjt4 frm)，其功能是通过调用过程 FindMin求数组的最小值。程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来
4、 (如图所示 )。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生目录下有工程文件 sjt5 vbp和文本文件 in5 txt， in5 txt中有不超过100个 4位正整数。窗体上有 2个命令按 钮，其功能是：单击 “读入数据 ”按钮，可以读入 in 5 txt文件中的所有数，并显示在文本框中。单击 “计算并保存 ”按钮，能够把满足下述条件的整数的个数，以及这些数的累加和存入 out5 txt文件。这些数需满足的条件是：数中各位数字累加后能够被 5整除 (例如： 5235各位数
5、字累加和是 15，能够被 5整除，所以是满足条件的数 )。 要求： 1)把 “读入数据 ”按钮的 Click事件过程中的 ?改为正确的内容； 2)为 “计算并保存 ”按钮的 Click事件过程编写代码。 (事件过程的最后一行用于存盘，已经给出 ，考生不得修改，否则无成绩 !)。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 315答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图 3 27所示。程序中用到的控件及属性见表
6、 3 36。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 37所示。步骤 2：编写程序代码。 Private Sub Form_Click() Label1 Visible=True End Sub Private Sub Form_Load() Forml Caption=”标签 ” End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件，按表 3 18所列在窗体画出控件并设置其属性。步骤 2：打开
7、代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Form_MouseDown(Button As Integer f Shift As Integer,X As Single, Y AS Single) If Button=1 Then Text1 Text=InputBox(”请输入要添加的项目 ”) List1 AddItem Text11.Text将 Text1中的内容加入列表 End If If Button=2 Then Text1 Text=InputBox(”请输入要删除的项目 ”) 列表总数用 ListCount求得 For i =0 T
8、oList1.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 Integer Di
9、m 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)， Val(Text2 Text)， V
10、al(Text3 Text)，Val(Text4 Text)申请 arr1数组并初始化 For i=1 To 4 arr2(i)=CInt(arrl(i)CInt函数将 arr1中的数值转换为整型 Next i M=FindMin(arr2) Print”最小值是： ”； M End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为 正确的内容，并在 “考生编写的代码 ”区域填入相应的代码以实现题目的功能。 Option Base 1 Di
11、m a(100)As Integer， hum As Integer Private Sub Command1_Click() Dim k As Integer k=1 Open App Pathn=0 For i=1 To num s=a(i)Mod 10+a(i)10 Mod 10 +a(i) 100 Mod 10+a(i)100 If a Mod 5=0 Then sum=sum+n(i) n=n+1 End If Next i Call SaveFile(SUm， n)此行用于存盘，考生不得修改，否则无成绩 ! End Sub Private Sub SaveFile(sum As Long， n As Integer) Open App Path&” out5 txt”For Output As #1 Print#1， n， sum Close#1 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
