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