国家二级VB机试（上机操作）模拟试卷308
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画两个名称分别为Frame1、Frame2的框架，标题分别为“字号”、“修饰”；在Frame1中画两个单选按钮，名称分别为Option1、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Check1的复选框，标题为“下划线”。运行后的窗体如图3—174所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图3—175所示)。请编写按钮的Click事件过程。
第1小题
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写以下事件过程。
参考代码：
Private Sub Command1_Click()
Text2．Text=Form1．Text1．SelLength
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目在窗体中画出控件，并设置相关属性即可。
第2小题：要在Text2中显示Text1中选中的字符个数，需编写语句将Text1的SelLength属性返回值赋值给Text2。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读入数据”按钮，可把考生文件夹下in3．txt文件中的所有英文单词读入，并显示在Text1文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到List1列表框中(如图3—176所示)。在in3．txt文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经画出所有控件，如图3—177所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每0．1秒向右移动一次(初始状态下不移动)：如果单击“停止”按钮，则停止移动。
第1小题
步骤1：打开考生文件夹下的工程文件sjt3．vbp，打开代码编辑窗门，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
st=st&ch
c=Mid(st，k，1)
word=\\
解析：第1小题：本题在“读入数据”按钮的单击事件中。首先将in3．txt文件以Input方式打开，然后利用Do循环依次读入文件中的每一个数据，在每一次循环中读入文件中的一个数据并连接至变量st中，循环结束后st的值就是文件中所有单词连接而成的字符串。
在“插入列表框”按钮的单击事件中，以空格为单词分隔依据找出每个单词，然后将单词插入列表框中，清空变量word准备继续寻找下一个单词。
第2小题：计时器只在设计时可见，计时器是否启用由其Enabled属性设置，值可取True或False。启用后由Interval属性设置间隔多长时间触发一次其Timer事件，Interval属性的单位为毫秒，缺省值为0，此时计时器不启用。
Timer1用于控制汽车行驶，每触发一次Timer1的Timer事件，汽车向右移动20，即P1．MoveP1．Left+20。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击“分解为”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图3—178所示)。要求编写“分解为”按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。
注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入23456，单击“分解为”按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口的指定位置编写以下代码。
参考代码：
Dim i As Integer
Dim n As Inteqer
n=Val(Text1．Text)
If n Mod2＜＞0Then
MsgBox\\
解析：本题程序设计思路：两个整数之和为n的组合有：1和n-1、2和n．2…i和n-i，在For循环中按前一个加数由小到大的顺序，依次通过调用函数IsPrime来判断每个组合中的两个加数是否均为素数，第一个找到的素数组合中即含有能够分解出的最小素数。由于1不是素数，故循环变量的初值从2开始；由于i和n-i的组合与n-i和i组合在本题中可被视为相同组合，故循环变量的终值设定为n／2即可。
本文档预览：3600字符，共2905字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
