1、VB机试模拟试卷 175及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个标签，名称为 Labell，标签上显示 “密码 ”，在标签的右边画一个文本框，名称为 Textl，其宽和高分别为 1 600和 350，设置适当的属性使得在输入密码时，文本框中显示 “*”字符，另外再把窗体的标题设置为 “输入密码 ”，以上这些设置都只能在属性窗口中进行设置，运行时的窗体如图 251所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上画一个图片框，名称为 Picl。请编写适当的事件过
2、程，使得在运行时，每单击窗体一次就在窗体中输出 “窗体 ”一次，每单击图片框一次，就在图片框中输出 “图片框 ”一次，如图 252所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c:wexam25160001。 (1)在考生文件夹中有工程文件 sjt3.vbp及其窗体文件 sjt3.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )但不能修改其他部分。存盘时不得改变文件名
3、和文件夹。 本题描述如下： 在窗体上有一个名称为 Text1的文本框，一个名称为 C1，标题为 “校验 ”的命令按钮。其中文本框用来输入口令，如图 5-3所示，要求在文本框中输入的内容都必须以 “”显示 (请考生通过属性窗口设置 )。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这 3个大写字母，则用 MsgBox信息框输出 “正确 ”，否则输出 “错误 ”，如图5-4所示。 (2)在考生文件夹中有工程文件 sjt4.vbp及其窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )但不能修改其他
4、部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有 3个名称分别为 Ch1、 Ch2和 Ch3的复选框，标题依次为 “程序设计 ”、 “数据库原理 ”和 “计算机网络 ”，还有一个名称为 C1，标题为 “选课 ”的命令按钮，如图 5-5所示。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择 “程序设计 ”和 “数据库原理 ”复选框，单击命令按钮后，将在窗体上显示 “我选的课程是程序设计数据库原理 ”。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体
5、上画一个名称为 Textl的文本框；画一个名称为Commandl、标题为 “计算显示 ”的命令按钮；再画两个单选按钮，名称分别为Optionl和 Option2、标题分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求300到 400之间能被 6整除的数的个数 ”，如图 625所示。请 编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击 “计算显示 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结
6、束程序运行之前，必须至少要进行一种计算，否则不得分。 VB机试模拟试卷 175答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在设置属性时标签的名称由 Name属性设置，内容由 Caption属性设置。窗体 的标题由窗体的 Caption属性设置。要使文本框中输入的字符以 “*”号显示，可以将 PasswordChar属性设置为 “*”。 根据题意，新建 “标准 EXE”工程，将一个标签和一个文本框控件添加上窗体中，标签的名称为 Labell、 Caption属性为 “密码 ”，文本框的名称为 Textl、 Text属性为空， PasswordChar属性为 “*”、Heigh
7、t属性为 350、 width属性为 1 600， Forml的 Caption属性为 “输入密码 ”，设置完成后，单击 按钮运行程序，并按要求保存。 (2)单击窗体时触发 Form_Click事件，单击图片框时触发 Picl_Click事件。在对象中打印信息使用 Print方法，其语法格式为：对象 Print。省略对象时指在窗体上打印。 根据题意，新建 “标准EXE”工程，将一个图片控件添加到窗体中，其名称为 Picl，双击 Picl进入代码窗口，编写如下代码： Private Sub Form_Click() Print“窗体 “ 单击窗体 End Sub Private Sub Pic1
8、_Click() Picl Print“图片框 “ 单击图片框 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 单击命令按钮或窗体触发的是 Click事件，因此，程序中应该编写命令按钮的Click事件过程，按钮的标题通过 Caption属性设置；要使文本框的内容在输入时显示为 “*”，则应该将 PasswordChar属性设置为 “*”。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 5-3。第二步：编写程序代码。 程序提供的代码： Option Expli
9、cit Private Sub C1_Click() If Text1.Text = “?“ Then MsgBox “?“ Else MsgBox “错误 ” End Sub 参考代码： Option Explicit Private Sub C1_Click() If Text1.Text = “ABC“ Then MsgBox “正确 ” Else MsgBox “错误 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)建立好控件后，先设置控件属性，再编写事件过程。 复选框用来表 示状态，在程序运行期间可以改变其状态。复选框的标题由 Caption属性来设置，
10、复选框的 Value属性用来表示复选框的状态。其取值有如下几种： 0：表示复选框未被选中； 1：表示选中该复选框； 2：表示该复选框被禁止 (灰色 )。 在窗体上打印信息用 Print方法，单击命令按钮触发的是Click事件。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 5-4。 第二步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Dim s As String s=“我选的课程是 ” If Ch1.Value = 1 Then s=s &“程序设计 ” End If If Ch2.Value =
11、1 Then s=s &“数据库原理 ” End If If Ch3.Value = 1 Then s = s & Ch3.? End If Print ? End Sub 参考代码： Option Explicit Private Sub C1_Click() Dim s As String s=“我选的课程是 ” If Ch1.Value = 1 Then s= s &“程序设计 ” End If If Ch2.Value=1 Then s=s &“数据库原理 ” End If If Ch3.Value=1 Then s=s & Ch3.Caption End If Print s End
12、 Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为 Textl，单选按钮的名称：分别为 Optionl和Option2， Caption分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求 300到400之间能被 6整除的数的个数 ”，命令按钮的名称为 Commandl， Caption属性为“计算显示 ”，设置完成后，双击 Commandl进入代码窗口，补充后的具体代码如下： Private Sub Commandl_Click()
13、Dim rain As Integer下限 Dim max As Integer上限 Dim i As Integer循环计数 Dim mum As Integer个数 Dim tmp As Integer除数 If Optionl Value=True Then 选中 Optionl时 min=100 max=250 tmp=5 Else选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max利用循环来逐个判断 If i Mod tmp=0 Then num=num+1 如果能被除数整除，则个数加 1 End If Next i Textl Text=hum在 Textl文本框中显示出来 Open“App Path& out5 txt“For Output As#1 Print#1， Textl Text Close#1End Sub单击 按钮运行程序，并按要求保存。
