1、国家二级 VB机试（上机操作）模拟试卷 431及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画 1个名称为 Frame1、标题为 “学位 ”的框架；框架内有 1个名称为 Option1的控件数组，该控件数组含有 4个标题分别为 “学士 ”、 “硕士 ”、 “博士 ”和 “其他 ”的单选按钮，它们的： Index属性分别为 0、 1、 2、 3，且标题为 “硕士 ”的单选按钮为选中状态。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Form1、标题为 “练习 ”的窗体上，画 1个名
2、称为 Image1的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为 “风景 ”的图片文件。再画 2个名称分别为 Command1和Command2，标题分别为 “加宽 ”和 “加高 ”的命令按钮。如图所示。 要求：编写两个按钮适当的事件过程，使得单击 “加宽 ”按钮时， Image1的宽度增加 15；单击 “加高 ”按钮时， Image1的高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名 为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有工程文件 sjt3
3、 vbp，其窗体上有 1个标题为 “计算 ”的命令按钮， 1个标题为 “无理数 e的近似值 ”的标签。请再画 1个初始内容为空的文本框Text1，如图所示。程序功能为：单击 “计算 ”命令按钮，则计算无理数 e的近似值，并将结果显示在 Text1文本框中。近似公式如下： e 1 1! 1 2! 1 3! 1 n! 请将程序代码中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序 按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。其窗体中有 1个名称为 Command1，标题为 “查找 ”的命令按钮； 3个初
4、始内容为空的文本框 Text1、 Text2和 Text3，其中 Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在 Text1中输入原始字符串，在 Text2中输入要查找的单个字符，然后单击 “查找 ”按钮，则在 Text3中显示查找的结果。图示为某一次的运行效果。 请将 “查找 ”命令按钮 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注 意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。其窗体中有 2个标题分别为 “读数据 ”和 “查找水仙花数
5、”的命令按钮。请画 1个名称为 Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。 程序功能如下： (1)考生文件夹下 in5 dat文件中存放着 100个三位正整数。单击 “读数据 ”按钮，则将in5 dat文件中的数据读入数组 a中； (2)单击 “查找水仙花数 ”按钮，则查找in5 dat中 的所有水仙花数，并将这些水仙花数顺次显示在 Text1文本框内。 (水仙花数是指一个 3位数，它各位数字的立方和等于它本身，例如 153就是水仙花数，因为 153 13 53 33) “读数据 ”按钮的 Click事件过程已经给出，请编写函数narc，以完成 “查找
6、水仙花数 ”按钮的 Click事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用 “查找水仙花数 ”按钮完成查找水仙花数的过程，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家 二级 VB机试（上机操作）模拟试卷 431答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体，在窗体上添加一个框架控件，并按照表 4 1设置控件的属性，结果如图 4 1所示。步骤 2：在建立好的框架控件上依次添加 4个单选按钮，并按照表 4 2设置控件属性，结果如图 4 2所示。为了使 “硕士 ”
7、单选按钮处于选中状态，需要将其的 value属性值设置为 True。步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，并设置窗体的相关属性，如表 4 3所示。 步骤 2：在建立好的窗体上添加一个 Image控件，并按照表 4 4设置控件属性，结果如图4 3所示。 步骤 3：向窗体上添加两个按钮控件，按钮名称分别为 Command1和 Command2，并按照表 4 5设置两个按钮控件的相关属性，运行结果如图 4 4所示。步骤 4：双击 “加宽 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： 参考答案 Priva
8、te Sub Command1_Click() Image1 Width Image1 Width 15 End Sub 步骤 5：双击 “加高 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： 参考答案 Private Sub Command2_Click() Image1 Height Image1 Height 15 End Sub 步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题项目工程，并在 窗体中添加文本控件 Text1， 并按照表 4 6设置文本控件 Text1的属性，
9、结果如图 4 5所示。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private sub Command1_Click() Dim e As Single， x As Single Dim i As Integer e 0： i 0 x 1 Do While x 0 00001 e e x i i 1 x 1 jc(i) Loop Text1 Text e End Sub Function jc(n As Integer)As Long Dim i As Integer Dim t As Long t 1 For i 1 To n t t * i N
10、ext jc t End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim x As String Dim num As Integer， i As Integer i 1 num 0 Do While i Len(Text1) If Mid(Text1,i,1) Text2 Then num num 1 End If i i 1 Loop If num 0 Then x
11、“没有找到 !“ Else x “找到了 “|&num&“个 “&Text2 End If Text3 x End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：向窗体中 添加一个 Text文本框控件，并根据题目要求设置 Text的相关属性，设置方法如表 4 7所示，设置结果如图 4 6所示。 步骤 3：打开代码编辑窗口，填入相应的代码以实现题目的功能。 参考答案 Function narc(P As Integer) As Boolean (p 100) 3 p Then flag True End If narc flag End Function 步骤 4：调试并运行程序，结果如图 4 7所示。关闭程序后按题目要求存盘。
