1、(A)二级 VISUAL+BASIC 笔试-11 及答案解析(总分:100.00,做题时间:90 分钟)一、基本操作题(总题数:2,分数:40.00)1.请在名称为 Form1 的窗体上添加一个名称为 H1 的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为 1,最大刻度值为 100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动 10 个刻度。再在滚动条下面画两个名称分别为 L1 和 L2 的标签,并分别显示 1 和 100,运行时的窗体如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt1.vbp,窗体文件名为 sj
2、t1.frm。(分数:20.00)_2.在名称为 Form1 的窗体上添加两个名称分别为 Text1 和 Text2 的文本框,初始内容均为空;再建立一个下拉菜单。菜单标题为“操作”,名称为 M1,此菜单下含有两个菜单项,名称分别为 Copy 和 Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把 Texl1 中的内容复制到 Text2 中,单击“清除”选项菜单,则清除 Text2 中的内容(即在 Text2 中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。注意:存盘时必须存放在考生文
3、件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。(分数:20.00)_二、简单应用题(总题数:2,分数:40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp,窗体上已经有一个标签 Label1,请添加一个单选按钮数组,名称为 Op1,含三个单选按钮,它们的 Index 属性分别为 0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为 Text1 的文本框。窗体文件中已经给出了 Op1 的 Click 事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在 Text1 中显示“
4、我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在 Text1 中显示“我开汽车去”,如图所示。注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(分数:20.00)_4.在考生文件夹下有一个工程文件 sjt4.vbp,Form1 窗体中有一个文本框,名称为 Text1;请先在窗体上添加两个框架控件,名称分别为 F1、F2,标题分别为“性别”、“身份”;然后在 F1 中添加两个单选按钮控件 Op1、Op2,标题分别为“男”、“女”;其次在 F2 中添加两个单选按钮控件 Op3、Op4,标题分别为“学生”、“教师”;最后再添加一个命令按钮,名称为 C1,标题为“确定”,如图
5、所示。请编写适当的事件过程,使得运行时,在 F1、F2 中各选一个单选按钮,然后单击“确定”按钮,就可以按照下表把结果显示在文本框中。(分数:20.00)_三、综合应用题(总题数:1,分数:20.00)5.以下数列:1,1,2,3,5,8,13,21的规律是从第 3 个数开始,每个数都是其前面两个数之和。在考生文件夹下有一个工程文件 sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第 n 项的值,并在文本框中显示,n 是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。注意:不能修改
6、已经给出的程序和已有的控件的属性:在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。(分数:20.00)_(A)二级 VISUAL+BASIC 笔试-11 答案解析(总分:100.00,做题时间:90 分钟)一、基本操作题(总题数:2,分数:40.00)1.请在名称为 Form1 的窗体上添加一个名称为 H1 的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为 1,最大刻度值为 100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动
7、框移动 10 个刻度。再在滚动条下面画两个名称分别为 L1 和 L2 的标签,并分别显示 1 和 100,运行时的窗体如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt1.vbp,窗体文件名为 sjt1.frm。(分数:20.00)_正确答案:(操作步骤步骤 1:打开 Visual Basic 开发环境,按照题目的要求新建窗体并添加一个水平滚动条控件,如图所示。步骤 2:在属性窗口中,按照题目的要求设置水平滚动条的相关属性,如图所示。步骤 3:按照题目的要求,在窗体上添加两个标签控件,如图所示。步骤 4:按照题目的要求设置两个标签的相关属性,如图所示。程序中用到的控件及属性见表
8、。控件 滚动条 标签 1 标签 2属性 NameMinMaxLarge-ChangeNameCaptionNameCaption设置值 H1 1 100I0 L1 1 12 100步骤 5:按下键盘上的 F5 键运行程序,程序运行后的窗体界面如图所示。步骤 6:按题目要求保存工程和窗体,如图所示。)解析:考点 本题考点有:水平滚动条的 Name、Min、Max 和 LargeChange 属性以及标签的 Name 和Caption 属性。水平滚动条的最大刻度值和最小刻度值分别由 Max 和 Min 属性设置;单击滚动条上滚动框以外的区域移动刻度值大小由 LargeChange 属性设置,而单击
9、滚动条两边按钮移动刻度大小由 SmallChange 属性设置,本题要求“单击滚动条上滚动框以外的区域移动刻度大小”,由 Large-Change 属性设置;标签标题显示由Caption 属性设置。题目要求只在属性窗口设置属性值,请不要通过编写代码来达到要求。SmallChange 为最小变动值属性,表示用户单击滚动条两端箭头时,滑块移动的增量值;LargeChange 为最大变动值属性,表示用户单击滚动条的空白处时,滑块移动的增量值,要注意仔细区别。2.在名称为 Form1 的窗体上添加两个名称分别为 Text1 和 Text2 的文本框,初始内容均为空;再建立一个下拉菜单。菜单标题为“操作
10、”,名称为 M1,此菜单下含有两个菜单项,名称分别为 Copy 和 Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把 Texl1 中的内容复制到 Text2 中,单击“清除”选项菜单,则清除 Text2 中的内容(即在 Text2 中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。(分数:20.00)_正确答案:(操作步骤步骤 1:新建窗体,按表建立菜单项并设置其属性,如图所示。标题 操
11、作 复制 清除名称 M1 CopyClear内缩符号 0 1 1步骤 2:同步骤 1,输入第 3 项的标题和名称,单击确定即可。 步骤 3:添加文本框控件,按表设置文本框的属性。 控件 文本框 1文本框 2属性 Name Name设置值 Text1 Text2步骤 4:打开代码编写窗口,编写程序代码,如图所示。)解析:考点 本题考点有:菜单编辑器的使用(标题、名称、内缩符号),菜单 Click 事件以及文本框的Text 和 Name 属性。在编辑窗体中单击鼠标右键选择“菜单编辑器”来创建菜单,在菜单的 Click 事件中,通过对Text2.Text 属性的设置来完成对内容的清除和复制。在清除文
12、本框 Text2 的内容时不能使用 Cls 方法,必须通过赋值空字符串来实现,在赋值过程时,注意要在英文状态下编写代码,区分“”和“。二、简单应用题(总题数:2,分数:40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp,窗体上已经有一个标签 Label1,请添加一个单选按钮数组,名称为 Op1,含三个单选按钮,它们的 Index 属性分别为 0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为 Text1 的文本框。窗体文件中已经给出了 Op1 的 Click 事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火
13、车”单选按钮时,在 Text1 中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在 Text1 中显示“我开汽车去”,如图所示。注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(分数:20.00)_正确答案:(操作步骤步骤 1:打开本题工程文件,按照题目要求建立单选按钮数组,如图所示。)解析:考点 本题考点有:单选按钮数组的 Name、Caption 和 Index 属性,文本框的 Name 属性,Select C2ase 选择语句,“+”字符连接。通过 Name 属性设置对象名称;通过 Caption 属性设置对象的标题;设置两个字符型变量 a、b,a=“我坐
14、“,b=“我开“,用于 Select Case 选择语句的字符串连接;通过对单选按钮数组 Index 属性的查询,实现单击单选按钮完成字符串连接和文本框显示操作的功能。在窗体上复制一个控件时,如果需要创建控件数组,则在提示框中单击“是”即可,如果不需要,则直接单击“否”。4.在考生文件夹下有一个工程文件 sjt4.vbp,Form1 窗体中有一个文本框,名称为 Text1;请先在窗体上添加两个框架控件,名称分别为 F1、F2,标题分别为“性别”、“身份”;然后在 F1 中添加两个单选按钮控件 Op1、Op2,标题分别为“男”、“女”;其次在 F2 中添加两个单选按钮控件 Op3、Op4,标题分
15、别为“学生”、“教师”;最后再添加一个命令按钮,名称为 C1,标题为“确定”,如图所示。请编写适当的事件过程,使得运行时,在 F1、F2 中各选一个单选按钮,然后单击“确定”按钮,就可以按照下表把结果显示在文本框中。(分数:20.00)_正确答案:(操作步骤步骤 1:打开本题工程文件,按照题目要求建立框架控件并设置其属性,如图所示。)解析:考点 本题考点有:单选按钮的 Name、Caption 和 Value 属性,框架的 Name 和 Caption 属性,命令按钮的 Name 和 Caption 属性,文件操作(Open、Close、Output)以及判断语句。在窗体上建立好控件后,先设置
16、控件属性,再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由 Caption 属性设置,单击命令触发 Click 事件;单选按钮的标题由 Caption 属性设置,程序中需要检测单选按钮的状态,通过 Value 属性来实现,如果单选按钮被选中,则 Value 值为 1,否则 Value 值为0。在文本框中显示内容通过 Text 属性实现,其形式为:文本框名.Text=显示的内容。在 Visual Basic 程序中,Open 语句用于打开顺序文件,打开顺序文件的基本格式为:Open FileName For Mode As #FileNumber。其中,FileName 表示要打开的文
17、件的路径;Mode 为打开模式,OutPut 用于输出,Append 用于追加写入,Input 用于读取;FileNumber 为打开文件时指定的句柄。读文件操作在窗体的 Load 事件过程中完成,写文件操作在命令按钮的 Click 事件过程中完成。三、综合应用题(总题数:1,分数:20.00)5.以下数列:1,1,2,3,5,8,13,21的规律是从第 3 个数开始,每个数都是其前面两个数之和。在考生文件夹下有一个工程文件 sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第 n 项的值,并在文本框中
18、显示,n 是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。注意:不能修改已经给出的程序和已有的控件的属性:在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。(分数:20.00)_正确答案:(操作步骤步骤 1:打开本题工程文件。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。参考答案Private Sub Command1_Click()Dim a()As LongDim i As IntegerDim n As IntegerOp1.Count 是单选按钮数目
19、,这里用的是控件数组For i=0 To Op1.Count-1判断哪一项被选择,把它后面的数值赋给 n,确定 n 值If Op1(i).Value=True Thenn=Val(Op1(i).Caption)Exit ForEnd IfNextReDim a(n) 重新申请空间,这里是动态申请a(1)=1a(2)=1 数列第一项、第二项值确定For i=3 To na(i)=a(i-1)+a(i-2) 后一项值是前两项值之和NextText1.Text=a(n)End Sub步骤 3:调试并运行程序,关闭程序后按题目要求存盘。)解析:考点 本题考点有:文本框的 Text 属性,单选按钮的 N
20、ame、Caption 和 Value 属性,单选按钮控件数组,For 循环语句,If 条件判断语句以及内部函数 Val()。单选按钮数组常用于提供唯一选择,Value 属性值决定每个单选按钮的选中状态:False 为未选中,True为选中,Caption 属性用于设置单选按钮的标题。本题在 For 循环语句(循环变量 k 的初值为 0,终值应为3)中逐一检查每个单选按钮是否被选中,用变量 n 记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择,使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮,则将 n 赋值为 0,重新从单选按钮数组的第一个元素开始。在定义数组 a 的时候,要注意定义为长整型 Long,可以防止溢出;单选按钮数组的 Index 属性分别为0,1,2,在编写循环语句的时候要注意循环变量 Op1.Count-1。