1、二级 VISUAL+BASIC-29-2 及答案解析(总分：88.04，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：61.00)1.在调用含有对象的过程时，对象只能通过_传送。 A. 传地址方式 B. 传值方式 C. 数组方式 D. 变量方式（分数：2.00）A.B.C.D.2.模块的U /U定义为受该模块内一个判断影响的所有模块的集合。 A. 控制域 B. 作用域 C. 宽度 D. 接口（分数：1.00）A.B.C.D.3.按照“先进后出”原则组织数据的数据结构是U /U。 A. 队列 B. 栈 C. 双向链表 D. 二叉树（分数：2.00）A.B.C.D.4.如果要在菜单中
2、添加一个分隔线，则应将其 Caption 属性设置为U /U。 A.= B.* C.& D.-（分数：2.00）A.B.C.D.5.设有声明语句Dim b(-1 To 10，2 To 9，20)As Integer则数组 b 中全部元素的个数 A. 2310 B. 2016 C. 1500 D. 1658 （分数：1.00）A.B.C.D.6.数据的存储结构是指U /U。 A.数据所占的存储空间 B.数据的逻辑结构在计算机中的存放形式 C.数据在计算机中的顺序存储方式 D.存储在计算机外存中的数据（分数：2.00）A.B.C.D.7.在窗体上画一个名称为 Drivel 的驱动器列表框，一个名称
3、为 Dirl 的目录列表框，一个名称为 Filel 的文件列表框，两个名称分别为 Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Labell 中显示当前文件夹中文件的数量。如下图所示。 能够正确实现上述功能的程序是U /U。 （分数：2.00）A.B.C.D.8.要使一个文本框可以显示多行文本，应设置为 True 的属性是 A.Enabled B.MultiLine C.MaxLength D.Width（分数：2.00）A.B.C.D.9.已知一棵二叉树前序遍历和中序遍历分别为 ABDEGC
4、FH 和 DBGEACHF，则该二叉树的后序遍历为 A. GEDHFBCA B. DGEBHFCA C. ABCDEFGH D. ACBFEDHG（分数：2.00）A.B.C.D.10.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Commaadl_Click()Dim arrayl(10, 10)As IntegerDim i, j As IntegerFor i=1 To 3For j=2 To 4arrayl(i, j)=i+jNext jNext iText1. Text=arrayl(2, 3)+a
5、rrayl(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。 A. 12 B. 13 C. 14 D. 15（分数：2.00）A.B.C.D.11.文件是U /U构成的数据集合。 A.字段 B.字符 C.记录 D.汉字（分数：2.00）A.B.C.D.12.单链表要求内存中可用存储单元的地址_。 A.必须是连续的 B.一定是不连续的 C.部分地址必须是连续的 D.可以是连续的，也可以是不连续的（分数：2.00）A.B.C.D.13.编写如下事件过程。Private Sub Form_KeyDown(KeyCode As Integer, Shift As Intege
6、r)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，若按 T 键，则程序输出的结果是U /U。 A. T T B. t T C. T C D. t t（分数：2.00）A.B.C.D.14.以下叙述中错误的是U /U。 A.Visual Basic 是事件驱动型可视化编程工具 B.Visual Basic 应用程序不具有明显的开始和结束语句 C.Visual Basic52 具箱中的所有
7、控件都具有宽度(Width)和高度(Height)属性 D.Visual Basic 中控件的某些属性只能在运行时设置（分数：2.00）A.B.C.D.15.为了使标签中的内容居中显示，应把 Alignment 属性设置为_。 A. 0 B. 1 C. 2 D. 3（分数：2.00）A.B.C.D.16.图像框中的 Stretch 属性为 True 时，其作用效果为U /U。 A. 只能自动设定图像框长度 B. 只能自动扩大图像 C. 只能自动缩小图像 D. 图形自动调整大小适应图像控件（分数：2.00）A.B.C.D.17.在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下
8、代码：Private Sub Commandl_Click()Dim a, i, msgmsg=“Choose OK to add 100 items to your listbox.“MsgBox msgFor il To 100a=“a：“ &iList1. Addltem aNext iEnd Sub程序完成的功能是 U /U A. 本程序使用 Addltem 方法增加 100 项给一个列表框 B. 本程序使用 Addltem 方法向一个列表框中添加 100 项，其内容是数字 1100 C. 本程序使用 Addltem 方法向一个列表框中添加的内容是 1100 的和 D. 本程序使用 A
9、ddhem 方法增加 100 个列表框（分数：2.00）A.B.C.D.18.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=“ABCD“For n=1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCD ABCD则在 _ 处应填入的内容为 A. Left(c，n) B. Right(c，n) C. Mid(c，n，1) D. Mid(c，n，n)（分数：1.00）A.B.C.D.19.设有以下循环结构：Do循环体Loop While条件则以下叙述中错
10、误的是 _。 A. 若“条件”是一个为 0 的常数，则一次也不执行循环体 B. “条件”可以是关系表达式、逻辑表达式或常数 C. 循环体中可以使用 Exit Do 语句 D. 如果“条件”总是为 True，则不停地执行循环体（分数：1.00）A.B.C.D.20.有如下 Sub 过程：Sub Sun(x As Single，y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体上的命令按钮 Command1 中，编写如下事件过程，执行该事件过程调用 Sun 过程，结果为U /U。Private Sub Command1_Click()Dim a As SingleDim
11、 b As Singlea=5b=4Sun a，bPrint a；bEnd Sub A. 1.25 1 B. 5 4 C. 4 5 D. 1 1.25（分数：2.00）A.B.C.D.21.设窗体上有一个滚动条，要求单击滚动条右端的(图片)按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是_。 A. Max B. Min C. SmallChange D. LargeChange（分数：1.00）A.B.C.D.22.在一个窗体上添加命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果为_。Option Base 1Private Sub Command1_ Click(
12、)Dim a(5)As IntegerDim k As IntegerDim Total As Integera (1)= 2a (2)= 5a (3)= 4a (4)= 10a (5)= 6for k =1 To 5Total = Total +a(k)Next kPrint TotalEnd Sub A. 10 B. 15 C. 27 D. 35（分数：2.00）A.B.C.D.23.组合框控件是将U /U组合成一个控件。 A.列表框控件和文本框控件 B.标签控件和列表框控件 C.标签控件和文本框控件 D.复选框控件和选项按钮控件（分数：2.00）A.B.C.D.24.设有如右图所示的窗体
13、和下列程序：（分数：2.00）A.B.C.D.25.下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是_。Private Sub Command1_Click()Dim count(25)As Integer，ch As Stringch=UCase(InputBox(“请输入字母字符串“)For k=1 To Len(ch)n=Asc(Mid(ch，k，1)-Asc(“A“)If n=0 Thencount(n)=count(n)+1End IfNext km=count(0)For k=1 To 25If mcount(k)Thenm=count
14、(k)End IfNext kPrint mEnd Sub A.0 B.1 C.2 D.3（分数：1.00）A.B.C.D.26.设有如下声明；Dim X As Integer如果 Sgn(X)的值为-1，则 X 的值是 _。 A. 整数 B. 大于 0 的整数 C. 等于 0 的整数 D. 小于 0 的数（分数：1.00）A.B.C.D.27.以下程序的功能是：把父目录下顺序文件 smtext1.txt 的内容读入内存，并在文本框 Text3 中显示出来。请选择适合横线处的语句U /U。Private Sub Command1_Click()Dim inData As StringText3
15、.Text=“Open “/smtext1.txt“_As#1Do While_Input #1.inDataText3.Text=Text3.Text & inDataLoopClose #1End Sub A. For Input Not EOF(1) B. For Output EOF(1) C. For Append Not EOF(1) D. For Random EOF(1)（分数：2.00）A.B.C.D.28.有变量定义语句 Dim max，min As String，则可以知道 max 的类型是 A. 变体类型 B. 单精度型 C. 双精度型 D. 字符串型 （分数：1.00
16、）A.B.C.D.29.执行 x$=InputBox(“请输入 x 的值“)时，在弹出的对话框中输入 123，在列表框 List1 选中 1 个列表项(数据为 456)，使 y 的值是 123456 的语句是U /U。 A.y=x$+List1.List(O) B.y=x$+List1.List(1) C.y=Val(x$)+Val(List1.List(0) D.y=Val(x$)&Val(List1.List(1)（分数：2.00）A.B.C.D.30.有如下程序：infocase$=InputBox(“Inputoneletter:“)Select Case infocase$case“
17、a“grade$=“Verygood“case“b“grade$=“Good“case“C“grade$=“OK“case“d“grade$=“Qualified“case Elsegrade$=“Bab“End SelectPrint grade$运行时从键盘上输入英文小写字母 d 后，输出的结果是U /U。 A.Very good B.Good C.Bad D.Qualified（分数：2.00）A.B.C.D.31.下列语句中正确的是 A. If AB Then Print“A 不等于 B“ B. If AB Then Printt“A 不等于 B“ C. If AB Then Prin
18、t“A 不等于 B“ D. If AB Print“A 不等于 B“（分数：2.00）A.B.C.D.32.已知数据表 A 中每个元素距其最终位置不远，为节省时间，应采用的算法是_。 A. 堆排序 B. 直接插入排序 C. 快速排序 D. 直接选择排序（分数：2.00）A.B.C.D.33.下列关系表达式中，其值为 True 的是U /U A.“XYZ“XYz“ B.“VisualBasic“visualbasie“ C.“the“=“there“ D.“Integer“Int“（分数：2.00）A.B.C.D.34.对采用二分查找法进行查找运算的查找表，要求按 _ 方式进行存储。 A. 顺序
19、存储 B. 链式存储 C. 顺序存储且结点按关键字有序 D. 链式存储且结点按关键字有序（分数：1.00）A.B.C.D.35.在一个窗体上添加命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果为_。Option Base 1Private Sub Command1_ Click()Dim a(5)As IntegerDim k As IntegerDim Total As Integera (1)= 2a (2)= 5a (3)= 4a (4)= 10a (5)= 6for k =1 To 5Total = Total +a(k)Next kPrint TotalEnd
20、Sub A. 10 B. 15 C. 27 D. 35（分数：2.00）A.B.C.D.二、B填空题/B(总题数：1，分数：27.00)下列程序功能是，产生 10 个 0100 的随机数，输出其中的最大值。请将程序补充完整。Private Sub Form_Click()Dim an (10) As IntegerDim max As IntegerRandomizeFor i%=1 To 10an(i%)=_Next i%max=an(1)For i%=2 To 10if_thenmax=an(i%)End IfNext i%print maxEnd SubEnd Sub（分数：27.04）
21、填空项 1:_填空项 1:_(3).对象的属性是指_。（分数：2.08）填空项 1:_(4).在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，U U /U /U负责数据的模式定义与数据的物理存取构建。（分数：2.08）填空项 1:_(5).下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。 请填空。 Sub PrintOutO Dim aAs Integer a=MsgBox(“输出结果?“，vblnformation+vbYesNo，“提示：“) If a=_Then Print “Myresult“ EndIf EndSub（分数：2.08）填空
22、项 1:_(6).当对象得到焦点时，会触发 GotFocus 事件，当对象失去焦点时将触发_事件。（分数：2.08）填空项 1:_(7).在算法的 4 个特性中，算法必须能在执行有限个步骤之后终止指的是算法的_特性。（分数：2.08）填空项 1:_(8).下面的程序用“冒泡”法将数组 a 中的 10 个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i=U U /U/U For j=U U /U/U If a
23、(i)U U /U/Ua(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub（分数：2.08）填空项 1:_(9).给定年份，下列程序用来判断该年是否为闰年，请填空。 提示：闰年的条件是年份可以被 4 整除但不能被 100 整除，或者能被 400 整除。 Private Sub Comand6_Click() Dim y As Integer y=InputBox(“请输入年份“) If(y Mod 4=0_y Mod 1000)or(y Mod 400=0)
24、Then Print“是闰年“ Else Print“是普通年份“ End If End Sub（分数：2.08）填空项 1:_(10).使用已经存在的类作为基础建立新类的定义，这种技术叫作做类的_。（分数：2.08）填空项 1:_(11).常用的黑箱测试有等价类划分法、_和错误推测法 3 种。（分数：2.08）填空项 1:_(12).一棵二叉树第六层(根结点为第一层)的结点数最多为_个。（分数：2.08）填空项 1:_(13).在窗体上建立一个单选钮组 Option1 和一个图片框 Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。
25、（分数：2.08）填空项 1:_二级 VISUAL+BASIC-29-2 答案解析(总分：88.04，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：61.00)1.在调用含有对象的过程时，对象只能通过_传送。 A. 传地址方式 B. 传值方式 C. 数组方式 D. 变量方式（分数：2.00）A. B.C.D.解析：2.模块的U /U定义为受该模块内一个判断影响的所有模块的集合。 A. 控制域 B. 作用域 C. 宽度 D. 接口（分数：1.00）A.B. C.D.解析：解析 模块的控制域是这个模块本身以及所有直接或间接从属于它的模块的集合。模块作用域定义为受该模块内一个判断影响的
26、所有模块的集合。宽度是软件结构内同一个层次上的模块总数的最大位，一般说来，宽度越大，系统越复杂。对宽度影响最大的因素是模块的扇出。模块间接口的复杂程度影响模块耦合强弱。3.按照“先进后出”原则组织数据的数据结构是U /U。 A. 队列 B. 栈 C. 双向链表 D. 二叉树（分数：2.00）A.B. C.D.解析：解析 栈是一种特殊的线性表，其插入和删除运算都只在线性表的一端进行，另一端是封闭的。进行插入、删除的一端称为栈顶，封闭的一端称为栈底。栈顶元素是最后被插入的元素，不是最后被删除的，是按先进后出的原则组织数据的。4.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为U
27、/U。 A.= B.* C.& D.-（分数：2.00）A.B.C.D. 解析：5.设有声明语句Dim b(-1 To 10，2 To 9，20)As Integer则数组 b 中全部元素的个数 A. 2310 B. 2016 C. 1500 D. 1658 （分数：1.00）A.B. C.D.解析：解析：在本题中，Dim b(-1 To 10，2 To 9，20)As Integer 定义了一个三 维数组，如果没有指定下界，缺省值是 0，所以计算数组中的个数就容易了，表达式为：(10 -(-1)+1)(9-2+1)(20-0+1)=2016，所以选项 B)是正确答案。6.数据的存储结构是指U
28、 /U。 A.数据所占的存储空间 B.数据的逻辑结构在计算机中的存放形式 C.数据在计算机中的顺序存储方式 D.存储在计算机外存中的数据（分数：2.00）A.B. C.D.解析：解析 数据的存储结构，又称为数据的物理结构，是数据的逻辑结构在计算机中的存放形式。数据的存储结构有顺序结构、链式结构、散列结构和索引结构等。7.在窗体上画一个名称为 Drivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel 的文件列表框，两个名称分别为 Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，
29、并且在标签 Labell 中显示当前文件夹中文件的数量。如下图所示。 能够正确实现上述功能的程序是U /U。 （分数：2.00）A.B.C. D.解析：8.要使一个文本框可以显示多行文本，应设置为 True 的属性是 A.Enabled B.MultiLine C.MaxLength D.Width（分数：2.00）A.B. C.D.解析：解析 MultiLine 用来设定文本框的显示方式。默认值为 False，此时文本框中输入数据和显示的结果都是单行的。若将其值设为 True，则可以在文本框中实现多行文本的输入和多行文本的显示。9.已知一棵二叉树前序遍历和中序遍历分别为 ABDEGCFH 和
30、 DBGEACHF，则该二叉树的后序遍历为 A. GEDHFBCA B. DGEBHFCA C. ABCDEFGH D. ACBFEDHG（分数：2.00）A.B. C.D.解析：解析 利用前序和中序遍历的方法可以确定二叉树的结构，具体步骤为：前序遍历的第一个结点 A 为树的根结点；中序遍历中 A 的左边的结点为 A 的左子树，A 右边的结点为 A 的右子树；再分别对 A 的左右子树进行上述两步处理，直到每个结点都找到正确的位置。10.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Commaadl_Click
31、()Dim arrayl(10, 10)As IntegerDim i, j As IntegerFor i=1 To 3For j=2 To 4arrayl(i, j)=i+jNext jNext iText1. Text=arrayl(2, 3)+arrayl(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。 A. 12 B. 13 C. 14 D. 15（分数：2.00）A. B.C.D.解析：解析 arrayl 是一个二维的数组，下标值从 0 开始，最大值为 10。实际上数组 arrayl 的元素值为下标之和，即 arrayl(2，3)=5，arrayl(3，
32、4)=7。所以在文本框中显示的值为 5+7=12。11.文件是U /U构成的数据集合。 A.字段 B.字符 C.记录 D.汉字（分数：2.00）A.B. C.D.解析：12.单链表要求内存中可用存储单元的地址_。 A.必须是连续的 B.一定是不连续的 C.部分地址必须是连续的 D.可以是连续的，也可以是不连续的（分数：2.00）A.B.C.D. 解析：13.编写如下事件过程。Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPres
33、s(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，若按 T 键，则程序输出的结果是U /U。 A. T T B. t T C. T C D. t t（分数：2.00）A.B.C. D.解析：解析 请复习 KeyPress 事件和 KeyDown 事件各参数的含义。14.以下叙述中错误的是U /U。 A.Visual Basic 是事件驱动型可视化编程工具 B.Visual Basic 应用程序不具有明显的开始和结束语句 C.Visual Basic52 具箱中的所有控件都具有宽度(Wi
34、dth)和高度(Height)属性 D.Visual Basic 中控件的某些属性只能在运行时设置（分数：2.00）A.B.C. D.解析：15.为了使标签中的内容居中显示，应把 Alignment 属性设置为_。 A. 0 B. 1 C. 2 D. 3（分数：2.00）A.B.C. D.解析：16.图像框中的 Stretch 属性为 True 时，其作用效果为U /U。 A. 只能自动设定图像框长度 B. 只能自动扩大图像 C. 只能自动缩小图像 D. 图形自动调整大小适应图像控件（分数：2.00）A.B.C.D. 解析：解析 Stretch 属性为 True 时，图形要调整大小，以适应 I
35、mage 控件的大小：当为 False 时，表示控件要调整大小以与图形相适应。17.在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码：Private Sub Commandl_Click()Dim a, i, msgmsg=“Choose OK to add 100 items to your listbox.“MsgBox msgFor il To 100a=“a：“ &iList1. Addltem aNext iEnd Sub程序完成的功能是 U /U A. 本程序使用 Addltem 方法增加 100 项给一个列表框 B. 本程序使用 Addltem 方法向一个
36、列表框中添加 100 项，其内容是数字 1100 C. 本程序使用 Addltem 方法向一个列表框中添加的内容是 1100 的和 D. 本程序使用 Addhem 方法增加 100 个列表框（分数：2.00）A. B.C.D.解析：解析 向列表框中添加项目常用 AddItem 方法，其格式为： 列表框名AddItem 字符串，序号 题中的程序使用 Addltem 方法增加 100 项给一个列表框，其内容为 a:i(i 为 l 到 100 的数字)。分析各选项，只有 A 项是正确的。18.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Comma
37、nd1_Click()c=“ABCD“For n=1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCD ABCD则在 _ 处应填入的内容为 A. Left(c，n) B. Right(c，n) C. Mid(c，n，1) D. Mid(c，n，n)（分数：1.00）A.B. C.D.解析：解析 本题考查的是字符串函数，Left (c，n)取字符串 c 左边 n 个字符；Right(c，n)取字符串 c 右边 n 个字符；Mid(c，N1，N2)取字符子串，在 c 中从 N1 位开始向右取 N2 个字符，默认 N2 到结束。19.设有以
38、下循环结构：Do循环体Loop While条件则以下叙述中错误的是 _。 A. 若“条件”是一个为 0 的常数，则一次也不执行循环体 B. “条件”可以是关系表达式、逻辑表达式或常数 C. 循环体中可以使用 Exit Do 语句 D. 如果“条件”总是为 True，则不停地执行循环体（分数：1.00）A. B.C.D.解析：解析 DoLoop While 循环是先执行一次后，再来判断循环条件是否成立，因此选项 A 的说法是错误的。20.有如下 Sub 过程：Sub Sun(x As Single，y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体上的命令按钮 Com
39、mand1 中，编写如下事件过程，执行该事件过程调用 Sun 过程，结果为U /U。Private Sub Command1_Click()Dim a As SingleDim b As Singlea=5b=4Sun a，bPrint a；bEnd Sub A. 1.25 1 B. 5 4 C. 4 5 D. 1 1.25（分数：2.00）A. B.C.D.解析：解析 本题考查过程的调用，如果用 Call 语句调用子过程时，实际参数要放在括号中，如果不使用 Call 子句，则不必使用括号。本题参数调用时是按地址传递，因此 Sun 过程中变量的值改变也即改变了单击事件中的 a、b 变量值。 S
40、un a，b 的执行过程是：t=x=5,x=t/y=1.25，y=t Mod y=1。21.设窗体上有一个滚动条，要求单击滚动条右端的(图片)按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是_。 A. Max B. Min C. SmallChange D. LargeChange（分数：1.00）A.B.C. D.解析：解析 滚动条控件(HScroll 或者 VScroll)的属性和事件有： Min 和 Max 属性：Min 属性设置滚动框位于滚动条最左端或者最顶端时 Value 属性的值。Max 属性设置滚动框位于滚动条最右端或者最底端时Value 属性的值。 SmallChange
41、 属性：设置鼠标单击滚动箭头时滚动框移动的大小。 LargeChange 属性：设置鼠标单击滚动箭头和滚动框之间的区域时，滚动框的移动大小。22.在一个窗体上添加命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果为_。Option Base 1Private Sub Command1_ Click()Dim a(5)As IntegerDim k As IntegerDim Total As Integera (1)= 2a (2)= 5a (3)= 4a (4)= 10a (5)= 6for k =1 To 5Total = Total +a(k)Next kPrint
42、TotalEnd Sub A. 10 B. 15 C. 27 D. 35（分数：2.00）A.B.C. D.解析：解析 本题的难点是循环计算数组之和。计算结果为“2+5+4+10+6=27”。23.组合框控件是将U /U组合成一个控件。 A.列表框控件和文本框控件 B.标签控件和列表框控件 C.标签控件和文本框控件 D.复选框控件和选项按钮控件（分数：2.00）A. B.C.D.解析：解析 组合框控件结合了文本框控件和列表框控件的功能，既可在控件的文本框部分输入信息，也可在控件的列表框部分选择列表项。24.设有如右图所示的窗体和下列程序：（分数：2.00）A. B.C.D.解析：解析 本题考查
43、的考点是有关事件执行过程的。由于先在文本框中输入数据，所以焦点在文本框中。当单击命令按钮时，首先应该执行文本框的 LostFocus 事件。本题中由于在文本框的 LostFocus 事件中执行到了 Text1.Setfocus，所以焦点不能离开文本框，也就不执行命令按钮的 Click 事件。25.下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是_。Private Sub Command1_Click()Dim count(25)As Integer，ch As Stringch=UCase(InputBox(“请输入字母字符串“)For k=1 T
44、o Len(ch)n=Asc(Mid(ch，k，1)-Asc(“A“)If n=0 Thencount(n)=count(n)+1End IfNext km=count(0)For k=1 To 25If mcount(k)Thenm=count(k)End IfNext kPrint mEnd Sub A.0 B.1 C.2 D.3（分数：1.00）A.B.C.D. 解析：解析 根据题中的程序代码可知，ch 为输入字符串的大写状态，第一个 For。循环是依次取出字母，n 为取出字母与“A”字符的 ASCII 码差值，然后再赋给数组 count()；第二个 For 循环是找出数组count()
45、中的最小值，因此，最后窗体上输出的结果为 3，即选项 D。26.设有如下声明；Dim X As Integer如果 Sgn(X)的值为-1，则 X 的值是 _。 A. 整数 B. 大于 0 的整数 C. 等于 0 的整数 D. 小于 0 的数（分数：1.00）A.B.C.D. 解析：解析 函数 Sgn 返回参数的符号，当参数 X 为正数时，该函数返回的值为 1：当 X 为负数时，返回的值为 -1 当 X 为 0 时，返回的值为 0。27.以下程序的功能是：把父目录下顺序文件 smtext1.txt 的内容读入内存，并在文本框 Text3 中显示出来。请选择适合横线处的语句U /U。Private Sub Command1_Click()Dim inData As StringText3.Text=“Open “/smtext1.txt“_As#1Do While_Input #1.inDataText3.Text=Text3.Text & inDataLoopClose #1End Sub A. For Input Not EOF(1) B. For Output
