1、国家二级 VB 机试（上机操作）模拟试卷 406 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画两个名称分别为 Frame1、Frame2 的框架，标题分别为“字号”、“修饰”；在 Frame1 中画两个单选按钮，名称分别为 Option1、Option2，标题分别为“10 号字”、“20 号字”，且标题显示在单选按钮的左边；在：Frame2 中画一个名称为 Checkl 的复选框，标题为“下划线”。运行后的窗体如图 31
2、74 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为sjt1frm。 (2)在名称为 Form1 的窗体上从上到下画两个文本框，名称分别为 Text1、Text2；再画一个命令按钮，名称为 Command1，标题为“选中字符数是”。程序运行时，在 Text1 中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在 Text2 中显示选中的字符个数(如图 3175 所示)。请编写桔翎的 C1ick 事件过程。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。 程序运行后，单击“
3、读入数据”按钮，可把考生文件夹下 in3txt 文件中的所有英文单词读入，并显示在 Text1 文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到 List1 列表框中(如图 3176 所示)。 在 in3txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4vlbp，窗体上已经画出所有控件，如图 3177 所示。在运
4、行时，如果单击“开始”按钮，则窗体上的汽车图标每 01 秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1 中输入一个大于 2 的偶数，并单击“分解为”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24 可以分解为 5 和 19，也可以分解为 11 和 13，要求取含有最小素数的组合，如图 3178 所示)
5、。（分数：2.00）_国家二级 VB 机试（上机操作）模拟试卷 406 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画两个名称分别为 Frame1、Frame2 的框架，标题分别为“字号”、“修饰”；在 Frame1 中画两个单选按钮，名称分别为 Option1、Option2，标题分别为“10 号字”、“20 号字”，且标题显示在单选按钮的左边；在：Frame2 中画一个名称为 Checkl 的复选框，标题为“下划线”。运
6、行后的窗体如图 3174 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为sjt1frm。 (2)在名称为 Form1 的窗体上从上到下画两个文本框，名称分别为 Text1、Text2；再画一个命令按钮，名称为 Command1，标题为“选中字符数是”。程序运行时，在 Text1 中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在 Text2 中显示选中的字符个数(如图 3175 所示)。请编写桔翎的 C1ick 事件过程。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设
7、置属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性， 步骤 2：打开代码编辑窗口，编写以下事件过程。 参考代码： Private Sub Command1 Click() Text2TextForm1Text1SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。 程序运行后，单击“读入数据”按钮，可把考生文件夹下 in3txt 文件中的所有英文单词读入，并显示在 Text1
8、文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到 List1 列表框中(如图 3176 所示)。 在 in3txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4vlbp，窗体上已经画出所有控件，如图 3177 所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每 01 秒向右移动一次(初始状态下不移动)；如果
9、单击“停止”按钮，则停止移动。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： stst ch cMid(st，k，1) word“ “ 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，将计时器 Timer1 的 Enabled 属性设置为 False，Interval属性设置为 100。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容并编写两
10、个命令按钮的单击事件过程。参考代码： Private Sub C1_Click() Timer1EnabledTrue End Sub Private Sub C2_Click() Timer1EnabledFalse End Sub Private Sub Timer1_Timer() P1Move P1Left20 End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1 中输入一个大于 2 的偶数，并单击“分解为
11、”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24 可以分解为 5 和 19，也可以分解为 11 和 13，要求取含有最小素数的组合，如图 3178 所示)。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口的指定位置编写以下代码 参考代码： Dim i As Integer Dim n As Integer nVal(Text1Text) If n Mod 2 0 Then MsgBox“请输入偶数!“ Exit Sub End If For i2 To n2 If IsPrime(i)And IsPrime(ni)Then Labe11Captioni Labe12Captionni Exit For End If Next 步骤 2：按F5键运行程序，在文本框中输入 步骤 3：按要求将文件保存至考生文件夹中。)解析：
