1、国家二级 VB机试（上机操作）模拟试卷 453及答案与解析 一、基本操作题 1 (1)在称为 Form1的窗体上添加一个名称为 Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为 “形状 ”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本框最多能够显示 5个字符，文小框中初始内容为 “圆形 ”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为四件套 1 frm，工程文件名为 sjt1 vhp。 (2)在名称为 Form1的窗体上添 加一个名称为 Label1的标签，字号大小为四号，标题为 “等级考
2、试 ”，如图 1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为 “标签 ”，单击窗体时，显示标签，如图 2所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2 Inn，工程文件名保存为四件套 2 vbp。要求程序中小得使用变量，每个事件过程中只能写一条语句。 二、简单应用题 2 (1)在考生文件夹下有工程文件 sjt3 vbp，其窗体上有 1个标题为 “计算 ”的命令按钮， 1个标题为 “无理数 e的近 似值 ”的标签。请再画 1个初始内容为空的文本框Text1，如图所示。程序功能为：单击 “计算 ”命令按钮，则计算无理数 e的
3、近似值，并将结果显示在 Text1文本框中。近似公式女口下： e=1+1 1!+1 2!+13!+1 n!+ 请将程序代码中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。其窗体中有 1个名称为 Command1，标题为 “查找 ”的命令按钮； 3个初始内容为空的文本 框 Text1、 Text2和 Text3，其中 Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在 Text1中输入原始字符串，在Text2中输入要查找的单个字符，然后
4、单击 “查找 ”按钮，则在 Text3中显示查找的结果。图示为某一次的运行效果。 请将 “查找 ”命令按钮 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件 中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于 2的偶数，并单击 “分解为 ”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为
5、 5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图所示 )。要求编写 “分解为 ”命令按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 lsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入 23456，单击 “分解为 ”按钮将结果显示在标签中，否则将没有成绩，最后将修改后的史件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 453答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：
6、新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图 3 27所示。程序中用到的控件及属性见表3 36。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个 窗体，按照题目要求建立控件并设置其属性，如表 3 37所示。步骤 2：编写程序代码。 参考答案 Private Sub Form_Click() Label1 Visible=True End Sub Private Sub Form_Load() Form1 Caption=“标签 “ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)Shap
7、e属性用来设置形状控件的形状。其取值及边框形状如下。 取 0值：矩形，默认设置；取 1：正方形；取 2：椭圆；取 3：圆；取 4：圆角矩形；取 5：圆角正方形。 AutoSize属性决定控件是否能自动调整大小以显示所有的内容。 MaxLength属性设置文本框中输入的字符串长度。默认值为 0，表示该单行文本框中字符串的长度只受操作系统内存的限制。如果设置为大于 0的数，则表示能够输入的最大字符数目。 (2)通过标签的。 Name、 Caption和 FontSize属性设置标签的名称、标题和字体大小，通过设置标签的 Visible属性为 False，使标 签初始为不可见。编写适当的程序，在 F
8、orm_Load事件过程中，窗体的 Caption属性值立即变为 “标签 ”，在Foim_Click事件过程中单击窗体时，设置标签的 Visible属性为 True显示标签。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题项目工程，并在窗体中添加文本控件 Text1， 并按照表 4 6设置文本控件 Text1的属性，结果如图 4 5所示。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim e As Single x As Single Dim i As Integer e=0： i
9、=0 x=1 Do While x0 001301 e=e+x i=i+1 x=1 je(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 Next jc=t End Function 步骤 3：调试并运行程序，关闭程序后 按题目要求存盘。 (2)步骤 1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click(
10、) Dim x As String Dim num As Integer， i As Integer i=1 num=0 Do while i 【试题解析】 (1)在窗体中添加 Text控件，首先将 Text控件中的内容设置为空，然后进入 “计算 ”按钮的单击事件过程， Do While循环结构中调用求阶乘函数 jc，依次求变 量 i的阶乘结果，将最后的计算结果，显示在 Text控件上。 (2)利用 Do While循环遍历 Text1中的字符串，并使用 Mid(Text1， i， 1)取出Text1中相应位置的字符，判断该字符是否与 Text2中的字符相等，如果相等则将变量 num加 1，循
11、环结束后根据 num的值，判断程序的查找结果。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 For i =1 To Val(Text1 Text)i从 1开始，第一个找到的肯定就是满足条件的最小素数 If IsPrime(i) And IsPrime(Val(Text1 Text)一 i)Then判定两个数是否都满足素数条件 Label1=i Label2 =Val(Text1 Text) 一 i Exit For EndIf Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 Function IsPrime()函数用来判断一个数是否为素 数，在处理循环变量的上限时，为了节约循环的次数，设置为 Sqr(x)为 x的平方根，如果 x能被循环变量的值整除， IsPrime()函数的返回值为 False， x就不是素数。在Command1_Click事件过程中，通过调用函数判断是否为素数，只要出现一组数据满足条件，就停止 For循环，这样可以保证是最小的素数。
