1、国家二级 VB机试（上机操作）模拟试卷 433及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个标题为 “直辖市 ”、名称为。 Frame1的框架，在框架中画一个名称为 Combo1的组合框，其编辑域为空，有如图所示的 4个列表项，外观风格也与图中相同。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为Form1的窗体上画一个名称为 Command1、标题为 “0”的命令按钮；再画一个名称为 Timer1的计时器，请通过属性窗口设置适当 的属性，并编写适当的事件过程，使得程序运行时，单击命令按钮后，该按
2、钮标题上的数字每 2秒在原有基础上加2。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有一个名称为 List1的列表框，且已有若干个项目，如图 (a)所示。 “部分反序 ”命令按钮的名称为 Command1。程序运行时，单击 “部分反序 ”按钮，列表框中除最前面的一个项目 不动外，其他项目的顺序反向显示，如图 (b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改
3、为正确的内容。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp。其功能是： 1)单击 “产生数据 ”按钮，产生 10个随机整数，并显示在 Picture1图片框的第 1行； 2)在 Text1文本框中输入要清 0的第 1个数的位置，在 Text2文本框中输入要清 0的个数，然后单击 “清 0”按钮，则把清 0后的数据显示在图片框的下一行。如图所示。 其他约束： a)若输入的第 1个数位置大于 10，则认为从第 10个数开始； b)若不输入第 1个数位置，则认为从第 1个数开始； c)若不输入清 0个数，则认为
4、一直清 0到最后一个数； d)若输入的清 0个数超出了最后 1个数，则清 0到最后一个数为止。 在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生目录下有工程文件 sjt5 vbp和文本文件 in5 txt， in5眦中有不超过100个 4位正整数。窗体上有 2个命令按钮，其功能是：单击 “读入数据 ”按钮，可以读入 in5 txt文件中的所有数，并显示在文本框中。单击 “计算并保存 ”按钮，能够把满足下述条件的整数的个数，以及这些数的累
5、加和存入 out5 txt文件。这些数需满足的条件是：数中各位数字累加后能够被 5整除 (例如： 5235各位数字累加和是 15，能够被 5整除，所以是满足条件的数 )。 要求： 1)把 “读入数据 ”按钮的 Click事件过程中的 ?改为正确的内容； 2)为 “计算并保存 ”按钮的 Click事件过程编写代码。 (事件过程的最后一行用于存盘，已经给出，考生不得修改，否则无成绩 !)。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 433答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体
6、 Form1。 步骤 2：向窗体上添加一个 Frame控件，并按照表 4 13设置控件的属性。步骤 3：向 Frame控件中添加一个ComboBox控件，按照表 4 14设置控件的属性 ，设置完成后结果如图 4 11所示。 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体 Form1。 步骤 2：向窗体中添加一个命令按钮，按照表 4 15设置控件的属性。步骤 3：向窗体中添加一个计时器控件，按钮表 4 16设置控件的属性，设置完成后结果如图 4 12所示。步骤 4：添加按钮的 Click事件过程。 参考答案 Private Sub Command
7、1_Click() Timer1 Enabled True End Sub 步骤 5：添加计时器的 Timer事件 过程 参考答案 Private Sub Timer1_Timer() Command1 Caption Val(Command1 Caption) 2 End Sub 步骤： 6：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim k， s $ For
8、k 1 To (List1 ListCount 1) 2 s $ List1 List(k) List1 List(k) List1 List(List1 List Count k) List1 List(List1 ListCount k) s Next End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编 辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Option Base 1 Dim a(10)As Integer Private Sub Command1_Click() Ran
9、domize For k 1 To 10 a(k) Int(Rnd * 99) 1 Picture1 Print a(k)； Next k Picture1 Print End Sub Private Sub Command2_Click() Dim start As Integer， n As Integer start Val(Text1 Text) If start=0 Then start 1 End If If start 10 Then start 10 End If If Text2 Text “ “Then n 10 start 1 Else n Val(Text2 Text)
10、 End If If start n 11 Then n 10 start 1 End If For k start To start n 1 a(k) 0 Next k For k 1 To 10 Picture1 Print a(k)； Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去 掉程序中的注释符 “”，将问号改为正确的内容，并在 “考生编写的代码 ”区域填入相应的代码以实现题目的功能。 参考答案 Option Base 1 Dim a(10
11、0)As Integer， num As Integer Private Sub Command1_Click() Dim k As Integer k=1 Open App Path&“ in5 txt“For Input As #1 Do While Not EOF(1) Input #1， k 1 k k 1 Loop Close #1 num k 1 For k 1 To num Text1 Text1 & a(k)& “ “ Next k End Sub Private Sub Command2_Click() Dim sum As Long， n As Integer， s As Integer 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：调试并运行程序，关闭程序后按题目要求存盘。
