1、国家二级 VB机试（上机操作）模拟试卷 236及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “框架练习 ”的窗体上画一个名称为 Frame1、标题为 “字体 ”的框架摔件；在框架中画两个单选按钮，名称分别为 Option1、 Option2，标题分别为“宋体 ”、 “黑体 ”，标题在单选按钮的左边。运行后的窗体如图 2 158所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，上程文件名为 sjtl vbp。 (2)在名称为 Forml窗体上，画一个名称为
2、Imagcl的图像框，在其中显示考生文件夹下的图片 “pic2 jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScroll1、 VScroll1，它们的刻度范围部是 1 3。如图 2 159(a)所示。要求如下： 定义两个窗体级变量： length、 high，并编写窗体的 Form Load事件过程，使 length、 high分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块时 ，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如： HScroll1的滚动块在刻度值为 2的位置时，图像框
3、的宽为初始宽度的 2倍。如图 2 159(b)所示。对于垂直滚动条也相同。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 s； t2 frm，工程文件名为sjt2 vbp。要求程序中的两个变量必须是 length、 high，此外不能再使用其他变量，除 Form Load事件过程外，其他每个事件过程中只能写一条语句。二、简单应用题 2 (1)在名称为 Forml的窗体上画一个名称为 lblPwd的标签，标题为 “密令 ”；画两个文本框，名称分别为 txtPwd、 txtObj，都没有初始内容；再画三个命令按钮，名称分别为 cmdShow、 cmdHide、 cmdCopy，标题分别为
4、 “显示 ”、 “隐藏 ”、 “复制 ”，在开始运行时，向 txtPwd中输入的所有字符都显示 “*”，单击 “显示 ”按钮后，在txtPwd中显示所有字符，再单击 “隐藏 ”后， txtPwd中的字符不变，但显示的都是“?”，单击 “复制 ”后，把 txtPwd中的实际内容复制到 txtObi中，如图 2 40所示。 要求： 在属性窗口中，把窗体的标题改为 “密令 窗口 ”。 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为 vbsi3 vbp，窗体文件名为 vnsj3.frm” (2)在考生文件夹下有一个工程文件 vbsj4 vbp，运行情
5、况如图 2 41所示。程序的功能是计算如下表达式的值： Z=(X+2)2+(X+3)3+(x+4)4+(X+N)AN 。其中， N和 X值通过键盘分别输入到文本框 txtN、 txtX中。之后如果单击名称为 cmdCa1、标题为 “计算 ”的命令按钮，则计算表达式的值 Z，并将计算结果显示在名称为 1blResult的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用 运算符，而应使用函数 xn进行幂运算。程序至少运行一次，按照下图输入数据，使 N=5， X=10
6、，单击 “汁算 ”按钮，计算 Z的值，并将结果显示在标签 lblResult中，否则没有成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生目录下有一个工程文件 sjt5 vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为 C1、 C2，标题分别为 “计算 ”、 “存盘 ”，如图 2 20所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击 “计算 ”按钮，则找出大于 15000的第一个素数，并显示在 Text1中；单击 “
7、存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的out5 txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过单击 “存盘 ”按钮存入 out5 txt文件中，否则无成绩。国家二 级 VB机试（上机操作）模拟试卷 236答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 84在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，在窗体Form1中画一个图像框、一个水平滚动条和一个水平滚
8、动条，在属性设置窗口中设置其相关属性，其属性及值如表 3 85所示。步骤 2：打开代码编辑窗口，分别编写滚动条的 Change事件过程和窗体的 Load事什过程。 参考代码： Dim length， high Private Sub FormLoad() length=Image 1 Width high=Imagel Height End Sub Prirate Sub HScrolll Change() Imagel Width=HScr011 Value*length End Sub Private Sub VScrolll_Change() Image1 Heiqht=VScrolll
9、 Value high End SUb 步骤 3：按要求将文件保存至考生文 仲夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表3-25在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写 3个按钮的单击事件过程。 参考代码： Private Sub cmdShowClick() txtPwd PasswordChar=” End Sub Private Sub cmdHide C1ick() txtPwd PasSWOrdChar=”?” End Sub Private Sub cmdCopy Click() t
10、xtObj Text=txtPwd Text End SUb 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 vbsj4 vbp。在代码编辑窗口，去掉程序中的注释符 “”。将问号 “?”改为正确的内容。 参考代码： tmp=tmp*a xn=tmp Z=z+xn(t， i) iblResult Caption=Z 步骤 2：按键运行程序，在第 1个文奉框中输入 5，第 2个文本框中输入 10，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题对
11、应工程文件 sjt5 vbp。 步骤 2：双击窗体 Forml上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码： 参考代码： Private Sub C1一 C1ick() a =15000 Do a =a +1 Loop Until isprime(a ) Text1 Text=a End Sub 步骤 3：双击窗体 Form1上的 “存盘 ”按钮，在代码编辑窗口其 Click事件过程中输入如下代码： 参考代码： Private Sub C2一 C1 ick() Open App Path ” out5 txt”For Output As： #1 Print： #1， Textl Text Close： #1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。
