1、全国计算机等级考试二级 VISUAL+BASIC 题库 1+2016 年 3 月及答案解析(总分:100.00,做题时间:120 分钟)一、选择题(总题数:40,分数:40.00)1.下列叙述中正确的是( )(分数:1.00)A.只有窗体才是 Visual Basic 中的对象B.只有控件才是 Visual Basic 中的对象C.窗体和控件都是 Visual Basic 中的对象D.窗体和控件都不是 Visual Basic 中的对象2.下列可以激活属性窗口的操作是( )(分数:1.00)A.用鼠标双击窗体的任何部位B.执行“文件“菜单中的“属性窗口“命令C.执行“编辑“菜单中的“属性窗口“
2、命令D.按 F4 键3.下列能打开工具箱窗口的操作是( )(分数:1.00)A.执行“视图“菜单中的“工具箱“命令B.按 Alt 键C.单击属性窗口上的“工具箱“按钮D.按 Ctrl 键4.假定已在一个窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置该窗体的 Name 属性,预先应执行的操作是( )(分数:1.00)A.单击窗体上有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏5.为了把窗体上的某个控件变为活动的,应执行的操作是( )(分数:1.00)A.单击窗体的空白处B.单击该控件的内部C.双击该属性列表框D.双击窗体6.确定一个控件在窗体上的位置的属性是
3、( )(分数:1.00)A.Width 或 HeightB.Top 和 HeightC.Top 或 WidthD.Top 和 Left7.确定一个窗体或控件的大小的属性是( )(分数:1.00)A.Width 或 HeightB.Top 和 WidthC.Top 或 LeftD.Top 和 Left8.为了同时改变一个活动控件的高度和宽度,正确的操作是( )(分数:1.00)A.拖拉位于控件左上角B.只能拖拉位于控件右下角C.只能拖拉位于控件左下角D.不能同时改变控件的高度和宽度9.面向对象的程序设计指满足( )(分数:1.00)A.虚拟化、结构化、动态化B.封装性、继承性、多态性C.对象的链
4、接、动态链接、动态数据交换D.ODBC、DDE、OLE10.用户在屏幕上画出应用程序界面,并设置好对象的属性,系统便可以自动生成程序代码,这称为( )(分数:1.00)A.面向对象的程序设计B.结构化程序设计C.事件驱动的编程机制D.程序设计11.VB 集成开发环境开发的应用程序不适宜的运行环境是( )(分数:1.00)A.WINDOS 32B.WINDOWS 9XC.WINDOWS NTD.WINDOWS 200012.VB6 共有三个版本,按功能从弱到强的顺序排列应是( )(分数:1.00)A.学习版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版D.学习版、企业版和专
5、业版13.VB 集成开发环境有三种工作状态,不属于三种工作状态之一的是( )(分数:1.00)A.设计状态B.编写代码状态C.运行状态D.中断状态14.不能打开代码窗口的操作是( )(分数:1.00)A.双击窗体设计器的任何地方B.按下 F 键C.单击工程窗口中的“查看代码“按钮D.选择“视图“下拉菜单中的“代码窗口“15.在 VB 中,工程文件的扩展名是( )(分数:1.00)AfrmBvbpCbasDfrx16.在 VB 中,窗体文件的扩展名是( )(分数:1.00)AfrmBvbpCbasDfrx17.VB 集成开发环境可以( )(分数:1.00)A.编辑、调试、运行程序,但不能生成可执
6、行程序B.编辑、生成可执行程序、运行程序,但不能调试程序C.编辑、调试、生成可执行程序,但不能运行程序D.编辑、调试、运行程序,也能生成可执行程序18.英文“VISUAL“的含义是( )(分数:1.00)A.可视化B.集成C.结构化D.调试19.标准模块文件的扩展名是( )(分数:1.00)A.frmB.vbpC.basD.vbg20.VB 集成开发环境中,在( )中编写代码(分数:1.00)A.状态栏B.属性列表框C.代码框D.标题栏21.在面向对象的程序设计过程中,英文缩写“OOP“的含义是( )(分数:1.00)A.事件驱动的编程机制B.结构化程序设计语言C.面向对象的程序设计D.可视化
7、程序设计22.在窗体上画一个名称为 Timer1 的计时器控件,要求每隔 0.5 秒发生一次计时器事件,则以下正确的属性设置语句是( )(分数:1.00)A.Timer1.Interval=0.5B.Timer1.Interval=5C.Timer1.Interval=50D.Timer1.Interval=50023.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Static x As Integer Cls For t=1 To 2 y=y+x x=x+2 Next t Print x,y End S
8、ub 程序运行后,连续三次单击 Command1 按钮后,窗体上显示的是( )(分数:1.00)A.4 2B.12 18C.12 30D.4 624.以下关于多重窗体程序的叙述中,错误的是( )(分数:1.00)A.用 Hide 方法不但可以隐藏窗体,且能清除内存中的窗体B.在多重窗体程序中,各窗体的菜单是彼此独立的C.在多重窗体程序中,可以根据需要指定启动窗体D.对于多重窗体程序中,单独保存每个窗体25.以下关于文件的叙述中,错误的是( )(分数:1.00)A.顺序文件中的记录一个接一个顺序存放B.随机文件中记录的长度是不相同的C.执行打开文件的命令后,自动生成一个文件指针D.EOF 函数作
9、用是判断文件的指针是否指向文件末尾26.以下叙述中错误的是( )(分数:1.00)A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.编程者可以自由更改代码框右上边的过程列表的事件名称27.以下合法的 Visual Basic 变量的名称是( )(分数:1.00)A.a3B.ConstC.9abcD.a#x!28.当一个复选框被选中时,它的 Value 属性的值是( )(分数:1.00)A.3B.2C.1D.029.表达式 5 Mod 3+5/3 的值是( )(分数:1.00)A.0B.3C.4D.630.设 x=4,y=8,z=7,
10、表达式:(xy) Or zx 的值是( )(分数:1.00)A.1B.-1C.TRUED.FALSE31.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) a$=“VisualBasic“ Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是( )(分数:1.00)A.VVVB.VisC.sicD.1132.设有如下程序段: x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后,x 的值是( ) (分数:1.00)A.6B.7
11、C.8D.933.以下叙述中错误的是( )(分数:1.00)A.在 KeyPress 事件过程中不能识别键盘键的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中,从键盘输入的字母“A“和字母“a“对应的 KeyCode 视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中,从大键盘上输入的“1“和从右侧小键盘上输入的“1“被视作不同的字符34.执行如下两条语句,窗体上显示的是( ) A=9.8596 Print Format(a,“000.00“)(分数:1.00)A.0,009.86B.9.86C.009.86D.0,
12、009.8635.在窗体上画一个名称为 CommandDialog1 的通用对话框,一个名称为 Command1 的命令按钮。然后编写如下事件过程: Private Sub Command1_Click( ) CommonDialog1.FileName =“ CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=“VBTest“ CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述
13、中错误的是( )(分数:1.00)A.该对话框被设置为“打开“对话框B.在该对话框中指定的文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt)36.设一个工程由两个窗体组成,其名称分别为 Form1 和 Form2,在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下: Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form,x As Integer) y=Ii
14、f(x10,100,-100) f.Show f.Caption=y End Sub 运行以上程序,正确的结果是( )(分数:1.00)A.Form1 的 Caption 属性值为 100B.Form2 的 Caption 属性值为-100C.Form1 的 Caption 属性值为-100D.Form2 的 Caption 属性值为 10037.在窗体上画一个名称为 Command1 的命令按钮,并编写如下程序: Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) P
15、rint x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是( )(分数:1.00)A.10 5B.12 5C.10 7D.12 738.Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=3 If n10 Then Call GetArray(a,n) End If End Sub Private Sub Ge
16、tArray(b( ) As Integer,n As Integer) Dim c(10) As Integer j=0 For t=1 To n b(t)=Rnd*100 If b(t)/2=b(t)/2 Then j=j+1 c(j)=b(t) End If Next t Print j End Sub 以下叙述中错误的是( )(分数:1.00)A.数组 b 中的数范围为 0-100B.c 数组下标的下界从 1 开始C.GetArray 过程的参数 n 是按值传送的D.语句 If b(t)/2=b(t)/2 Then 是判断数组 b 中元素的值是否为整数39.在窗体上画一个名称为 Com
17、mand1 的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click( ) Dim a a= Array(1,2,3,4,5) For c=1 To Ubound(a) a(c) = a(c)+c-1 Next c Print a(3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是( )(分数:1.00)A.4B.5C.6D.740.阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr Dim Sum% Sum = 0 arr = Array(1, 3, 5,
18、7, 9) For t = 1 To 5 Sum = Sum + arr(t) Next t Print Sum End Sub 程序运行后,单击窗体,输入结果为( )(分数:1.00)A.5B.9C.25D.15二、基本操作题(总题数:2,分数:18.00)41.在名称为 Forml 的窗体上添加一个名称为 Commandl 的命令按钮(如图 l 所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能: 窗体标题为“设置按钮属性”; 命令按钮的标题为“等级考试”; 程序运行后,命令按钮不可见; 命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图 2 所示。 要求:不编写
19、任何代码。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjtlvbp,窗体文件名保存为 sjtlfrm。 (分数:9.00)_42.在名称为 Forml 的窗体上添加一个名称为 Labell 的标签,在属性窗口中把 BorderStyle 属性设置为1(如图 l 所示),编写适当的事件过程。使得程序在运行后,如果单击窗体,则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 要求:不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt2vbp,窗体文件名保存为 sjt2frm。 (分数:9.00)_三、简单应用题(总题数:2,分数:24.00)
20、43.在考生文件夹下有一个工程文件 sit3vbp,窗体中有两个图片框,名称分别为 P1、P2,其中的图片内容分别是一架航天飞机和一朵云彩,一个命令按钮,名称为 C1,标题为“发射”,还有一个计时器,名称为 Timerl。并给出了两个事件过程,但并不完整,要求: 设置 Timerl 的属性,使其在初始状态下不计时; 设置 Timerl 的属性,使其每隔 01 秒调用 Timer 事件过程一次; (分数:12.00)_44.在考生文件夹下有一个工程文件 sjt4vbp,运行情况如图所示。程序的功能是计算下列表达式的值:其中 N 和 X 的值通过键盘分别输入到文本框 Text1、Text2 中。之
21、后如果单击标题为“计算”、名称为 Commandl 的命令按钮,则计算表达式的值 2,并将计算结果显示在名称为 Labell 的标签中。 在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。 注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用运算符,而应使用函数 xn 进行幂运算。程序至少运行一次,按照下图输人数据,使 X=10,N=5,单击“计算”按钮,计算Z 的值,并将结果显示在标签 Labell 中,否则没有成绩。最后,程序按原文件名存盘。 (分数:12.00)_四、综合应用题(总题数:1,分数:18.00)45.以下数列
22、:1,1,2,3,5,8,13,21的规律是从第 3 个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件 sit5vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第 n 项的值,并在文本框中显示,n 是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。 注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。 (分数:18.0
23、0)_全国计算机等级考试二级 VISUAL+BASIC 题库 1+2016 年 3 月答案解析(总分:100.00,做题时间:120 分钟)一、选择题(总题数:40,分数:40.00)1.下列叙述中正确的是( )(分数:1.00)A.只有窗体才是 Visual Basic 中的对象B.只有控件才是 Visual Basic 中的对象C.窗体和控件都是 Visual Basic 中的对象 D.窗体和控件都不是 Visual Basic 中的对象解析:2.下列可以激活属性窗口的操作是( )(分数:1.00)A.用鼠标双击窗体的任何部位B.执行“文件“菜单中的“属性窗口“命令C.执行“编辑“菜单中的
24、“属性窗口“命令D.按 F4 键 解析:3.下列能打开工具箱窗口的操作是( )(分数:1.00)A.执行“视图“菜单中的“工具箱“命令 B.按 Alt 键C.单击属性窗口上的“工具箱“按钮D.按 Ctrl 键解析:4.假定已在一个窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置该窗体的 Name 属性,预先应执行的操作是( )(分数:1.00)A.单击窗体上有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏 解析:5.为了把窗体上的某个控件变为活动的,应执行的操作是( )(分数:1.00)A.单击窗体的空白处B.单击该控件的内部 C.双击该属性列表框D.双击窗体
25、解析:6.确定一个控件在窗体上的位置的属性是( )(分数:1.00)A.Width 或 HeightB.Top 和 HeightC.Top 或 WidthD.Top 和 Left 解析:7.确定一个窗体或控件的大小的属性是( )(分数:1.00)A.Width 或 Height B.Top 和 WidthC.Top 或 LeftD.Top 和 Left解析:8.为了同时改变一个活动控件的高度和宽度,正确的操作是( )(分数:1.00)A.拖拉位于控件左上角 B.只能拖拉位于控件右下角C.只能拖拉位于控件左下角D.不能同时改变控件的高度和宽度解析:9.面向对象的程序设计指满足( )(分数:1.0
26、0)A.虚拟化、结构化、动态化B.封装性、继承性、多态性 C.对象的链接、动态链接、动态数据交换D.ODBC、DDE、OLE解析:10.用户在屏幕上画出应用程序界面,并设置好对象的属性,系统便可以自动生成程序代码,这称为( )(分数:1.00)A.面向对象的程序设计 B.结构化程序设计C.事件驱动的编程机制D.程序设计解析:11.VB 集成开发环境开发的应用程序不适宜的运行环境是( )(分数:1.00)A.WINDOS 32 B.WINDOWS 9XC.WINDOWS NTD.WINDOWS 2000解析:12.VB6 共有三个版本,按功能从弱到强的顺序排列应是( )(分数:1.00)A.学习
27、版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版 D.学习版、企业版和专业版解析:13.VB 集成开发环境有三种工作状态,不属于三种工作状态之一的是( )(分数:1.00)A.设计状态B.编写代码状态 C.运行状态D.中断状态解析:14.不能打开代码窗口的操作是( )(分数:1.00)A.双击窗体设计器的任何地方B.按下 F 键 C.单击工程窗口中的“查看代码“按钮D.选择“视图“下拉菜单中的“代码窗口“解析:15.在 VB 中,工程文件的扩展名是( )(分数:1.00)AfrmBvbp CbasDfrx解析:16.在 VB 中,窗体文件的扩展名是( )(分数:1.00)
28、Afrm BvbpCbasDfrx解析:17.VB 集成开发环境可以( )(分数:1.00)A.编辑、调试、运行程序,但不能生成可执行程序B.编辑、生成可执行程序、运行程序,但不能调试程序C.编辑、调试、生成可执行程序,但不能运行程序D.编辑、调试、运行程序,也能生成可执行程序 解析:18.英文“VISUAL“的含义是( )(分数:1.00)A.可视化 B.集成C.结构化D.调试解析:19.标准模块文件的扩展名是( )(分数:1.00)A.frmB.vbpC.bas D.vbg解析:20.VB 集成开发环境中,在( )中编写代码(分数:1.00)A.状态栏B.属性列表框C.代码框 D.标题栏解
29、析:21.在面向对象的程序设计过程中,英文缩写“OOP“的含义是( )(分数:1.00)A.事件驱动的编程机制B.结构化程序设计语言C.面向对象的程序设计 D.可视化程序设计解析:22.在窗体上画一个名称为 Timer1 的计时器控件,要求每隔 0.5 秒发生一次计时器事件,则以下正确的属性设置语句是( )(分数:1.00)A.Timer1.Interval=0.5B.Timer1.Interval=5C.Timer1.Interval=50D.Timer1.Interval=500 解析:23.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub
30、 Command1_Click( ) Static x As Integer Cls For t=1 To 2 y=y+x x=x+2 Next t Print x,y End Sub 程序运行后,连续三次单击 Command1 按钮后,窗体上显示的是( )(分数:1.00)A.4 2 B.12 18C.12 30D.4 6解析:24.以下关于多重窗体程序的叙述中,错误的是( )(分数:1.00)A.用 Hide 方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中,各窗体的菜单是彼此独立的C.在多重窗体程序中,可以根据需要指定启动窗体D.对于多重窗体程序中,单独保存每个窗体解析:
31、25.以下关于文件的叙述中,错误的是( )(分数:1.00)A.顺序文件中的记录一个接一个顺序存放B.随机文件中记录的长度是不相同的 C.执行打开文件的命令后,自动生成一个文件指针D.EOF 函数作用是判断文件的指针是否指向文件末尾解析:26.以下叙述中错误的是( )(分数:1.00)A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.编程者可以自由更改代码框右上边的过程列表的事件名称 解析:27.以下合法的 Visual Basic 变量的名称是( )(分数:1.00)A.a3 B.ConstC.9abcD.a#x!解析:28.当一个
32、复选框被选中时,它的 Value 属性的值是( )(分数:1.00)A.3B.2C.1 D.0解析:29.表达式 5 Mod 3+5/3 的值是( )(分数:1.00)A.0B.3 C.4D.6解析:30.设 x=4,y=8,z=7, 表达式:(xy) Or zx 的值是( )(分数:1.00)A.1B.-1C.TRUE D.FALSE解析:31.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) a$=“VisualBasic“ Print String(3,a$) End Sub 程序运行后,单击命令按钮,
33、在窗体上显示的内容是( )(分数:1.00)A.VVV B.VisC.sicD.11解析:32.设有如下程序段: x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后,x 的值是( ) (分数:1.00)A.6 B.7C.8D.9解析:33.以下叙述中错误的是( )(分数:1.00)A.在 KeyPress 事件过程中不能识别键盘键的按下与释放 B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中,从键盘输入的字母“A“和字母“a“对应的 KeyCode 视作相同的字母D.在 KeyDown 和 KeyUp 事
34、件过程中,从大键盘上输入的“1“和从右侧小键盘上输入的“1“被视作不同的字符解析:34.执行如下两条语句,窗体上显示的是( ) A=9.8596 Print Format(a,“000.00“)(分数:1.00)A.0,009.86B.9.86C.009.86 D.0,009.86解析:35.在窗体上画一个名称为 CommandDialog1 的通用对话框,一个名称为 Command1 的命令按钮。然后编写如下事件过程: Private Sub Command1_Click( ) CommonDialog1.FileName =“ CommonDialog1.Filter=“All file|
35、*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=“VBTest“ CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述中错误的是( )(分数:1.00)A.该对话框被设置为“打开“对话框B.在该对话框中指定的文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt) 解析:36.设一个工程由两个窗体组成,其名称分别为 Form1 和 Form2,在 Form1 上有一个名称为 Command1
36、的命令按钮。窗体 Form1 的程序代码如下: Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form,x As Integer) y=Iif(x10,100,-100) f.Show f.Caption=y End Sub 运行以上程序,正确的结果是( )(分数:1.00)A.Form1 的 Caption 属性值为 100B.Form2 的 Caption 属性值为-100 C.Form1 的 Caption 属性值为-100D.Form2 的 C
37、aption 属性值为 100解析:37.在窗体上画一个名称为 Command1 的命令按钮,并编写如下程序: Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是( )(分数:1.00)A.10 5B.12 5C.10 7D.12 7 解析
38、:38.Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=3 If n10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b( ) As Integer,n As Integer) Dim c(10) As Integer j=0 For t=1 To n b(t)=Rnd*100 If b(t)/2=b(t)/2 Then j=j+1 c(j)=b(t) End If Next t Print j En
39、d Sub 以下叙述中错误的是( )(分数:1.00)A.数组 b 中的数范围为 0-100B.c 数组下标的下界从 1 开始C.GetArray 过程的参数 n 是按值传送的 D.语句 If b(t)/2=b(t)/2 Then 是判断数组 b 中元素的值是否为整数解析:39.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click( ) Dim a a= Array(1,2,3,4,5) For c=1 To Ubound(a) a(c) = a(c)+c-1 Next c Print a(
40、3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是( )(分数:1.00)A.4B.5 C.6D.7解析:40.阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr Dim Sum% Sum = 0 arr = Array(1, 3, 5, 7, 9) For t = 1 To 5 Sum = Sum + arr(t) Next t Print Sum End Sub 程序运行后,单击窗体,输入结果为( )(分数:1.00)A.5B.9 C.25D.15解析:二、基本操作题(总题数:2,分数:18.00)41.在名称为
41、Forml 的窗体上添加一个名称为 Commandl 的命令按钮(如图 l 所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能: 窗体标题为“设置按钮属性”; 命令按钮的标题为“等级考试”; 程序运行后,命令按钮不可见; 命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图 2 所示。 要求:不编写任何代码。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjtlvbp,窗体文件名保存为 sjtlfrm。 (分数:9.00)_正确答案:(步骤 1:新建一个窗体,按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性,如图 323 所示。 程序中用到的属性见表
42、 321。 )解析:42.在名称为 Forml 的窗体上添加一个名称为 Labell 的标签,在属性窗口中把 BorderStyle 属性设置为1(如图 l 所示),编写适当的事件过程。使得程序在运行后,如果单击窗体,则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 要求:不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt2vbp,窗体文件名保存为 sjt2frm。 (分数:9.00)_正确答案:(步骤 1:新建一个窗体,按照题目要求建立标签控件并设置标签的相应属性,见表 322。 )解析:三、简单应用题(总题数:2,分数:24.00)43.在考生
43、文件夹下有一个工程文件 sit3vbp,窗体中有两个图片框,名称分别为 P1、P2,其中的图片内容分别是一架航天飞机和一朵云彩,一个命令按钮,名称为 C1,标题为“发射”,还有一个计时器,名称为 Timerl。并给出了两个事件过程,但并不完整,要求: 设置 Timerl 的属性,使其在初始状态下不计时; 设置 Timerl 的属性,使其每隔 01 秒调用 Timer 事件过程一次; (分数:12.00)_正确答案:(步骤 1:按题目要求打开工程文件,设置计时器属性,如图 314 所示。 步骤 2:打开代码编辑窗口,去掉程序中的注释符“”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的
44、内容) )解析:44.在考生文件夹下有一个工程文件 sjt4vbp,运行情况如图所示。程序的功能是计算下列表达式的值:其中 N 和 X 的值通过键盘分别输入到文本框 Text1、Text2 中。之后如果单击标题为“计算”、名称为 Commandl 的命令按钮,则计算表达式的值 2,并将计算结果显示在名称为 Labell 的标签中。 在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。 注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用运算符,而应使用函数 xn 进行幂运算。程序至少运行一次,按照下图输人数据,使 X=10,N=5
45、,单击“计算”按钮,计算Z 的值,并将结果显示在标签 Labell 中,否则没有成绩。最后,程序按原文件名存盘。 (分数:12.00)_正确答案:(步骤 1:打开本题工程文件。 步骤 2:分析并编写程序代码。 参考答案 步骤 3:按照题目要求调试并运行程序,如图 315 所示。 )解析:四、综合应用题(总题数:1,分数:18.00)45.以下数列:1,1,2,3,5,8,13,21的规律是从第 3 个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件 sit5vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第 n 项的值,并在文本框中显示,n 是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。 注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。 (分数:18.00)_正确答案:(步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 )解析: