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:按要求将文件保存至考生文件夹中。