1、国家二级 VB机试（上机操作）模拟试卷 315及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本框最多能够显示 5个字符，文本框中初始内容为“圆形”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，工程文件名为sjt1vbp。 (2)在名称为 Form1的窗休上添加一个名称为 L
2、abel1的标签，字号大小为四号，标题为“等级考试”，如图 1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图 2所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp(相应的窗体文件名为 sjt3frm)，在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框，
3、如图 1所示。编写窗体的 MouseDown事件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 2所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp(相应的窗体文件名为 Sjt4frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在 4个文本框中各输
4、入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有工程文件 sjt5vbp 和文本文件 in5txt，in5txt 中有不超过 100个 4位正整数。窗体上有 2个命令按钮，其功能是：单击“读入数据”按钮，可以读入 in5txt 文件中的所有数，并显示在文本框中。单击“计算并保存”按钮，能够把满足下述条件的整数的个数，以及这些数的累加和存入 ou
5、t5txt 文件。这些数需满足的条件是：数中各位数字累加后能够被 5整除(例如：5235 各位数字累加和是 15，能够被 5整除，所以是满足条件的数)。 要求： 1)把“读入数据”按钮的 Click事件过程中的?改为正确的内容； 2)为“计算并保存”按钮的 Click事件过程编写代码。(事件过程的最后一行用于存盘，已经给出，考生不得修改，否则无成绩!)。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 315答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在
6、名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本框最多能够显示 5个字符，文本框中初始内容为“圆形”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，工程文件名为sjt1vbp。 (2)在名称为 Form1的窗休上添加一个名称为 Label1的标签，字号大小为四号，标题为“等级考试”，如图 1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为
7、“标签”，单击窗体时，显示标签，如图 2所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图 327 所示。程序中用到的控件及属性见表 336。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 337 所示。 )解析：二、简单应用题(
8、总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp(相应的窗体文件名为 sjt3frm)，在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框，如图 1所示。编写窗体的 MouseDown事件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 2所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改
9、后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp(相应的窗体文件名为 Sjt4frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件，按表 318 所列在窗体画出控件并设置其属性。 )解析：三、综合应用题(总题数：1，分数：2
10、.00)3.在考生目录下有工程文件 sjt5vbp 和文本文件 in5txt，in5txt 中有不超过 100个 4位正整数。窗体上有 2个命令按钮，其功能是：单击“读入数据”按钮，可以读入 in5txt 文件中的所有数，并显示在文本框中。单击“计算并保存”按钮，能够把满足下述条件的整数的个数，以及这些数的累加和存入 out5txt 文件。这些数需满足的条件是：数中各位数字累加后能够被 5整除(例如：5235 各位数字累加和是 15，能够被 5整除，所以是满足条件的数)。 要求： 1)把“读入数据”按钮的 Click事件过程中的?改为正确的内容； 2)为“计算并保存”按钮的 Click事件过程
11、编写代码。(事件过程的最后一行用于存盘，已经给出，考生不得修改，否则无成绩!)。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容，并在“考生编写的代码”区域填入相应的代码以实现题目的功能。 Option Base 1 Dim a(100)As Integer，hum As Integer Private Sub Command1_Click() Dim k As Integer k=1 Open AppPathn
12、=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 AppPath&”out5txt”For Output As #1 Print#1，n，sum Close#1 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
