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：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 )解析：
