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