【计算机类职业资格】二级VISUAL+BASIC-30及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC-30及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC-30及答案解析.doc（22页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC-30及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.栈是“先进先出”的线性表B.队列是“先进后出”的线性表C.循环队列是非线性结构的线性表D.有序线性表既可以采用顺序存储结构，也可以采用链式存储结构2.支持子程序调用的数据结构是_。（分数：2.50）A栈B树C.队列D.二叉树3.某二叉树有 5个度为 2的结点，则该二又树中的叶子结点数是_。（分数：2.50）A.10B.8C.6D.44.下列排序方法中，最坏情况下比较次数最少的是_。（分数：2.50）A.冒泡排序B

2、.简单选择排序C.直接插入排序D.堆排序5.软件按功能可以分为应用软件、系统软件和支撑软件(工具软件)。下面属于应用软件的是_。（分数：2.50）A.编译程序B.操作系统C.教务管理系统D.汇编程序6.下面叙述中错误的是_。（分数：2.50）A.软件测试的目的是发现错误并改正错误B.对被调试的程序进行“错误定位”是程序调试的必要步骤C.程序调试通常也称为 DebugD.软件测试应严格执行测试计划，排除测试的随意性7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是_。（分数：2.50）A.提高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性C.

3、耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度8.下列叙述中错误的是_。（分数：2.50）A.在数据库系统中，数据的物理结构必须与逻辑结构一致B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持9.有两个关系 R、S 如下： R A B C a 3 2 b 0 1 c 2 1 S A B a 3 b 0 c 2 由关系 R通过运算得到关系 S，则所使用的运算为_。（分数：2.50）A.选择B.投影C.插入D.连接10.将 ER图转换为关系模式时，实体和联系都可以表示为_。

4、（分数：2.50）A.属性B键C.关系D域11.为了使窗体的大小可以改变，必须把它的 BorderStyle属性设置为_。（分数：2.50）A.1B.2C.3D.412.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是_。（分数：2.50）A.按住 Alt键，不要松开，然后单击每个要选中的控件B.按住 Shift键，不要松开，然后单击每个要选中的控件C.按住 Ctrl键，不要松开，然后单击每个要选中的控件D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内13.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为_。（分数：2.5

5、0）A.Text1.ClearB.Text1.Visible=FalseC.Text1.HideD.Text1.Enabled=False14.以下能够触发文本框 Change事件的操作是_。（分数：2.50）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容15.假定在图片框 Picture1中装入了一张图片，在程序运行中，为了清除该图片(注意，是清除图片而不是删除图片框)，应采用的正确方法是_。（分数：2.50）A.单击图片框，然后按 Del键B.执行语句 Pieture1.Picture=LoadPicture(“)C.执行语句 Picture1.Picture

6、=“D.执行语句：Pieture1.Cls16.要想使列表框只允许单选列表项，应设置的属性为_。（分数：2.50）A.StyleB.SelectedC.MultiSelectD.Enabled17.在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，6) End Sub 程序运行后，如果在文本框 Text1

7、中输入 ChinaBeijing，则在文本框 Text2中显示的内容是_。（分数：2.50）A.ChinaBeijingB.ChinaC.BeijingD.ChinaB18.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头，则Value属性值_。（分数：2.50）A.增加一个 SmallChange量B.减少一个 SmallChange量C.增加一个 LargeChange量D.减少一个 LargeChange量19.在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为 combol，Command1 和 Text1，然后编写如下事件过程： P

8、rivate Sub Form_Load() Combo1.AddItem“AAAAA“ Combo1.AddItem“BBBBB“ Cnmbo1.AddItem“CCCCC“ Combo1.AddItem“DDDDD“ Combo1.AddItem“EEEEE“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的 Click事件过程中应使用的语句为_。（分数：2.50）A.Text1.Text=Combo1.List(2)B.Text1.Text=Combo1.TextC.Text1.Text=Combo1.List(3)D

9、.Text1.Text=Combo1.ListIndex20.为了使文本框只具有垂直滚动条，应先把 MultiLine属性设置为 True，然后再把 ScrollBars属性设置为_。（分数：2.50）A.0B.1C.3D.421.在窗体上画一个命令按钮和一个文本框，其名称分别为 command1和 Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter an integer“) b=Text1.Text Text1.Text=b+a End Sub 程序运行后，在文本框中输入 456

10、，然后单击命令按钮，在输入对话框中输入 123，则文本框中显示的内容是_。（分数：2.50）A.579B.123C.456123D.45622.在窗体上画一个名称为 Text1文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。（分数：2.50）A.2B

11、.3C.4D.523.设有如下的程序段： n=0 For i=1 To 3 For j=1 To i For k=i To 3 n=n+1 Next k Next j Next i 执行上面的程序段后，n 的值为()。（分数：2.50）A.3B.21C.9D.1424.在窗体上画一个名称为 command1的命令按钮，一个名称为 Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程

12、序运行后，单击命令按钮，则标签中显示的内容是()。（分数：2.50）A.1B.5C.27D.4525.阅读程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15，24，35，46，输出结果为_。（分数：2.50）A.100B.50C.120D.7026.在窗体上画一个名称为 Text1的文本框和一个名称为 c

13、ommand1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 arrayl(i，j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.50）A.15B.14C.13D.1227.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： O

14、ption Base 1 Private Sub Command1_Click() d=0 e=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.50）A.89B.99C.23D.7728.假定有以下通用过程： Function Fun(n As Integer)As Integer x=n*n Fun=x-11 End Function 在窗体上画一个命令

15、按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer For i=1 To 2 y=Fun(i) Print y; Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是_。（分数：2.50）A.1 3B.10 8C.-10 -7D.0 529.设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x * y End Function 在窗体上画一个命令按钮，其名称为 command1，然后编

16、写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x;y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.50）A.10 5B.20 40C.20 5D.10 4030.设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程 Command1_Click时，在顺序文件P

17、erson.txt中写入一条记录。下列能够完成该操作的事件过程是_。 A B C D （分数：2.50）A.B.C.D.31.下面程序运行后，输出的结果是_。 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k,j); Next k Print Next j A B C D （分数：2.50）A.B.C.D.32.在窗体上添加一个命令按钮，名称为 Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为_。 Opt

18、ion Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print s End Sub（分数：2.50）A.4321B.1234C.34D.1233.Sub过程与 Function过程最根本的区别是_。（分数：2.50）A.Sub过程不能返回值，而 Function过程能返回值B.Function过程可以有形参，Sub 过程不可以C.Sub过程可以使用 Call语句直接使用过程名调用，而 Function过程不

19、可以D.两种过程参数的传递方式不同34.函数过程 Funl的功能是：如果参数 b为奇数，则返回值为 1，否则返回值为 0。 Function Fun1(b As Integer) If _ Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入_。（分数：2.50）A.b Mod 20B.b Mod 2=0C.b/2=1D.b/2=035.单击命令按钮时，下列程序的执行结果是_。 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=3:b

20、=4:c=5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,x As Integer) FirProc=2*x+y+3*z End Function Function SeeProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function（分数：2.50）A.20B.22C.28D.3036.下列叙述中正确的是_。（分数：2.50）A.在窗体的 Form_Load事件过程中定义的变量是全局变量B.局

21、部变量的作用域可以超出所定义的过程C.在某个 Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但是作用域只限于该过程D.在调用过程中，所有局部变量系统初始化为 0或空字符串37.在窗体上画一个名称为 TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(Keyascii as integer) End Sub 若焦点位于文本框中，则能够触发 KeyPress事件的操作是_。（分数：2.50）A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键38.假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1(主菜

22、单) 大图标 bigicon 2(子菜单) 小图标 smallicon 2(子菜单) 要求程序运行后，如果单击菜单项“大图标”，就在该菜单项前添加一个“”。以下正确的事件过程是_。 A B C D （分数：2.50）A.B.C.D.39.在窗体上面一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.t

23、xt” CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是_。（分数：2.50）A.All Files(*.*)B.Text Files(*.txt)C.Batch Files(*.bat)D.All Files(*.*)|Text Files(*.txt)40.目录列表框 Path属性的作用是_。（分数：2.50）A.显示当前驱动器或指定驱动器上的目录结构B.显示当前驱动器或指定驱动器

24、上的某目录下的文件C.显示根目录下的文件名D.显示路径下的文件二级 VISUAL+BASIC-30答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.栈是“先进先出”的线性表B.队列是“先进后出”的线性表C.循环队列是非线性结构的线性表D.有序线性表既可以采用顺序存储结构，也可以采用链式存储结构 解析：解析 栈是先进后出的线性表，因此 A错误；队列是先进先出的线性表，因此 B错误；循环队列是线性结构的线性表，因此 C错误，故本题答案为 D。2.支持子程序调用的数据结构是_。（分数：2.50）A栈 B树

25、C.队列D.二叉树解析：解析 栈支持子程序调用。栈是一种只能在一端进行插入或删除的线性表，在主程序调用子程序时要首先保存主程序当前的状态，然后转去执行子程序，最终把子程序的执行结果返回到主程序中调用子程序的位置，然后继续向下执行，这种调用方式符合栈的特点，因此本题的答案为 A。3.某二叉树有 5个度为 2的结点，则该二又树中的叶子结点数是_。（分数：2.50）A.10B.8C.6 D.4解析：解析 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个，因此本题答案是 5+1=6，故选择 C。4.下列排序方法中，最坏情况下比较次数最少的是_。（分数：2.50

26、）A.冒泡排序B.简单选择排序C.直接插入排序D.堆排序 解析：解析 冒泡排序、直接插入排序与简单选择排序法在最坏情况下均需要比较 n(n-1)/2次，而堆排序在最坏情况下需要比较的次数是 nlog 2 n，因此本题答案为 D。5.软件按功能可以分为应用软件、系统软件和支撑软件(工具软件)。下面属于应用软件的是_。（分数：2.50）A.编译程序B.操作系统C.教务管理系统 D.汇编程序解析：解析 编译程序、操作系统、汇编程序都属于系统软件，只有教务管理系统才是应用软件，因此本题答案为 C。6.下面叙述中错误的是_。（分数：2.50）A.软件测试的目的是发现错误并改正错误 B.对被调试的程序进行

27、“错误定位”是程序调试的必要步骤C.程序调试通常也称为 DebugD.软件测试应严格执行测试计划，排除测试的随意性解析：解析 软件测试的目的是为了发现错误而执行程序的过程，并不涉及改正错误，因此选项 A错误。程序调试的基本步骤有：错误定位、修改设计和代码以排除错误、进行回归测试以防止引进新的错误。程序调试通常称为 Debug，即排错。软件测试的基本准则包括：所有测试都应追溯到需求、严格执行测试计划、排除测试的随意性、充分注意测试中的群集现象、程序员应避免检查自己的程序、不可能实现穷举测试、妥善保存测试计划等文件。7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是_。（分数：2.

28、50）A.提高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性 C.耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度解析：解析 模块的独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。一般较优秀的软件设计应尽量做到高内聚、低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性，因此 A错误，B 正确。耦合性是模块间互相连接的紧密程度的度量，内聚性是指一个模块内部各个元素间彼此结合的紧密程度，因此 C与 D错误。8.下列叙述中错误的是_。（分数：2.50）A.在数据库

29、系统中，数据的物理结构必须与逻辑结构一致 B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持解析：解析 数据库应用系统中的核心问题是设计一个能满足用户需求、性能良好的数据库，这就是数据库设计，因此本题答案为 A。9.有两个关系 R、S 如下： R A B C a 3 2 b 0 1 c 2 1 S A B a 3 b 0 c 2 由关系 R通过运算得到关系 S，则所使用的运算为_。（分数：2.50）A.选择B.投影 C.插入D.连接解析：解析 投影运算是从关系模式中挑选若干属性组成新的关系，这是从列的角度进行的

30、运算，相当于对关系进行垂直分解。本题中，S 是在原有关系 R的内部进行的，是由 R中原有的那些域的列所组成的关系，因此选择 B。10.将 ER图转换为关系模式时，实体和联系都可以表示为_。（分数：2.50）A.属性B键C.关系 D域解析：解析 从 ER图到关系模式的转换是比较直接的，实体与联系都可以表示成关系，ER 图中属性也可以转换成关系的属性，因此本题答案为 C。11.为了使窗体的大小可以改变，必须把它的 BorderStyle属性设置为_。（分数：2.50）A.1B.2 C.3D.4解析：解析 窗体的 BorderStyle属性是用来设置窗体的边框样式的。属性值 1为 Fixed Sin

31、gle,3为Fixed Dialog，4 为 Fixed ToolWindow，设置为这 3个属性值都不能改变窗口大小。2 是 Sizable，表示窗体大小可以改变。因此选 B。12.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是_。（分数：2.50）A.按住 Alt键，不要松开，然后单击每个要选中的控件 B.按住 Shift键，不要松开，然后单击每个要选中的控件C.按住 Ctrl键，不要松开，然后单击每个要选中的控件D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内解析：解析 按住 Alt键只能选中单个控件，不能同时选中多个控件。因此选 A。13.在窗体上画一

32、个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为_。（分数：2.50）A.Text1.ClearB.Text1.Visible=False C.Text1.HideD.Text1.Enabled=False解析：解析 文本框没有 Clear和 Hide方法，因此 A、C 选项错误；Enabled 属性用来设置文本框可用不可用，属性值为 True时可在文本框中输入数据，为 False时文本框为灰色，内容不能修改，因此 D选项错误；Visible 属性用来设置文本框显示或隐藏，当属性值为 True时文本框显示，为 False时文本框隐藏，因此 B选项正确。14.以下能够

33、触发文本框 Change事件的操作是_。（分数：2.50）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容 解析：解析 改变文本框中的内容时就会触发它的 Change事件，因此选 D。15.假定在图片框 Picture1中装入了一张图片，在程序运行中，为了清除该图片(注意，是清除图片而不是删除图片框)，应采用的正确方法是_。（分数：2.50）A.单击图片框，然后按 Del键B.执行语句 Pieture1.Picture=LoadPicture(“) C.执行语句 Picture1.Picture=“D.执行语句：Pieture1.Cls解析：解析 A 选项按 Del

34、键不能删除图片；C 选项中 Picture属性值不能为空字符串，语法错误；D 选项中 Cls方法只能清除图片上显示的内容，不能清除图片。要将图片框中的图片清除，采用 B选项的方法可以。因此 B选项正确。16.要想使列表框只允许单选列表项，应设置的属性为_。（分数：2.50）A.StyleB.SelectedC.MultiSelect D.Enabled解析：解析 列表框的 Style属性是设置列表框的外形；Selected 属性在程序运行中设置或返回列表项的选中状态；Enabled 属性设置列表框可用不可用；MultiSelect 属性用来设置选择列表项的方式。0 为默认，只允许单选列表项；1

35、 为复选，可同时选中一个或多个列表项，但要一个一个选中；2 也为复选，可一个一个选中列表项，也可连续选中。因此选 C。17.在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，6) End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2中显示的内容是_。

36、（分数：2.50）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：解析 程序运行后，在文本框 Text.1中输入字符后，会触发它的 Change事件，通过中部截取函数 Mid把文本框 Text1中的内容从第 6个字符“B”开始截取后面的字符，得到“Beijing”字符串，然后把截取的字符串在 Text2中显示出来。因此 C选项正确。18.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头，则Value属性值_。（分数：2.50）A.增加一个 SmallChange量 B.减少一个 SmallChange量C.增加一个

37、LargeChange量D.减少一个 LargeChange量解析：解析 当水平滚动条的属性值 MinMax 时，如果单击滚动条右端或左端的箭头，Value 属性值会增加或减少 SmallChange量；如果单击滚动块和右端箭头之间空白的地方时，Value 属性值会增加LargeChange量，反之则减少 LargeChange量。 本题单击的是滚动条右端的箭头，因此 Vlaue属性值应该是增加一个 SmallChange量。故选 A。19.在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为 combol，Command1 和 Text1，然后编写如下事件过程： Private Su

38、b Form_Load() Combo1.AddItem“AAAAA“ Combo1.AddItem“BBBBB“ Cnmbo1.AddItem“CCCCC“ Combo1.AddItem“DDDDD“ Combo1.AddItem“EEEEE“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的 Click事件过程中应使用的语句为_。（分数：2.50）A.Text1.Text=Combo1.List(2) B.Text1.Text=Combo1.TextC.Text1.Text=Combo1.List(3)D.Text1.T

39、ext=Combo1.ListIndex解析：解析 List 属性可以返回组合框中各选项的内容。用下标来区分各选项，第 1个选项下标为 0，依此类推。“CCCCC”为组合框中第 3个选项，可以用 Combo1.List(2)返回选项内容。因此 A选项正确，C选项错误。 Text属性返回的是组合框中选中项目的内容；ListIndex 属性返回的是选中项目的索引值，即下标。因此B、D 选项错误。20.为了使文本框只具有垂直滚动条，应先把 MultiLine属性设置为 True，然后再把 ScrollBars属性设置为_。（分数：2.50）A.0B.1C.3D.4 解析：解析 文本框的 Scroll

40、Bars属性值：0 表示无滚动条，1 表示只有水平滚动条，4 表示只有垂直滚动条，3 表示水平和垂直滚动条都有。本题文本框只具有垂直滚动条，则将 ScrollBars属性值设置为4即可，因此 D选项正确。21.在窗体上画一个命令按钮和一个文本框，其名称分别为 command1和 Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter an integer“) b=Text1.Text Text1.Text=b+a End Sub 程序运行后，在文本框中输入 456，然后单击命令按钮，在

41、输入对话框中输入 123，则文本框中显示的内容是_。（分数：2.50）A.579B.123C.456123 D.456解析：解析 默认情况下，InputBox 的返回值是一个字符串，因此程序中a=“123“，b=“456“，b+a=“456“+“123“=“456123“。因此 C选项正确。另外，使用字符连接运算符“+”时，如果连接的是字符串和数值，可根据返回值类型判断，若返回值类型为字符串，则它将数值转换成字符串后与另一字符串连接成新字符串返回；若返回值类型为数值，则它要求字符串中只能包含数字，而不能有其他字符，否则报“类型不匹配”的错误。22.在窗体上画一个名称为 Text1文本框和一个名

42、称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。（分数：2.50）A.2B.3 C.4D.5解析：解析 程序中 For循环的结束有两种情况，一种是完成指定次数的循环，另一种是达到一定的条件后直接退出循环。由于在循环体中循环变量 i的值被修改成 i=i+3，因此，每

43、次循环开始时 i的取值为0，4，8，i 为 8时执行 i=i+3=11，n=n+1=3，这时 i的值大于 10，退出 For循环，因此 For循环执行了3次，即 n的值为 3。因此在文本框中会显示 3，B 选项正确。23.设有如下的程序段： n=0 For i=1 To 3 For j=1 To i For k=i To 3 n=n+1 Next k Next j Next i 执行上面的程序段后，n 的值为()。（分数：2.50）A.3B.21C.9D.14 解析：解析 程序是三层的 For循环，内层的循环次数由外面一层的循环变量的值决定。因此程序执行过程如下： i=1时，第二层循环执行 1

44、次，第三层循环执行 3次，n=3 i=2时，第二层循环执行 2次，第三层循环执行 3次+2 次，n=3+3+2=8 i=3时，第二层循环执行 3次，第三层循环执行 3次+2 次+1 次，n=8+3+2+1=14 因此答案为 D。24.在窗体上画一个名称为 command1的命令按钮，一个名称为 Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示

45、的内容是()。（分数：2.50）A.1B.5 C.27D.45解析：解析 s 变量用来计数，如果 xMod 3=0，即如果能被 3整除则计数增加 1。程序中 x的取值为1，3，5，7，9，11，13，15，17，19，21，23，25，27，29，其中是 3的整数倍的数有3，9，15，21，27 共 5个，因此 s的值为 5。故选项 B正确。25.阅读程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If

46、 Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15，24，35，46，输出结果为_。（分数：2.50）A.100 B.50C.120D.70解析：解析 程序的作用是输入的数如果是 5的倍数就累加，如果不是 5的倍数就与每次加 50或与上次是 5的倍数的那个数相累加。因此最终 a的值是 15+15+35+35=100，故 A选项正确。26.在窗体上画一个名称为 Text1的文本框和一个名称为 command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10)As Inte

47、ger Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 arrayl(i，j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.50）A.15B.14C.13D.12 解析：解析 程序中通过 For循环为数组中的部分元素赋值，没有赋值的元素值将默认为 0。For 循环中i=2，j=3 时，array1(i,j)=i+j，即 array1(2,3)=5；i=3，j=4 时，array1(3,4)=3

48、+4，即 array1(3,4)=7。5+7=12，因此程序文本框中显示的值是 12，D 选项正确。27.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d=0 e=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.50）A.89B.99C.23 D.77解析：解析 程序中 Option Base 1语句指定数组下标下限从 1开始。程序通过赋初值定义变量 x为含有 5个元素的数组，元素值依次为 10，12，2l，32，24。For 循环的功能是把这 5个元素中大于 10且大于前一个元素的值累加到变量 d中，如果小于等于 10或小于等于前一个元素，则变量 d将减去 10或减去前一个元素的值。因