1、VB 机试-试卷 7 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上建立一个垂直滚动条，请在属性窗口中把它的名称设置为 VSl，Max 属性设置为 50Mill 属性设置为 0Value 属性设置为 50。程序运行后，滚动块位于滚动条最下端，如图 181 所示，如果单击滚动条之外的窗体部分，则滚动块跳到最上端。 注意：只能直接为相应的属性赋值，不得使用变量。保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Form
2、l 的窗体中建立一个标签，名称为 Lablel，在标签上显示“编程语言”并设置为四号宋体；再建立 3 个复选框，名称分别为 Checkl、Check2 和 Check3，标题分别为“C+”、“Basic”和“JAVA”，字体大小均为四号宋体，加粗，其中“JAVA”被禁用，如图 182 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在名称为 Forml 的窗体上添加一个名称为 Textl 的文本框，再建立一个名称为 Format 的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为 M1、M2、
3、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图 683 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj3vbp，窗体文件名保存为 sj3frm。 (2)在考生文件夹下有一个工程文件 sjt4vbp，含有 Forml 和 Form2 两个窗体，将 Forml 的标题改为“注册”，将 Form2 的标题改为“确认”；设置适当的属性，使 Form2 标题栏右上角的所有按钮消失(如图 685 所示)；其中 Form1 为启动窗体，窗体上的控件如图 684 所示。程序运行后，在 Forml
4、窗体的文本框中输人有关信息(“密码”文本框中显示“*”字符)，然后单击“提交”按钮，则弹出“确认”对话框(即 Form2 窗体)，并在 Form2 中显示forml 中输入的信息，如图 685 所示。单击“确认”按钮，则程序结束，单击“重输”按钮，则 Form2 消失，回到 Forml窗体。在给出的窗体文件中已经给出了程序，但不完整。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生目录下有一个工程文件 sj5vbp，其窗体上有一个文本框，名称为 Textl；还有一个命令按钮，名称为 Commandl，标题为“输出结果”，如图 6
5、46 所示。并有一个函数 isPrimeNum 可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 true，否则返回 false。请编写适当的事件过程，使得在运行时，单击“输出结果”按钮，则找出大于 2 000 的最小素数，并显示在 Textl 中。（分数：2.00）_VB 机试-试卷 7 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上建立一个垂直滚动条，请在属性窗口中把它的名称设置为 VSl，Max 属性设置为 50Mill 属性设置为
6、 0Value 属性设置为 50。程序运行后，滚动块位于滚动条最下端，如图 181 所示，如果单击滚动条之外的窗体部分，则滚动块跳到最上端。 注意：只能直接为相应的属性赋值，不得使用变量。保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Forml 的窗体中建立一个标签，名称为 Lablel，在标签上显示“编程语言”并设置为四号宋体；再建立 3 个复选框，名称分别为 Checkl、Check2 和 Check3，标题分别为“C+”、“Basic”和“JAVA”，字体大小均为四号宋体，加粗，其中“JAVA”被禁用，如图 182 所示。 （分数
7、：2.00）_正确答案：(正确答案： (1)根据题意，新建“标准 EXE”工程，将一个垂直滚动条添加到窗体中，将其名称设为 VSl，Max 属性为 50，Min 属性为 0，Value 属性为 50，然后双击 Forml 窗体在 Form_Click 事件中编写如下代码： Private Sub Form_Click() VSlValue=0 End Sub 单击 按钮运行程序。并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个标签和 3 个复选按钮添加到窗体中，标签的名称为 Iabetl，Caption 属性为“编程语言”，字体大小为四号，3 个复选按钮的名称分别为Checkl
8、、Check2 和 Check3Caption 属性分别为“C+”、“Basic”和“JAVA”，字体均为四号宋体，且加粗，Check3 的 Value 值为 2。设置后单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在名称为 Forml 的窗体上添加一个名称为 Textl 的文本框，再建立一个名称为 Format 的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为 M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中
9、文本的格式，如图 683 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj3vbp，窗体文件名保存为 sj3frm。 (2)在考生文件夹下有一个工程文件 sjt4vbp，含有 Forml 和 Form2 两个窗体，将 Forml 的标题改为“注册”，将 Form2 的标题改为“确认”；设置适当的属性，使 Form2 标题栏右上角的所有按钮消失(如图 685 所示)；其中 Form1 为启动窗体，窗体上的控件如图 684 所示。程序运行后，在 Forml 窗体的文本框中输人有关信息(“密码”文本框中显示“*”字符)，然后单击“提交”按钮，则弹出“确认”对话框(即 Form2 窗
10、体)，并在 Form2 中显示forml 中输入的信息，如图 685 所示。单击“确认”按钮，则程序结束，单击“重输”按钮，则 Form2 消失，回到 Forml窗体。在给出的窗体文件中已经给出了程序，但不完整。 （分数：2.00）_正确答案：(正确答案：(1)本题主要是考查菜单编辑器的使用。根据题意，新建“标准 EXE”工程，建立菜单并设置菜单属性，如下表： 再添加一个文本框控件名称为 Textl，双击进入代码窗口，编写如下代码： Private Sub M1_Click() TextlFontBold=True End Sub Private Sub M2_Click() TextlFon
11、tItalic=True End Sub Private Sub M3_Click() TextlFontUnderline=True End Sub Private Sub Textl_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then MePopupMenu Format End If End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，把 Forml 窗体 Caption 属性为“注册”，Form2 窗体 Caption 属性为“确认”，Control
12、Box 属性为 False，双击进入代码窗口，编写如下代码： Private Sub C1_Click() Dim k As Integer Form2 Show Form2Print FormlL1Caption；FormlTextl Form2Print FormlL2Caption；FormlText2 Form2Print FormlL3Caption；FormlText3 Form2。Print FormlFramelCaption；“：“； For k=0 To 1 If FormlOpl(k)Value Then Form2Print FormlOpl(k) Caption En
13、d If Next k End Sub Private Sub Form Load() Text2 PasswordChar =“*“ End Sub 需要考生编写的 Form2 中的代码： Private Sub C1_Click() End End Sub Private Sub C2_Click() Unload Form2 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生目录下有一个工程文件 sj5vbp，其窗体上有一个文本框，名称为 Textl；还有一个命令按钮，名称为 Commandl，标题为“输出结果
14、”，如图 646 所示。并有一个函数 isPrimeNum 可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 true，否则返回 false。请编写适当的事件过程，使得在运行时，单击“输出结果”按钮，则找出大于 2 000 的最小素数，并显示在 Textl 中。（分数：2.00）_正确答案：(正确答案：本题重点考查函数调用、For 循环语句、If 判断语句。素数的判断准则就是看该数除了 1 及其本身外是否别无其他约数。要找出大于 2 000 的最小素数，可以用 FOR 循环语句逐个对大于2 000 的整数通过调用原题提供的 isPrimeNum()函数判断其是否为素数
15、，若找到第一个素数，这就是最小素数，将其赋给 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 单击 )解析：
