1、VB机试模拟试卷 85及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上建立一个垂直滚动条，请在属性窗口中把它的名称设置为 VSl， Max属性设置为 50 Mill属性设置为 0 Value属性设置为 50。程序运行后，滚动块位于滚动条最下端，如图 181所示，如果单击滚动条之外的窗体部分，则滚动块跳到最上端。 注意：只能直接为相应的属性赋值，不得使用变量。保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为sjl vbp。 (2)在名称为 Forml的窗体中建立一个标签 ，名称为 Lablel，在标签上显示 “编程语言 ”并设置为四号宋体；
2、再建立 3个复选框，名称分别为 Checkl、 Check2和 Check3，标题分别为 “C+”、 “Basic”和 “JAVA”，字体大小均为四号宋体，加粗，其中 “JAVA”被禁用，如图 182所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上添加一个名称为 Textl的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标 题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在程序运行时，当用鼠标右键
3、单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图 683所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj3 vbp，窗体文件名保存为 sj3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，含有 Forml和Form2两个窗体，将 Forml的标题改为 “注册 ”，将 Form2的标题改为 “确认 ”；设置适当的属性，使 Form2标题栏右上 角的所有按钮消失 (如图 685所示 )；其中Form1为启动窗体，窗体上的控件如图 684所示。程序运行后，在 Forml窗体的文本框中输人有关信息 (“密码 ”文本框中显示 “*”
4、字符 )，然后单击 “提交 ”按钮，则弹出 “确认 ”对话框 (即 Form2窗体 )，并在 Form2中显示 forml中输入的信息，如图685所示。单击 “确认 ”按钮，则程序结束，单击 “重输 ”按钮，则 Form2消失，回到 Forml窗体。在给出的窗体文件中已经给出了程序，但不完整。注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。不能修改 程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sj5 vbp，其窗体上有一个文本框，名称为Textl；还有一个命令按钮，名称
5、为 Commandl，标题为 “输出结果 ”，如图 646所示。并有一个函数 isPrimeNum可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 true，否则返回 false。请编写适当的事件过程，使得在运行时，单击 “输出结果 ”按钮，则找出大于 2 000的最小素数，并 显示在 Textl中。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj5 frm，工程文件名为 sj5 vbp。 VB机试模拟试卷 85答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个垂直滚动条添加到窗体中，将其名称设为 VSl，
6、 Max属性为 50， Min属性为 0， Value属性为 50，然后双击 Forml窗体在 Form_Click事件中编写如下代码： Private Sub Form_Click() VSl Value=0 End Sub 单击 按钮 运行程序。并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个标签和 3个复选按钮添加到窗体中，标签的名称为I abetl， Caption属性为 “编程语言 ”，字体大小为四号， 3个复选按钮的名称分别为 Checkl、 Check2和 Check3 Caption属性分别为 “C+”、 “Basic”和 “JAVA”，字体均为四号宋体，且加粗
7、， Check3的 Value值为 2。设置后单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要是考查菜单编辑器的使用。根据题意，新建 “标准EXE”工程，建立菜单并设置菜单属性，如下表：再添加一个文本框控件名称为 Textl，双击进入代码窗口，编写如下代码： Private Sub M1_Click()Textl FontBold=TrueEnd SubPrivate Sub M2_Click() Textl FontItalic=True End Sub Private Sub M3_Click() Textl FontUnderline=Tr
8、ue End Sub Private Sub Textl_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button=2 Then Me PopupMenu Format End If End Sub 单击按钮运行程序，并按要求保存。 (2)根据题意，把 Forml窗体 Caption属性为 “注册 ”， Form2窗体 Caption属性为 “确认 ”， ControlBox属性为 False，双击进入代码窗口，编写如下代码： Private Sub C1_Click() Dim k A
9、s Integer Form2 Show Form2 Print Forml L1 Caption； Forml Textl Form2 Print Forml L2 Caption； Forml Text2 Form2 Print Forml L3 Caption；Forml Text3 Form2。 Print Forml Framel Caption； “： “； For k=0 To 1 If Forml Opl(k) Value Then Form2 Print Forml Opl(k) Caption End If Next k End Sub Private Sub Form L
10、oad() Text2 PasswordChar=“*“ End Sub 需要考生编写的Form2中的代码： Private Sub C1_Click() End End Sub Private Sub C2_Click() Unload Form2 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题重点考查函数调用、 For循环语句、 If判 断语句。素数的判断准则就是看该数除了 1及其本身外是否别无其他约数。要找出大于 2 000的最小素数，可以用 FOR循环语句逐个对大于 2 000的整数通过调用原题提供的isPrimeNum()函数判
11、断其是否为素数，若找到第一个素数，这就是最小素数，将其赋给 Textl的 Text属性，并用 Exit For结束循环。 根据题意，双击 Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Dim a As Integer Dim b AS Boolean a=2000 b=isPrimeNum(a) Wbile b=False a=a+1 b=isPrimeNum(a) Wend Textl Text=a End Sub Function isPrimeNum(num As Integer)As Boolean isP rimeNum=True Dim i AS Integer For i=2 To hum-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function 单击 按钮运行程 序，并按要求保存。
