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