1、VB机试模拟试卷 178及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体 Forml中绘制一个名称为 Textl、内容空的文本框和一个名称为Commandl、标题为 “大写 ”的命令按钮。要求程序运行时，在文本框中输入英文字母，单击 “大写 ”，文本框中的字母全部以大写字母显示。程序代码中不得使用任何变量。程序运行的效果如图 531所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl Vbp。 (2)在名为 Form1的窗体上绘制一个容器，名称为 Framel，标题为 “框架 ”、高度为 2400、宽度为 2000；再在容器中绘制一个标签，名
2、称为 Labell、高度为 500、宽度为 1200，其位置距容器的左边框 300，距容器的上边框 800，标签中的初始内容设置为 “模拟试题 ”，BorderStyle属性为 2。只建立控件，不必定义其事件过程。程序运行时的窗体界面如图 532所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在窗体上绘制一个名称为 Textl的文本框，然后建立两个主菜单，标题分别为“系别 ”和 “帮助 ”，名称分别为 vbMenu和 vbHelp，其中 “系别 ”菜单包括 “工商管理 ”、 “信息科学与工程 ”、 “
3、机械工程与自动化 ”3个子菜单，名称分别为 vbMenul、vbMenu2、 vbMenu3。要求程序运行后，如果在 “系别 ”的下拉菜单中选择 “工商管理 ”，则在文本框内显示 “金融学、国际贸易学 ”；如果选择 “信息科学与工程 ”，则在文本框内显示 “系统工程、计算机应用技术 ”；如果选择 “机械工程与自动化 ”，则在文本框内显示 “机械工程、车辆电子工程 ”(要求：不能使用任何变量，直接显示字符串 )。程序运行时，选择 “工商管理 ”选项，程序运行窗体显示如图 293所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 sj3 Vbp。 (2)在考生文
4、件夹中有文件 sj4 vbp及其窗体文件 sj4 frm，该程序是不完整的。窗体上面有两个名称分别为 Commandl和 Command2、标题分别为“输入维数 ”和 “计算 ”的命令按钮。程序运行后，如果单击 “输人维数 ”命令按钮，则对数组 a的维数进行赋值，初始化数组 (通过等式 a(i， j)=i*j计算 )；如果单击 “计算 ”命令按钮，则求出二维数组 a(i， j)的各元素之和，并 在文本框中显示出来。请设置相应的控件并编写程序实现该功能。程序运行效果如图 294所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分
5、。存盘时不得改变文件和文件名。考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4 vbp与sj4 frm。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确定 ”； 两个文本框名称分别为 Text1和 Text2，其中 Text1用来输入口令 (输入时，显示 “*”)，无初始内容Text2的初始内容为 3，如图 31所示。 程序给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确内容，使得在运行时，
6、在 Text1中输入口令后，单击 “确定 ”按钮，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”后，弹出错误提示对话框，并且 Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程 序中的其他部分。最后把修改后的文件按原文件名存盘。VB机试模拟试卷 178答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Textl、 Text属性为空，命令按钮的名称为Commandl、 Capt
7、ion属性为 “大写 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Textl Text=UCase(Textl Text) 将 Textl中 的字符变为大写 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个框架控件和一个标签添加到窗体中，框架的名称为Framel、 Caption属性为 “框架 ”，标签的名称为 Labell、 Caption属性为 “模拟试题 ”、 BorderStyle属性为 2、 Left属性为 300、 Top属性为 800、 Width属性为120
8、0、 Height属性为 500。单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程， 单击窗体空白处，在弹出的快捷菜单中选择 “菜单编辑器 ”命令，打开菜单编辑器，输入以下菜单项： 编写如下代码： Private Sub vbMenul Click() Textl Text=“金融学、国际贸易学 “ End Sub Private Sub vbMenu2 Click() Textl Text=“系统工程、计算机应用技术 “ End Sub Private Sub vbMenu3 Click() Textl Text=“
9、机械工程、车辆电子工程 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要通过 InputBox函数给变量 a、 b赋值，然后利用 a(i，j)=i*j对数组进行初始化，即求出 a(i， j)中各元素，最后再对各元素进行求和。补充后的代码如下： Dim a As Integer Dim b As Integer Private Sub Commandl Click() a=Val(InputBox(“输入维数： “) 利用输入对话框输入维数 b=Val(InputBox(“输入维数： “) End Sub Private Sub Command2 Click() Dim t
10、otal As Long total=0 Dim i As Integer Dim j As Integer For i=1 To a利用双层循环遍历所有数组的数 For j=1 To b total=total+i*j 求和 Next j Next i Textl Text=total将结果显示在 Textl中 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在文本框里显示的内容通过 Text属性设置，其形式为： 文本框名 .Text显示的内容 要使文本框内容显示为 “*”，需将 Pas
11、swordChar属性设置为 “*”。 程序中用到的 MsgBox语句用法为： MsgBox提示 ,按钮 ,标题 在程序运行时控件是否可操作由 Enabled属性设置，当该属性为 True时控件可操作，为 False时不可操作。若 3次都输入错误，禁止再次输入，将文本框的Enabled属性置为 False即可。 解题步骤： 第一步：建立界 面并设置控件属性。程序中用到的控件及其属性值见表 4。 表 4控 件 属 性 设 置 值 文本框 Name Text Text1 空 文本框 Name Text Text2 3 命令按钮 Name Caption C1 确定 标签 Name Caption
12、L1 口令 标签 Name Caption L2 输入次数 第二步：编写程序代码。 程序提供的代码： Private Sub C1_Click() If?=“123456“ Then Text1.Text “口令正确 “ Text1.? “ Else Text2.Text Text2.Text1 If Text2.Text ?Then MsgBox “第 “ & (3Text2.Text) & “次口令错误，请重新输入 “ Else MsgBox “3次输入错误，请退出 “ Text1.Enabled=? End If End If End Sub 参考代码： Private Sub C1_Click() If Text1.Text=“123456“ Then Text1.Text=“口令正确 “ Text1.PasswordChar=“ Else Text2.Text=Text2.Text1 If Text2.Text 0 Then MsgBox “第 “ & (3Text2.Text) & “次口令错误，请重新输入 “ Else MsgBox “3次输入错误，请退出 “ Text1.Enabled= False End If End If End Sub 第三步：调试并运行程序。 第四步 ：按题目要求存盘。
