1、国家二级 VB机试（上机操作）模拟试卷 441及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “图片 ”的窗体上添加 1个名称为 Image1的图像框，其高为 2500，宽为 2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pic1 jpg插入图像框，并使图片自动通应图像框的大小 (如图所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗休文件名保存为 sjt1 frm。 (2)在名称为 Fornl的窗体上添加一个名称为 Label1，标题为 “口令 ”的标签；添加一 个名称为 Text1的文本框；再添加三个命令按钮，名称分
2、别为 Command1、 Command2、 Command3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “重新输入 ”。 程序运行时，在 Text1中输入若干字符，单击 “隐藏口令 ”按钮，则只显示与字符同样数量的 “*”(如图 2所示 )；单击 “显示门令 ”按钮，则正常显示输入的字符 (如图 1所示 )，单击 “重新输入 ”按钮，则清除 Text1中的内容，并把光标定位到 Text1中。要求：请按要求添加所有控件，编写命令按钮的 Click事件过程，程序中不得使用变量，在 “显示口令 ”、 “隐藏 口令 ”按钮的事件过程中只能写 1条语句。存盘时必须存放在考生文件夹下，工程文件名为
3、sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有一个标签 Label1，请添加一个单选按钮数组，名称为 Op1含三个单选按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “飞机 ”、 “火车 ”、 “汽车 ”，再添加一个名称为 Text1的文本框。窗体文件中已经给出了 Op1的 Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确 的内容，使得在程序运行时单击 “飞机 ”或 “火车 ”单选按钮时，在 Text1中显示 “我坐飞机去 ”或 “我坐火车去 ”，单击 “汽车
4、 ”单选按钮时，在 Text1中显示 “我开汽下去 ”，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp， Form1窗体中有一个文本框，名称为 Text1；请先在窗体上添加两个框架控件，名称分别为 F1、 F2，标题分别为 “性别 ”、 “身份 ”；然后在 F1中添加两个单选按钮控件 Op1、 Op2，标题分别为 “男 ”、 “女 ”；其次在 F2中添加两个单选按钮控件 Op3、 Op4，标题分别为 “学生 ”、 “教帅 ”；最后冉添加一个命令按钮，名称为C1标题为 “确定 ”，如图所示。请编写适当的事件过程，使
5、得运行时，在 F1、 F2中各选一个单选按钮，然后单击 “确定 ”按钳，就可以按照下表把结果显示在文本框中。 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和 Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题 3 在考生文件夹中有一 个工程文件 sjt5 vbp。该程序的功能是从 in5 txl文件中读入 40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数 (判断素数的函数已给出 )。最后将杏找和统计的结果分别显示在标签 Label4和 Label3中(
6、窗体外观如图所示 )。程序不完整，请在指定的位置把程序补充完整。 注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 441答案与解析 一、基本操 作题 1 【正确答案】 (1)步骤 l：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 33所示。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 l：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表 3 34和表 3 35。步骤 2：打开代码编辑窗口，去掉程序中的注释
7、符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1 Click() Text1 PasswordChar=“当 Pass-wordChar属性设置为空时，Text1文本 框显示内容 End Sub Private Sub Command2 Click() Text1 PasswordChar=“*“当 Pass-wordChar属性设置为 *时，用 *代替 Text1文本框中的字符显示 End Sub Private Sub Command3 Click() Text1=“清空文本框 Text1 SetFocus Text1获得焦点 End Sub 步骤 4：
8、调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)图像框 (Image)的 Picture属性用于在设 计阶段设置图像框中显示的图片，它的 Stretch(自动伸缩 )属性返回设置一个值，决定是否调整图形的大小以适应图像框控件。 图像框的宽和高分别由其 Width属性和 Height属性设置。 (2)PasswodChar。属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论 Text属性值是什么，在文本框中都只显示该字符。另外， MultLine属性必须设置为 False。运用 SetFocus方法使文本框获得焦点。 二、简单应用题 2 【正确答案】
9、(1)步骤 1：打开本题工程文件，按照题目要求建立单选按钮数组，如图 3 9所示。 步骤2：按照题目要求建立其他控件并设置其属性，见表 3 4。步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Op1_Click(Index As Integer) Dim a As String， b As String， c As String a=“我坐 “ b=“我开 “ Select Case Index 通过 Index值决定响应哪一个控件数组 Case 0 Text1 Text=a+Me opl(0) Caption+“去 “ Case
10、 1 Text1 Text=a+Me Op1(1) Caption+“去 “ 当 Index值为 1时，选择 “我坐 “ Case 2 Text1 Text=b+Me Op1(2) Caption+“去 “ End Select End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件，按照题目要求建立 框架控件并设置其属性，如图 3 10所示。步骤 2：按照步骤 1建立其他控件并设置相关属性，程序中用到的控件及属性 见表 3 5和表 3 6。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub C1_Click(
11、) Text1 Text=“我是 “首先确定不论选什么情况 Text1的内容一定以 “我是 “开头 If Op1 Value Then Text1 Text =Text1 Text & Op1 Caption Else Text1 Text =Text1 Text & Op2 Caption End If 通过单选按钮的 Value值 (选择为 true，否则为 false)确认性别，最后 把其 Caption值接至 Text1后 If Op3 Value Then Text1 Text=Text1 Text & Op3 Caption Else Text1 Text=Text1 Text &
12、 Op4 Caption End If 确认身份，思路同上 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过 Name属性设置对象名称；通过 Caption属性设置对象的标题；设置两个字符型变量 a、 b， a=“我坐 “， b=“我开 “，用于 Select Case选择语句的字符串连接；通过对单选按钮数组 Index属性的查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由 Caption属性设置，单击命令触发 Click事件；单选按
13、钮的标题由 Caption属性设置，程序中需要检测单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则 Value值为 1，否则 Value值为 0。在文本框中显示内容通过 Text属性实现，其形式为：文本框名 Text=显示的内容 。 在 Visual Basic程序中， Open语句用于打开顺序文件，打开顺序文件的基本格式为： Open FileName ForMode As #FileNumber。其中， FileName表示要打开的文件的路径； Mode为打开模式， OutPut用于输出， Append用于追加写入，Input用于读取； FileNumber为打开文件时指定
14、的句柄。 读文件操作在窗体的 Load事件过程中完成，写文件操作在命令按钮的 Click事件过程中完成。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工 程文件。 步骤 2：分析并在适当位置编写程序代码。 参考答案 Dim a As Integer Dim b As Integer a=0 b=arr(1) For i=1 To 4 0确定素数个数 If prime(arr(i)Then判断是否为素数 a=a+1素数个数累加 Label3 Caption=a在标签中显示 Next For i=1 To 40查找最小素数 If prime(arr(i)And arr(i) 步骤 4：关闭程序后，按题目要求存盘。 【试题解析】 除了 1和它本身以 外，不再有别的约数，这种整数叫做素数。判别某数 m是否是素数的经典算法是：对于 m，依次判别能否被 I(I=2， 3， 4m 一 1)整除，只要有一个能整除， m就不是素数，否则 m是素数。本题需统计数据中素数的个数和所有素数中的最小素数。自定义函数过程 prime用来判断是否为素数，返回 True则为素数，反之则为非素数，通过对返回值的判断确定素数，并进行个数统计及查找最小值。
