1、二级 VISUAL+BASIC 机试-105 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上建立一个名为 Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试 Visual Basic 课程”。程序运行情况如下图所示。注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 sj1.frm，工程文件名为 sj1.vbp。（分数：15.00）_2.在名为 Forml 的窗体上建立一个名为 HSl 的水平滚动条，其
2、最大值为 200，最小值为 0。要求程序运行后，每次移动滚动框时，都执行语句：Form1.PrintHS1.Value(如下图所示)。注意：程序中不能使用任何其他变量；文件必须存放在考生文件夹中，窗体文件名为 sj2.frm，工程文件名为 sj2.vbp。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp 及窗体文件 sj3.frm。在名为 Form1 的窗体上有两个框架，其中一个框架中有两个单选按钮，另一个框架中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能
3、是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置，如下图所示。窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_4.在考生文件夹中有文件 sj4.vbp 及其窗体文件 sj4.frm。在名为 Form1 的窗体上有两个复选项，名称分别为 Chk1 和 Chk2，标题分别为“寒假”
4、和“暑假”；两个单选按钮，名称分别为 Opt1 和 Opt2，标题分别为“今年有”和“今年没有”；一个名称为 Lab1 的标签(如下图所示)请设计程序。要求程序运行后，对复选框和单选按钮进行选择，然后单击窗体，可根据表中的规定在标签中显示相应的信息。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sj5.vbp 及窗体文件 sj5.frm。在窗
5、体 Form1 上给出了所有控件和不完整的程序，请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容。本程序的功能是：如果单击“读取”按钮，则把考生目录下的 in39.txt 文件中的 15 个姓名读到数组 a 中，并在窗体上显示这些姓名；当在 Text1 中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与 Text1 中相同的姓名或所有具有 Text1 中姓氏的姓名显示在 Text2 中(如下图所示)；若未找到，则在 Text2 中显示“不存在!”；若 Text1 中没有查找内容，则在 Text2 中显示“未输入查找内容!”。注意：考生不得修改程序的其
6、他部分和控件的属性，最后把修改后的文件按原文件名存盘。（分数：30.00）_二级 VISUAL+BASIC 机试-105 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上建立一个名为 Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试 Visual Basic 课程”。程序运行情况如下图所示。注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 sj1.frm，工程文件名为 sj1.vbp。（分数：15.00
7、）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，标题为“显示”；打开代码窗口输入如下代码：Private Sub Cmd1_Click()Print“计算机等级考试 VisualBasic 课程“End Sub按要求保存文件即完成本题。)解析：2.在名为 Forml 的窗体上建立一个名为 HSl 的水平滚动条，其最大值为 200，最小值为 0。要求程序运行后，每次移动滚动框时，都执行语句：Form1.PrintHS1.Value(如下图所示)。注意：程序中不能使用任何其
8、他变量；文件必须存放在考生文件夹中，窗体文件名为 sj2.frm，工程文件名为 sj2.vbp。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 HScrollBar 控件图标，在窗体上拖拉出一个水平滚动条，在属性窗口设置该水平滚动条名称为 HS1，Max 为 200，Min 为 0；滚动条的属性用来标识滚动条的状态，本题中用到的属性有 Max(滚动条所能表示的最大值，取值范围为-3276832768)，Min(滚动条所能表示的最小值，取值范围与 Max 相同)，Value(该属性表示滚动框在滚动条上的当前位置)；打开代码窗口输入如下代码：Private Su
9、b HS1_Change()ClsForm1.Print HS1End Sub按要求保存文件即完成本题。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp 及窗体文件 sj3.frm。在名为 Form1 的窗体上有两个框架，其中一个框架中有两个单选按钮，另一个框架中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置，如下图所示。窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程
10、，完成上述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(打开题目所给工程文件；打开代码窗口输入下代码：Private Sub Cmd1_Click()If Opt1.Value=True ThenText1.Font=“宋体“ElseText1.Font=“隶书“End IfIf Chk1.Value=1 ThenText1.Fonimages/tunderline=imag
11、es/tureElseText1.Fonimages/tunderline=FalseEnd IfIf Chk2.Value=1 ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEnd IfEnd Sub按要求保存文件即完成本题。)解析：4.在考生文件夹中有文件 sj4.vbp 及其窗体文件 sj4.frm。在名为 Form1 的窗体上有两个复选项，名称分别为 Chk1 和 Chk2，标题分别为“寒假”和“暑假”；两个单选按钮，名称分别为 Opt1 和 Opt2，标题分别为“今年有”和“今年没有”；一个名称为 Lab1 的标签(如下图所示)
12、请设计程序。要求程序运行后，对复选框和单选按钮进行选择，然后单击窗体，可根据表中的规定在标签中显示相应的信息。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(打开题目所给工程文件；将注释语句改为：If Chk1.Value=1 AndChk2.Value=0 And Opt1.Value ThenLab1.Caption=“今年只放寒假“If Chk1.Value=1 AndChk2.Value=0 And Opt
13、2.Value ThenLab1.Caption=“今年不放寒假“，按要求保存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sj5.vbp 及窗体文件 sj5.frm。在窗体 Form1 上给出了所有控件和不完整的程序，请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容。本程序的功能是：如果单击“读取”按钮，则把考生目录下的 in39.txt 文件中的 15 个姓名读到数组 a 中，并在窗体上显示这些姓名；当在 Text1 中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与 Text1 中相同的姓名或所有具有 Text1 中姓氏的姓名显示在 Text2 中(如下图所示)；若未找到，则在 Text2 中显示“不存在!”；若 Text1 中没有查找内容，则在 Text2 中显示“未输入查找内容!”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。（分数：30.00）_正确答案：(打开题目所给工程文件；将注释语句改为：Close#1n=Len(Text1.Text)If Left(a(k),n)=Text1.Text Thenc=c+“ “+a(k)Text2.Text=c按要求保存文件即完成本题。)解析：
