1、国家二级 VB机试（上机操作）模拟试卷 90及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Frame1、标题为 “目的地 ”的框架，在框架中添加三个复选框，名称分别为 Check1、 Check2、 Check3，其标题分别是 “上海 ”、 “广州 ”、 “巴黎 ”，其巾 “上海 ”为选中状态， “广州 ”为未选状态， “巴黎 ”为灰色状态，如图 3 83所示。请画控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件 名为 sitl vbp，窗体文件名为 si
2、tl fm。 (2)在名称为Forml的窗体上画一个名称为 Picturel的图片框，其宽和高分别为 1700、 1900。请编写适当事件过程，使得在运行时，单击图片框则装入考生目录下的图形文件picl bmp，如图 3 84所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2 fm。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的名称是 Linel，还有一个名称为 Labell的标签，和其他一些控件
3、，如图3 1 18(a)所示。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置，如图 3 118(b)所示；若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 3一 118(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示 “鼠标位置不对 ”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。程序中的 oncircle函数的作用是判断鼠标单击的位 置是否在圆的边线上 (判断结果略有误差 )，是则返回 True，否则返回False。符号常量 x0、 y0是圆心距窗体左上角的距离；符号常量 radius是圆的半径。注意：不能修改程
4、序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sit4 vbp，窗体如图 3 119所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数 n(要求： 8n12)；单击 “计算 ”按钮，则计算 1 1+2 1+3 1+n! ，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到考 生目录下的 out4 dat文件中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “计算 ”按钮的 Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，
5、必须用“存盘 ”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp。窗体中已经给出了所有控件 (如图 382所示 )。请编写适当的事件过程完成以下功能：单击 “读数 ”按钮，则把考生目录下的 in5 txt文件 中的一个整数放入 Text1；单击 “计算 ”按钮，则计算出大于该数的第一个素数，并显示在 Text2中；单击 “存盘 ”按钮，则把找到的素数存到考生目录下的 out5 txt文件中。注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名
6、存盘。国家二级 VB机试（上机操作）模拟试卷 90答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程。步骤2：在窗体 Forml中加入一个框架，然后依次在框架中画出三个复选框。步骤 3：分别设置框架和各复选框的相关属性，其属性及值如表 4 47所示。步骤 4：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 4 48在窗体中画出图片框并设置其相关属性。 步骤2：打开代码编辑窗口，编写图片框和窗体的单击事件过程。 参考代码： Private Sub Form Click() Pictur
7、el Picture=LoadPicture(“”)End Sub Private Sub Picturel C1ick()Picturel Picture=LoadPicture(“picl bmp”)End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： Linel Y2=Y Linel X2=Linel X1 Linel Y2=y07 50 Labell CaDtion=“鼠标位置不对 ” 步骤 2
8、：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： s=1 f=s 步骤 2：双击 “计算 ”按钮，编写该按钮的单击事件过程。 参考代码： Private Sub Command2 Click() Dim s As Long， k As Integer -考生应编写 的程序 s=0 For k=1 To n s=s+f(k) Next Text1=s End Sub 步骤 3：按 键运行程序，单击 “输入数据 ”按钮，通过输入框输入一个 8
9、 12之间的整数，然后单击 “计算 ”按钮计算结果，最后单击 “存盘 ”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题对应工程文件 sit5 vbp。 步骤 2：双击窗体 Forml上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码： 参考代码： Private Sub Command2 Click() a =CInt(Text1 Text) Do a =a +1 Loop Until isprime(a ) Text2 Text=a End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k =2 flag=True While k 键运行程序，先单击 “读数 ”按钮，接着单击 “计算 ”按钮，最后单击 “存盘 ”按钮。 步骤 5：按要求将文件保存至考生文件夹中。
