国家二级VB机试（上机操作）模拟试卷422
基本操作题
1.(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架，标题分别为“字号”、“修饰”；在Frame1中添加两个单选按钮，名称分别为Option1、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中添加一个名称为Check1的复选框，标题为“下划线”。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加一个命令按钮，名称为Command1，标题为“选中字符数是”。程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中的控件及属性见表3．43。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)
【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．44。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private sub Command1_Click()
Text2 ＝ Text1．SelLen．gth
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．txt文件中的所有英文单词读入，并在Text1文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在irr3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔0．1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。
请完成以下工作：
(1)【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim st $，ch $
Open App．Path ＆\\
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。
注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入23456，单击“分解为”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
For i＝1 To Val(Text1．Text) ’i从1开始，第一个找到的肯定就是满足条件的最小素数
If IsPrime(i) And Is Prime(Val(Text1．Text)－i)Then ’判定两个数是否都满足素数条件
Labe11＝i
Labe12＝Val(Text1．Text)－i
Exit For
End If
Next i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：
本文档预览：3600字符，共2975字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
