1、国家二级 VB机试（上机操作）模拟试卷 420及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Frame1、标题为 “框架 ”的框架，在框架内添加两个名称分别为 Option1、 Option2的单选按钮，其标题分别为 “第一项 ”、 “第二项 ”。要求通过设置控件的属性将 “第二项 ”初始值设置为被选中，框架为不可用。运行程序后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名 称为 Drivel的驱动器列表框，一个名称为 Dir1的目录
2、列表框，一个名称为File1的文件列表框，名称为 Label1、标题为 “文件名 ”的标签和名称为 Labe12、BorderStyle为 1的标签。将窗体的标题设置为 “文件系统控件 ”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Labe12中显示选中的文件名。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放 在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)考生文件夹下
3、有一个工程文件 sjt3 vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为 Command1、标题为 “添加 ”的命令按钮，则将文本框中的数字添加到名称为 Combo1的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程 序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。该程序的功能是计算 M! (M 1)! (M 2)! N之和。窗体上有名称分别为 Text1
4、、 Text2的两个文本框，用于接收输入的 M和 N(要求 M N)。单击名称为 Command1、标题为 “计算 ”的命令按钮，计算 M! (M 1)! (M 2)! N!的值，并将计算结果显示在标签lblResult中。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2 b2 c2。例如， 3、 4、 5就是一个满足条件
5、的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3， 4， 5被视为同一个组合，不应该重复计算 )。编写程序，统计均在 60以内的三个数满足上述关系的整数组合的个数，并显示在标签 Label1中。 注意：不得修改原有 程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 420答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 3 38。步骤 2：调试并运行程序
6、，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图3 28所示。 程序中用到的控件及属性见表 3 39和表 3 40。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Dir1_Change() File1 PathDir1 Path 使目录列表框 Dir1与文件列表框 File1同步 End Sub Private Sub Drive1_Change() Dir1 Path Drive1 Drive 使驱动列表框 Drive 1与目录列表框Dir1同步 En
7、d Sub Private Sub File1_Click() Labe12 File1 FileName 显示 File1中的文件名 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作 步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_C1ick() Combo1 AddItem Text1 Text 将 Text1中的内容加入 Combo1中 Text1 Text “ “ 同时将 Text1内容清除 End
8、Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Key Ascii 57 Or KeyAscii 48 Then 数字的 Ascii码值下界 MsgBox“请输入数字 !“ KeyAscii 0 清空 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim m As Integer Dim n As Integ
9、er Dim S As Long Dim i As Integer m Val(Text1 Text) 将文本框中的字符转换成数值型 n Val(Text2 Text) s 0 For i m to n m t f(1)调用函数得到 N的阶乘 s s t Next lblResult Caption s End Sub Private Function f(ByRef x As Integer)As Long ByRef为传址传递 Dim t As Long t 1 For i 1 To x实现对数值进行阶乘运算 t t*i Next f t返回计算结果 End Function 步骤 3：调
10、试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口 ，在代码编辑窗口指定位置编写以下代码。 参考答案 Dim i As Integer Dim j As Integer Dim k As Integer For i 1 To 60 For j 1 To 60 For k 1 To 60 判断三个数是否满足勾股定律 If i 2 j 2 k 2 Then m m 1 h m为记录满足条件的个数 End If Next k Next j Next i Labe11 m 2 去掉相同的项 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
