1、国家二级 VB机试（上机操作）模拟试卷 155及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Frame1中添加两个单选按钮， 1名称分别为 Option1、Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在Frame2中添加一个名称为 Checkl的复选框，标题为 “下划线 ”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，丁程文件名保存为sjt1 vbp，窗体文 件名保存为 sjt1 frm。(2)在名称为 For
2、m1的窗体上从上到下添加两个文本框，名称分别为 Text1、 Text2；再添加一个命令按钮，名称为 Command1，标题为 “选中字符数是 ”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则选中的字符个数显示在 Text2中(如图所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序运行后，单击 “读入数据 ”按钮，可将
3、考生文件夹下 in3 txt文件中的所有英文单词读入，并在 Text1文本框中显示；单击 “插入列表框 ”按钮，则按顺序将每个单词作为一项添加到 List1列表框中 (如图所示 )。 在 in3 txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后而没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和 控件属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件件 sjt4 vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击 “开始 ”按钮，则
4、每隔 0 1秒窗体上的汽车图标向右移动一次 (初始状态下不移动 )；如果单击 “停止 ”按钮，则停止移动。 请完成以下工作： 设置适当控件的适当属性，使得每 0 1秒汽车图标向右移动一次，而初始状态下不移动。 请去掉程序中的注释符，把程序中的 ?改为正确的内容。 为两个命令按钮编写适当的事件过程，最后以原文件名存盘。 注意：不得修改已 经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。 三、综合应用题 3 在考生文件夹下自一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大十 2的偶数，并单击 “分解为
5、”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为 5和 19，也町以分解为 11和 13，要求取含有最小素数的组合，如图所示 )。要求编写 “分解为 ”命令按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入 23456，单击 “分解为 ”按钮，将结果显示在标签中，否则
6、将没有成绩，最后将修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 155答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中的控件及属性见表 3 43。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界而，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 44。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Commandl_lick() Text2 Text1 SeiLength End Sub 步骤 3：
7、调试并运行程序，关闭程序后按题日要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Commandl_Click() Dim st$ ch$ Open App Path&“ in3 txt“For Input As# 1打开文件 Do While Not EOF(1)文件指针是否到达文件末尾 Input #， ch迭到文件末尾返回 true，否则返回 false st st & ch将读出的数据加到原有数据末尾 Loop Close： &1
8、关闭文件 Text1 st将内容显示在文本框中 End Sub Private Sub Command2 Click() Dim st$， word$， c$ St Text1 n Len(st) For k 1 To n e Mid(st， k， 1)从 st中依次取出 1个字符进行比较 If c“Then word Word&c E1se List1 AddItem word word “将 word清空，为下一次作准备 End If Next List1 AddItem word End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题
9、工程文件，设置计时器 Inteval的属性为 100，将 Enabled属性设置为 False。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Timer1_Timer() P1 Left P1 Left 20 End Sub 需要考生编写的内容 Private Sub C1_Click() Timerl Enabled True End Sub Private Sub C2 Click() Timer1 Enabled False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 For i l To Val(Text1 Text)i从 1开始，第一个找到的肯定就是满足条件的最小素数 If IsPrime(i)Alld IsPrime(Val(Text1 Text) i)Then判定两个数是否都满足素数条件 Label1 i IJabel2 Val(Textl Text) i Exit For End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
