1、二级 VISUAL+BASIC 机试 36 及答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在名称为 Form1 的窗体上画一个名称为 H1 的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为 1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1 和 L2 的标签，并分别显示 1 和 100，运行时的窗体如图19-1 所示。
2、注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm (2) 在名称为 Form1 的窗体上画两个文本框，名称分别为 Text1 和 Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个子菜单项，名称分别为 Cooy 和 Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1 中的内容复制到 Text2 中，单击“清除”菜单项，则清除 Text2 中的内容(即在 Text2 中填入空字符串)。程序运行界面如图 19-2 所示。要求在程序中不得使
3、用任何变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。(1) 在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 L1，请画一个单选按钮数组，名称为 Op1，含三个单选按钮，它们的 Index 属性分别为 0、1 和 2，标题依次为“飞机”、“火车”、“汽车”，再画一个名称为 Text1 的文本框。窗体文件中已经给出了 Op1 的 Cl
4、ick 事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“飞机”或“火车”单选按钮时，在 Text1 中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在 Text1 中显示“我开汽车去”。程序运行界面如图 19-3 所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2) 在考生文件夹下有一个工程文件 sjt4.vbp，Form1 窗体中有一个文本框，名称为 Text1；请在窗体上画两个框架，名称分别为 F1 和 F2，标题分别为“性别”和“身份”；在 F1 中画两个单选按钮 Op1 和 Op2，标题分别为“男”和“女
5、”；在 F2 中画两个单选按钮 Op3 和 Op4，标题分别为“学生”和“教师”；再画一个命令按钮，名称为 C1，标题为“确定”。程序运行界面如图 19-4 所示。请编写适当的事件过程，使得在运行时，在 P1 和 F2 中各选一个单选按钮，然后单击“确定”按钮，就可以按照表 19-1 把结果显示在文本框中。表 19-1 性 别 身 份 在文本框中显示 的内容男 学生 我是男学生男 教师 我是男教师女 学生 我是女学生女 教师 我是女教师注意：考生不得修改窗体文件中已经存在的程序和 Text1 的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，
6、否则无成绩。（分数：40.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”：两个文本框名称分别为为 Text1 和 Text2，其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。 程序给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在 Text1 中输入口令
7、后，单击“确定”按钮，如果输入的是“123456”则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图 19-5 所示的错误提示对话框，并且 Text2 中的数字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：30.00）_二级 VISUAL+BASIC 机试 36 答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在名称为
8、Form1 的窗体上画一个名称为 H1 的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为 1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1 和 L2 的标签，并分别显示 1 和 100，运行时的窗体如图19-1 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm (2) 在名称为 Form1 的窗体上画两个文本框，名称分别为 Text1 和 Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称
9、为 M1，此菜单下含有两个子菜单项，名称分别为 Cooy 和 Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1 中的内容复制到 Text2 中，单击“清除”菜单项，则清除 Text2 中的内容(即在 Text2 中填入空字符串)。程序运行界面如图 19-2 所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_正确答案：()解析：解析 滚动条的最大值由 Max 属性设置，最小值由 Min 属性
10、设置。鼠标卓击滚动条上滚动框以外的区域(不包括两边按钮)滑块移动的增量值由 LargeChange 属性设置。标签上的标题由 Caption 属性设置，控件的名称由 Name 属性设置。解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 19-2。表 19-2 控 件 属 性 设 置 值Label Name Caption L1 1Lzbel Name Caption L2 100HscrollbarNameMaxMinLargechange H1100110第二步：调试并运行程序。第三步：按题目要求存盘。(2) 解析 在 Visual Basic 中，菜单项通过“菜单编辑器
11、”窗口建立，在窗体上单击右键选择“菜单编辑器”选项可以打开“菜单编辑器”窗口；文本框的内容由 Text 属性设置，其形式为：文本框名Text=要显示的内容。解题步骤：第一步：建立界面并设置控件属性。程序中用到的菜单项和控件的属性见表 19-3。表 19-3 标 题 名 称 内 缩 符 号操作 M1 0复制 Copy 1清除 Clear 1Text Name Text1Text Name Text2第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Clear_Click()Text2.Text=“End SubPrivate Sub Copy_Click()T
12、ext2.Text=Text1.TextEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。(1) 在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 L1，请画一个单选按钮数组，名称为 Op1，含三个单选按钮，它们的 Index 属性分别为 0、1 和 2，标题依次为“飞机”、“火车”、“汽车”，再画一个名称为 Text1 的文本框。窗体文件中已经给出了 Op1 的 Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的?
13、改为正确的内容，使得在运行时单击“飞机”或“火车”单选按钮时，在 Text1 中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在 Text1 中显示“我开汽车去”。程序运行界面如图 19-3 所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2) 在考生文件夹下有一个工程文件 sjt4.vbp，Form1 窗体中有一个文本框，名称为 Text1；请在窗体上画两个框架，名称分别为 F1 和 F2，标题分别为“性别”和“身份”；在 F1 中画两个单选按钮 Op1 和 Op2，标题分别为“男”和“女”；在 F2 中画两个单选按钮 Op3 和 Op4，标题分别为“
14、学生”和“教师”；再画一个命令按钮，名称为 C1，标题为“确定”。程序运行界面如图 19-4 所示。请编写适当的事件过程，使得在运行时，在 P1 和 F2 中各选一个单选按钮，然后单击“确定”按钮，就可以按照表 19-1 把结果显示在文本框中。表 19-1 性 别 身 份 在文本框中显示 的内容男 学生 我是男学生男 教师 我是男教师女 学生 我是女学生女 教师 我是女教师注意：考生不得修改窗体文件中已经存在的程序和 Text1 的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。（分数：40.00）_正确答案：()解析：解析 标签
15、和单选按钮的标题均由各自的 Caption 属性设置。程序中需要检测的单选按钮的状态，这可以通过 Value 属性来实现。如果单选按钮被选中，则 Value 值为 1；否则 Value 值为 0。当建立控件数组时，系统给每个元素赋一个惟一的索引号 (Index)，通过属性窗口的 Index 属性，可以知道该控件的下标是多少在文本框里显示内容通过 Text 属性设置，其形式为：文本框名.Text=显示的内容程序中用到了 Select Case 语句，格式如下：Select Case 变量或表达式(对于本题来说就是控件数组元素的下标)Case 表达式列表 1语句块 1Case 表达式列表 2语句块
16、 2Case Else语句块 n+1End Select解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 19-4。表 19-4 对 象 属 性 设 置 值Text Name Text1NameCaption Opl(0)飞机NameCaption Opl(1)火车 单选按钮NameCaption Opl(2)汽车标签框 Name Caption Lable1 请选择第二步：编写程序代码。程序提供的代码：Private Sub Op1_Click(Index As Integer)Dim a As String, b As String, c As Stringa=“我坐“
17、b=“我开“ Select Case ?Case 0Text1.Text=a+Me.Op1(0) .Caption+“去“Case 1 Text1.Text=?+Me.Op1(1) .Caption+“去“Case 2Text1.Text=b+Me.Op1(2) .Caption+“去“End SelectEnd Sub参考代码：Private Sub Op1 Click(Index As Integer)Dim a As String, b As String, c As Stringa=“我坐“b=“我开“Select Case IndexCase 0Text1.Text=a+Me.Op1
18、(0) .Caption+“去“Case 1Text1.Text=a+Me.Op1(1) .Caption+“去“Case 2Text1.Text=b+Me.Op1(2) .Caption+“去“End SelectEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮标题由 Caption 属性设置，单击命令触发 Click 事件；单选按钮的标题由 Caption 属性设置，程序中需要检测的单选按钮的状态，通过 Value 属性来实现，如果单选按钮被选中，则 Value 值为 1，否则 Value 值为 0。
19、在文本框中显示内容通过 Text 属性实现，其形式为：文本框名.Text=显示的内容。解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 19-5。表 19-5 对 象 属 性 设 置 值Text Name Text1单选按钮 Name Caption Op1 男单选按钮 Name Caption Op2 女单选按钮 Name Caption Op3 学生单选按钮 Name Caption Op4 教师Frame Name Caption F1 性别Frame Name Caption F2 身份命令按钮 Name Caption C1 确定第二步：编写程序代码。参考代码：P
20、rivate Sub C1_Click()Text1.Text=“我是“If Op1.Value ThenText1.Text=Text1.Text & Op1.CaptionElseText1.Text=Text1.Text & Op2.CaptionEnd IfIf Op3.Value ThenText1.Text=Text1.Text & Op3.CaptionElseText1.Text=Text1.Text & Op4.CaptionEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Open “out4.txt“ For O
21、utput As #1Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.TextClose #1End Sub第三步：调试并运行程序。第四步：按题目要求存盘。三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”：两个文本框名称分别为为 Text1 和 Text2，其中 Text1 用来输入口令(输
22、入时，显示“*”)，无初始内容；Text2 的初始内容为 3。 程序给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在 Text1 中输入口令后，单击“确定”按钮，如果输入的是“123456”则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图 19-5 所示的错误提示对话框，并且 Text2 中的数字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：30.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置
23、控件属性，再编写事件过程。在文本框里显示的内容通过 Text 属性设置，其形式为：文本框名.Text=显示的内容要使文本框内容显示为“*”，需将 PasswordChar 属性设置为“*”。程序中用到的 MsgBox 语句用法为：MsgBox 提示，按钮，标题在程序运行时控件是否可操作由 Enabled 属性设置，当该属性为 True 时控件可操作，为 False 时不可操作。若 3 次都入错误，禁止再次输入，将文本框的 Enabled 属性置为 False 即可。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表 19-6。表 19-6 控 件 属 性 设 置 值文本框
24、 Name Text Text1 空文本框 Name Text Text2 3命令按钮 Name Caption C1 确定标签 Name Caption L1 口令标签 Name Caption L2 输入次数第二步：编写程序代码。程序提供的代码：PriVate Sub C1_CliCk() If ? = “123456“ ThenText1.Text=“口令正确“ TeXt1.?=“ElseText2.Text=TeXt2.Text-1 If TeXt2.Text? ThenMsgBox“第“& (3-Text2.Text) &“次口令错误，请重新输入“ElseMsgBox“3 次输入错误
25、，请退出“ Text1.Enabled=?End IfEnd IfEnd Sub参考代码：Private Sub C1_Click()If Text1.Text=“123456“ ThenText1.Text=“口令正确“TeXt1.PasswordChar=“ElseText2.Text=TeXt2.Text-1If TeXt2.Text0 ThenMsgBox“第“ & (3-Text2.Text) & “次口令错误，请重新输入“ElseMsgBox“3 次输入错误，请退出“Text1.Enabled=FalseEnd IfEnd IfEnd SUb第三步：调试并运行程序。第四步：按题目要求存盘。
