1、VB机试模拟试卷 52及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个名称为 Checkl的复选框数组，它含 4个复选框，它们的标题依次为 “Iteml”、 “Item2”、 “Item3”和 “Item4”，其索引号分别为 0，l， 2， 3。初始状态下， “Iteml”和 “Item4”为选中状态。程序运行后的窗体界面如图191所示。 注意：存盘时必须存放考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上画一个名称为 VScrolll的 垂直滚动条，其刻度值范围为 1 200；画一个命令按钮，
2、名称为 Commandl、标题为 “向下移动 ”。请编写适当的事件过程，使得程序运行时，每单击命令按钮一次 (假定单击次数少于 10次 )，滚动块向下移动 20个刻度。程序运行时的窗体界面如图 192所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在窗体上设置两个标签，名称分别为 Labell与 Label2、标题分别为 “当前时 间为： ”和空；要求当单击窗体时， Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图
3、213所示。 注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj3 vbp与 sj3 frm。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个 0或 1的整数，相当于一次投币， 1代表正面， O代表反面。在窗体上画 3个名称分别为 Textl、 Text2和 Text3的文本框与一个名称为 Commandl的命令按钮，其中 Commandl的标题为 “开始 ”。文本框分别用于显示用户输入投币总次数、出现正面的次数和出现反而的次数。程序运行后，在文本框
4、 Textl中输入总次数，然后单击 “开始 ”按钮，按照输人的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。如图 214所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，其窗体上有 4个标签 Labell、Lable2、 Label3和 Label4，标题分别为 “用户名 ”、 “密码 ”、 “剩余次数 ”和 “5”；一个命令按钮 Commandl、标题为 “登录 ”；两个文本框名称分别为 Textl和
5、Text2，其中Textl用来输入用户名， Text2用来输入密码 (输入时，显示 “*”)，无初始内容。 程序给出了 Cornmandl的事件过程，但不完整，要求去掉程序中的注释符 “”，把程序中的 “?”改为正确内容，使得在运行时，在 Textl中输入用户名， Text2中输入密码后，单击 “登录 ”按 钮，如果输入的用户名和密码都是 “abcd”时，则在 Textl中显示 “登录成功 ”；如果输入其他内容，单击 “登录 ”后，弹出如图 355所示的错误提示对话框，并且 Label4中的数字减 1。最多可输人 5次口令，若 5次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。
6、最后把修改后的文件按原文件名存盘，运行结果如图 355所示。 VB机试模拟试卷 52答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查在窗体中添加控件数组及设置复选按钮控件(CheckBox)的 Value属性。 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标。添加控件数组的方法是：先通过工具箱建立第一个控件，然后对该控件进行 “复制 ”、 “粘贴 ”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的 Index值会自动从 0开始编号。复选按钮组可用于提供多重选择，每个复选按钮的选中状态由
7、其Value属性值决定： 0-UnChecked为未选； 1-Checked为选中； 2-Grayed为禁用 (即灰色 )。 根据题意，新建 “标准 EXE”工程，将一个复选按钮控 件添加到窗体中，再选中、复制、粘贴，在弹出的对话框中单击 “是 ”，即创建一个控件数组，设置其Index属性分别为 0、 1、 2、 3， Caption属性分别为 “Iteml”、 “Item2”、 “Item3”和“Item4”， “heml”和 “Item4”的值为 1， “Item2”和 “Item3”的属性为 0，单击 按钮运行程序，并按要求保存。 (2)本题主要考查滚动条 (HScrollBar)控件的
8、画法、属性设置及简单事件的编写。 滚动条多用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Value属性的值。滚动条的 Max属性、 Min属性限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围，在程序中改变 Value属性的值，滚动条滑块会随之移动到相应位置。 根据题意，新建 “标准 EXE”工程，将一个垂直滚动条控件和一个命令按钮添加到窗体中，垂直滚动条的名称为VScrolll、 Min属性为 1、 Max属性为 200，命令按钮的名称为 Commandl、 Caption属性为 “向 下移动 ”。双击命令按钮进入代码窗口，编写如下代码： Private Su
9、b Commandl_Click() VScrolll Value=VScrolll Value+20 每按一次按键，则 VScroll的数值加 20 End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查计时器控件和简单事件编程。计时器控件用以实现在规定的时间间隔触发其 Timer事件，执行有关事件过程代码来完成对应功能。Interval属性用于设置触发计时器的 Timer事件的 时间间隔，单位为毫秒。 Enabled属性控制计时器是否开始启用， True为启用， False为不启用； Time()函数用于返回系统当前时间。 根据题
10、意，新建 “标准 EXE”工程，将两个标签添加到窗体中，名称分别为 Labell和 Label2， Caption属性都为空，设置完成后双击 Form1，进入代码窗口，编写如下代码： Private Sub Form_Click() Label2 Caption=Time End Sub 单击 按钮运行程序，并按要求保存。 (2)Rnd()函数用于产生 0 1之内的随机数。根据 题意，将 3个标签、 3个文本框控件和一个命令按钮添加到窗体中，标签的 Caption属性分别为 “总次数 ”“正面 ”和 “反面 ”，文本框的名称分别为 Textl、Text2和 Text3， Caption属性为空
11、，命令按钮的名称为 Commandl、 Caption属性为“开始 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim a As Integer Dim i As Integer Dim bl As Integer Dim b2 As Integer bl=0 b2=0 a=Val(Textl Text) 通过 Textl获得总的次数 For i=1 To a a=Rnd()取随机数 If a=1 Then b1=b1+1 当随机到 1时，则 b1加 1 Else b2=b2+1 当随机到 0时，则 b2加 1 End If
12、 Next i Text2 Text=bl在 Text2中显示 1的个数 Text3 Text b2在 Text3中显示 0的个数 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 在文本框里显示 的内容通过 Text属性设置，其格式为：文本框名 Text=显示的内容。要使文本框内容显示为 “*”，需将 PasswordChar属性设置为 “*”。 MsgBox函数的格式为： MsgBox提示 ，按钮 ，标题 根据题意，将 4个标签、两个文本框控件和一个命令按钮添加到窗体中，标签的名称分别为 Labell、Label2、 Label3和 Labe
13、l4， Caption属性分别为 “用户名 ”、 “密码 ”、 “剩余次数 ”和“5”，文本框的名称分别为 Textl和 Text2、 Caption属性都为空， Text2的Passwordchar属性为 “*”，命令按钮的名称为 Commandl， Caption属性为 “登录 ”。补充后的具体代码如下： Private Sub Commandl Click() If Textl Text=“abcd“And Text2 Text=“abcd“Then MsgBox(“登录成功 “) Else MsgBox(“登录失败 “) Label4 Caption=Val(Label4 Caption)-1 End If If Val(Label4 Caption)=0 Then Textl Enabled=False Text2 Enabled=False Commandl Enabled=False End If End Sub 单击 按钮运行程序，并按要求保存。
