1、VB机试模拟试卷 84及答案与解析 一、基本操作题（ 30分） 1 (1)在 Forml的窗体上绘制一个图片框，其名称为 Picturel。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的 (300， 600)位置处开始显示 “Visual Basic。程序运行情况如图 361所示。 注意：程序中不得使用任何变量。文件必须存放在考生文件夹中，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在Forml的窗体上绘制一个文本框，名称为 Textl；绘制一个命令按钮，名称为Commandl，标题 为 “显示 ”， TabIndex属性设为 0。请为 Commandl设置
2、适当的属性，使得当焦点在 Commandl时，按 Esc键就调用 Commandl的 Click事件，该事件过程的作用是在文本框中显示 “Visual Basic程序设计 ”，程序运行结果如图 362所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2 vbp，窗体文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有工程文件 sj3 vbp及其窗体文件 sj3 frm，该程序是不完整的，在窗体上有 两个名称分别为 Textl和 Text2的文本框，一个名称为Commandl，标题为 “登录 ”的命令按钮。其中 Textl文本框用来输入
3、用户名， Text2文本框用来输入口令，要求在 Text2文本框中输人的内容都必须以 “*”显示 (请考生通过属性窗口设置 )，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是 “ABC”这 3个大写字母，则用 MsgBox信息框输出 “正确 ”，否则输出 “错误 ”，如图 183所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代 码前的所有注释符 (即 “”号 )。但不能修改其他部分。存盘时不得 -改变文件名和文件夹。 (2)在考生文件夹中有工程文件 sj4.vbp及其窗体文件 sj4 frm，该程序是不完整的。
4、在窗体上有 3个名称分别为 Checkl、 claeck2和 check3的复选框，标题依次为 “c+”、 “Basic”和“JAVA”；有一个名称为 Labell，标题为 “编程语言 ”的标签，还有一个名称为Commandl，标题为 “显示 ”的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择 “C+”和 “JAVA”复选框，单击显示按钮后，将在窗体上显示 “我会的编程语言是 C+JAVA”，如图184所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件
5、名和文件夹。 三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sj5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确定 ”；两个文本框，名称分别为 Text1和 Text2。其中 Text1用来输人口令 (输入时，文本 框内容显示 “*”)，初始内容为空； Text2的初始内容为 3。并给出了 Cl的事件过程，但不完整，要求去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使得程序运行时，在Text1中输人口令后，单击 “确定 ”，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如
6、果输入其他内容，单击 “确定 ”后，弹出错误提示对话框 (如图 686所示 )，并且 Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 VB机试 模拟试卷 84答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查图片框控件的画法和属性设置，以及简单的窗体事件的编写。根据题意，新建 “标准 EXE”工程，在窗体上添加一个名称为 Picturel的图片框，设计完成后，进入代码窗口编写如下代码： Private Sub Form_Click() Picturel Curre
7、ntX=300 图片框 X方向坐标 Picturel CurrentY=600 图片框 Y方向坐标 Picturel Print“Visual Basic“ 在图片框显示 Visual Basic End Sub 单击 按 钮运行程序，并按要求保存。 (2)命令按钮的 Cancel属性返回或设置一个值，用来指示窗体中命令按钮是否为取消按钮，它有两种取值： True和 False。值为 True时，命令按钮不是窗体的取消按钮，按 Esc键与单击该命令按钮的作用相同；值为False时，命令按钮是窗体的取消按钮。 根据题意，新建 “标准 EXE”工程，在窗体上添加一个文本框，其名称为 “Textl”
8、，一个命令按钮，其名称为 Commandl、Caption属性为 “显示 ”、 Cancel属性为 “True”， TabIndex属性为 0。设置完成后双击Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Textl Text=“Visual Basic程序设计 “ End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将两个文本框控件和命令按钮添加到窗体中，两个文本框的名称为 Textl和 Text2， Text2的 PasswordChar属性为 “*”，命令按钮的名称为 Com
9、mandl， Caption属性为 “登录 ”。双击 Commandl进入代码编辑窗口，编写如下代 码： Private Sub Commandl_Click() If Textl Text=“ABC“And Text2 Text=“ABC“Then判断是否都为 ABC MsgBox(“正确 “) 是则弹出 “正确 ”对话框 Else MsgBox(“错误 “) 否则弹出 “错误 ”对话框 End If End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将 3个复选按钮控件、一个标签和一个命令按钮添加到窗体中，标签的 Caption属性为 “编程语言 ”，命令按钮的名称为Co
10、mmandl， Caption属性为 “显示 ”， 3个复选按钮控件的名称分别为 Checkl、Check2和 Check3， Caption属性分别为 “C+”、 “Basic”和 “JAVA”。双击命令按钮进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String str=“我会的编程语言是 “ If Checkl Value=1 ThenCheckl被选中 str=str+Checkl Caption End If If Check2 Value=1 ThenCheck2被选中 str=str+Check2 Captio
11、n End If If Check3 Value=1 ThenCheck3被选中 str=str+Check3 Caption End If Print str End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查文本框的 Text、 PasswordChar和 Enabled属性， &连接符以及 MsgBox()函数。根据题意将文本框控件 Text1的 PasswordChar属性设置为 “*”。双击进入代码窗口，编 写如下代码： Private Sub C1_Click() If Text1 Text=“123456“Then Text1.Text=“口令正确 “ Text1 PasswordChar=“ Else Text2 Text=Text2 Text-1 If Text2 Text0 Then MsgBox“第 “&(3-Text2 Text)&“次 13令错误，请重新输入 “ Else MsgBox“3次输入错误，请退出 “ Text1 Enabled=False End If End IfEnd Sub单击 按钮 运行程序，并按要求保存。
