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