1、国家二级 VB机试（ Visual Basic控制结构）模拟试卷 1及答案与解析 一、选择题 1 由高中数学可知，对于连续函数 f(X)，若 f(x1)与 f(x2)值的符号相反，则在 x1和x2之间必存在 x0，使得 f(x0)=0(该点称为 “零点 “)。 设有 VB函数： Private Function f(x As Single)As Single可以返回 f(X)的值 (函数体没有给出 )。下面程序的功能是从键盘输入 2个实数 x1、 x2，判断在 x1、 x2之间是否存在零点。 Private Sub Command1_Click() Dim x1 As Single， x2 A
2、s Single x1=InputBox(“请输入一个实数 x1“) x2=InputBox(“请再输入一个实数 x2“) If(_)Then Print“在 “； x1； “与 “； x2； “之间存在零点 “ Else Print“不能确定在 “； x1； “与 “； x2； “之间是否存在零点 “ End If End Sub Private Function f(x As Single)As Single End Function 为使上面程序可以实现该 功能，程序代码中横线处应填写的代码是 （ A） f(x1) 0 Or f(x2) 0 （ B） f(x1) 0 And f(x2)
3、0 （ C） f(x1)*f(x2) 0 （ D） f(x1)*f(x2) 0 2 编写如下程序： Private Sub Command1_Click() Dim a As Integer， b As Integer a=3 b=2 If a*b 10 Then b=b+1 Else b=b- 1 Print b-a 0 End Sub 程序运行后，单击命令按钮 Command1，输 出结果为 （ A） True （ B） False （ C） 1 （ D） -1 3 编写如下程序： Private Sub Command1_Click() Dim m As Integer， n As In
4、teger m=2： n=1 Select Case m Case1 Select Case n Case1 Print“AAA“ Case2 Print“BBB“ End Select Case2 Print“CCC“ End Select End Sub 程序运行后，单击命令按钮 Command1，输出结果 为 （ A） AAA （ B） BBB （ C） CCC （ D） 1 4 有如下程序： Private Sub Form_Click() Dim i As Integer， n As Integer For i=1 To 20 i=i+4 n=n+i If i 10 Then Exi
5、t For Next Print n End Sub 程序运行后，单击窗体，则输出结果是 （ A） 14 （ B） 15 （ C） 29 （ D） 30 5 窗体上有一个名称为 Commandl的命令按钮，其单击事件过程如下： Private Sub Command1_Click() For i=3 To Step-1 Sum=0 For j=1 To i Sum=Sum+i*j Next Next Print Sum End Sub 运行程序时，单击命令按钮，则窗体上显示的是 （ A） 1 （ B） 6 （ C） 18 （ D） 25 6 窗体上有一个名称为 Command1的命令按钮，编写
6、如下事件过程： Private Sub Command1_Click() i=0 Do While i 6 For j=1 To i n=n+1 Next i=i+1 Loop Print n End Sub 运行程序，单击命令按钮时，窗体上显示的是 （ A） 10 （ B） 15 （ C） 16 （ D） 21 7 在窗体上画一个文本框，其名称为 Text1，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1 Text=str(
7、6)+Arr(Arr(6)+Arr (10) End Sub 程序运行 后，单击窗体，在文本框中显示的内容是 （ A） 7 （ B） 8 （ C） 9 （ D） 10 8 以下 Visual Basic不支持的循环结构是 （ A） ForNext （ B） F0rEachNext （ C） DoLoop （ D） DoEnd Do 9 假定有如下程序： Private Sub Form_Click() Dim a(4)As Integer， b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(“请输入一个整数： “) b(3-k)=a(k+1) Ne
8、xt k Print b(k) End Sub 运行程序，单击窗体，依次输入 3、 6、 9，输出结果为 （ A） 3 （ B） 6 （ C） 9 （ D） 1 10 有如下程序： Private Sub Form_Click() Dim S As String s=InputBox(“请输入一个字符串： “) For i=1 To kn(S) 2 If Mid(S， i， 1) Mid(S， Len(S)-i+1， 1)Then Print“No“ Exit Sub End If Next i Print“Yes“ End Sub 运行程序，单击窗体，在输入对话框中输入 abeseba，则输
9、出结果为 （ A） abe （ B） Yes （ C） eba （ D） No 11 设有下面程序代码： Private Sub Command1_Cliek() Dim a As Vairant a=Array(22， 43， 23， 56， 87， 45， 67， 12， 98， 98， 56， 34， 23， 75， 64) m=a(0) n=m For k=1 To UBound(A) If a(k) m Then n=m m=a(k) ElseIf a(k) n And a(k) m Then n=a(k) End If Next k Print n End sub 程序运行时的输出
10、是 （ A）数组中最大的数 (即 98) （ B）数组中最小的数 (即 12) （ C）数组中第 2大的数 (即 87) （ D）数组中第 1个数 (即 22) 12 有下面程序代码： Private Sub Command1_Click() For k =5 To 1 Step-1 x=k+x*10 Next k Print x End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 12345 （ B） 54321 （ C） 15 （ D） 150 13 有下面程序代码： Private Sub Command1_Click() Dim sign As Integ
11、er sign=1 3a=1 b=2 For k=1 To 5 c=a+sign*b a=b b=c Print c； sign=-sign Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 3 -1 2 -3 -1 （ B） 3 5 8 13 21 （ C） -1 1 -2 -1 -1 （ D） 3 4 5 6 7 14 编写如下程序： Private Sub Command1_Click() Dim a(10)As String s=“123456“ n=Len(s) For k=1 To n a(k)=Mid(s， k， 1) Next k
12、For i=1 To n 2 t=a(i) a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k)； blext k End Sub 程序运行后，单击命令按钮 Command1，输出结果为 （ A） 654321 （ B） 123456 （ C） 654123 （ D） 123654 15 编写如下程序： Private Sub Command1_Click() For i=1 To 4 Print Space(12-3*i)； For j=1 To i Print j； Next j For k=i-1 To 1 Step-1 Prin
13、t k； Next k Print Next i End Sub 程序运行后，单击命令按钮 Command1，输出结果为 （ A） 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 （ B） 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 （ C） 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 （ D） 1 2 3 4 3 2 1 1 2 3 2 1 1 2 1 1 16 窗体上有一个名称为 Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim s As Double s=0： i=1
14、 Do Whilei 6 s=s+i (i+1) i=i+1 Loop Print s End Sub 该事件过程的功能是计算一个表达式的值，该表达式是 （ A） 1+1 2+2 3+3 4+4 5 （ B） 1+1 24-2 34-3 44-4 54-5 6 （ C） 1 2+2 34-3 44-4 5 （ D） 1 2+2 3+3 4+4 5+5 6 17 编写如下程序： Private Sub Command1_Click() Dim m As Integer n As Integer m=1： n=0 Do While m 20 n=m+n m=3*m+1 Loop Print m，
15、n End Sub 程序运行后，单击命令按钮 Command1，输出结果为 （ A） 40 18 （ B） 40 19 （ C） 20 64 （ D） 21 64 18 设有如下事件过程： Private Sub Command1_Click() For i=1 To 5 j=i Do Print“*“ j=j-1 Loop Until j=0 Next i End Sub 运行程序，输出 “*”的个数是 （ A） 5 （ B） 15 （ C） 20 （ D） 25 19 窗体上有一个名称为 Command1的命令按钮。要求编写程序，把文件 n txt的内容写到文件 f2 txt中，然后将 f
16、1 txt删除。命令按钮的单击事件过程如下： Private Sub Command1_Click() Open“c： f1 txt“For Input As #1 Open“c： t2 txt“For Output As #2 Do While Not EOF(2) Line Input #1 str1 Print#2 str1 Loop Close Kill“c： f1 txt“ End Sub 该程序运行时发生错误， 应该进行的修改是 （ A）打开 f1 txt应该使用 Output方式，打开 f2 txt应该使用 Input方式 （ B） Not EPOF (2)应该改为 Not EO
17、F(1) （ C） Line Input应改为 Get （ D） Close语句改为 Close All 20 有如下程序： Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num 10 Loop fun=k End Function Private Sub Form_Click() Dim n As Integer Dim r As Integer n=InputBox(“请输入一个数： “) n=Int(n) r=
18、fun(n) Print r End Sub 程序运行后，单击窗体，在输入对话框中输入 246，输出结果为 （ A） 120 （ B） 48 （ C） 24 （ D） 60 21 下面程序的功能是输出 100以内所有素数： Private Sub Command1_Click() For n=2 To 100 isprime=True k=2 Do While k =n 2 And_ If n Nod k=0 Then isprime=False k=k+1 Loop If isprime Then Print n End If Next n End Sub 为使上面程序可以实现该功能，程序代
19、码中横线处应填写的代码是 （ A） isprime （ B） Not isprime （ C） n 100 （ D） n =100 22 编写如下程序： Private Sub Command1_Click() Dim Rum As Integer Dim k As Integer， n As Integer num=InputBox(“请输入一个正整数： “) k=num n=2 Do Do Whhile Rum Mod n=0 Print n； Bum=Bum n Loop n=n+1 Loop Untiln k 2 End Sub 程序运行后，单击命令按钮 Command1，并输入数值
20、20，则输出结果为 （ A） 2 2 5 （ B） 2 3 4 （ C） 2 3 4 5 （ D） 2 5 23 编写如下程序： Private Sub Command1_Click() Dim x As Integer， y As Integer x=1： y=1 Do y=x*y If y 10 Then Print x， y Exit Do Else x=x+3 End If Loop While x =10 End Sub 运行程序，循环实际执行次数为 （ A） 0 （ B） 2 （ C） 3 （ D） 4 24 窗体上有一个名称为 Command1的命令按钮，并有如下程序代码： Op
21、tion Base 1 Private Sub Command1_Click() Dim a (3， 3) For i=1 To 3 For j=1 To 3 If i 1 And j 1 Then a(i， j)=a(a(i-1， j-1)， a(i， j-1)+1 Flse a(i， j)=i*j End If Next Next Print a(2， 2)； a(3， 3) End Sub 运行程序，单击命令按钮，窗体上显示的是 （ A） 1 3 （ B） 2 1 （ C） 2 2 （ D） 3 3 25 设有如下声明语句 Option Base 1 Dim arr(2， -1 To 5
22、)As Integer 则数组 arr中数组元素的个数是 （ A） 10 （ B） 12 （ C） 14 （ D） 21 26 下列数组定义中错误的是 （ A） Dim a(-5 To-3) （ B） Dim a(3 To 5) （ C） Dim a(-3 To-5) （ D） Dima(-3 To 3) 27 设有下面的程序段 i X=InputBox(“请输入一个整数 “) ReDim a(x) For k=x To 0 Step-1 a(k)=k Next k 一般，在这段程序之前应先进行数组 a的定义。下面定义语句中正确的是 （ A） Dim a(100)As Integer （ B）
23、 Dim a()As Integer （ C） Dim a As Integer （ D） Dim a(0 To 100)As Integer 28 现有程序如下： Option Base 1 Private Sub Form_Click() Dim x(5， 6)As Integer， y(5)As Integer For i=1 To 5 For j=1 To 6 x(i， j)=Int(Rnd*9+1) Next j Next i Call f(5， 6， x， y) For i=1 To 5 Print y(i)； Next i End Sub Sub f(m As Integer，
24、n As Integer， a()As Integer， b()As Integer) For i=1 To m b(i)=0 For j=1 To n b(i)=b(i)+a(i， j) Next j Next i End Sub 关于上述程序，以下叙述中正确的是 （ A）调用过程语句有错，参数不匹配 （ B）程序有错 ，数组下标越界 （ C） y数组中保存的是 x数组每行数据之和 （ D） x数组中数据的取值范围是 110 29 如果要在语句： a=Array(1， 2， 3， 4， 5)的前面声明变量 a，则正确的声明是 （ A） Dim a(4)As Integer （ B） Dim
25、a(5)As Variant （ C） Dim a(1 To 5)As Integer （ D） Dim a As Variant 30 设有如下事件过程： Private Sub Command1_Click() Dim a a=Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x=0 n=UBound(A) For i=0 To n m=0 For j=0 To n If a(i)=a(j)Then m=m+1 End If Next j If m x Then x=m： b=a(i) Next i Print b End S
26、ub 运行程序，输出是 （ A） 2 （ B） 3 （ C） 5 （ D） 9 31 设工程文件中包名称分别为 Form1、 Form2的两个窗体，且 Form1的菜单属性设置如下： 窗体 Form1中的程序如下： Dim Flag As BooleanPrivate Sub Form_Load()Flag=TrueEnd SubPrivate Sub mnu1_Click(index As Integer)If Index=1 ThenIf Flag=True ThenForm2 showmnu1(1) Caption=“隐藏窗体2“Flag=FalseElseForm2 Hidemnu1(
27、1) Caption=“显示窗体 2“Flag=TrueEnd IfEnd IfIf Index=2 Then EndEnd Sub关于上述程序，以下叙述中错误的是 （ A） Index属性的值可以用来区分控件数组元素 （ B） Index为 1的菜单项的标题可能会改变 （ C）两个名称均为 Mnu1的菜单项构成一个控件数组 （ D）语句 Form2 Hide将 Form2卸载 32 下列关于控件数组的叙述中，正确的是 （ A）控件数组可以由不同类型的控件组成 （ B）控件数组元素的最小下标值为 1 （ C）在设计阶段，可以改变控件数组元素的 Index属性值 （ D）控件数组的名字由 Cap
28、tion属性指定 国家二级 VB机试（ Visual Basic控制结构）模拟试卷 1答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 判断 x1和 x2之间是否存在零点的条件是 xl和 x2符号相反。即 x1和 x2的积是负数。函数 f可以返回 f(x)的值，因此满足上述条件的表达式是f(x1)*f(x2) 0，选 C。 【知识模块】 Visual Basic控制结构 2 【正确答案】 B 【试题解析】 IfElse 语句对 b进行操作。 a*b=6， -10，所以执行 b=b+1=3。Print语句中， b-a=0，条件为假。选 B。 【知识模块 】 Visual Basic控制
29、结构 3 【正确答案】 C 【试题解析】 Select Case语句后面跟的是条件。根据条件执行相应的分支语句。m=2，因此执行 Select Case m中的 Case2分支语句。选 C。 【知识模块】 Visual Basic控制结构 4 【正确答案】 D 【试题解析】 程序中 For循环中的 If语句判断循环变量 i值如果大于 10则退出循环。各次循环变量值变化如下 i=1时， i=i+4=1+4=5， n=n+i=0+5=5，此时 i=5， i 10不成立， i加 1转入下次循环。 i=6时， i=i+4=6+4=10， n=n+i=5+10=15，此时， i=10， i 10不成立，
30、 i加 1转入下次循环。 i=11时， i=i+4=11+4=15， n=n+i=15+15=30，此时， i=15， i 10成立，退出循环。此时 n=30。 【知识模块】 Visual Basic控制结构 5 【正确答案】 A 【试题解析】 i初值为 3，步长为 -1，即循环中 i值分别为 3， 2， 1， j的 for循环中，步长为 1。注意 Sum=0语句。每次执行以 j为变量的 for循环前 Sum被清0。因此 Sum只在 i=1的循环有值。选 A。 【知识模块】 Visual Basic控制结构 6 【正确答案】 B 【试题解析】 For循环中， i大于等于 1时执行循环 n=+1
31、，共执行 5次，即 i从 1累加至 5， n的值从 1最终累加到 15。 【知识模块】 Visual Basic控制结构 7 【正确答案】 D 【试题解析】 For循环对数组 Arr的第 6个到第 10个元素赋值。 Art(6)=3；Art(10)=7；因此，输出结果是 10。选 D。 【知识模块】 Visual Basic控制结构 8 【正确答案】 D 【试题解析】 Visual Basic支持的循环结构不包括 DoEnd Do 。 【知识模块】 Visual Basic控制结构 9 【正确答案】 A 【试题解析】 For循环对数组 a和 b赋值。 b(3)=a(1)， b(2)=a(2)，
32、 b(1)=a(3)，循环结束时 k=3。因此选 A。 【知识模块】 Visual Basic控制结构 10 【正确答案】 B 【试题解析】 程序实现从输入的字符串中查找前半截和后半截中不同的字符，找到后打印 N0，并退出过 程。如果没有找到，则打印 Yes。题目中输入字符串abeseba，则 Len(S)=7， For循环的上限是 Len(S) 2=3，代入循环变量，当 i=1时Mid(S， i， 1)=a， blid(S， Len(S)-i+1， 1)=a，以此类推，每个字符都相等。选 B。 【知识模块】 Visual Basic控制结构 11 【正确答案】 C 【试题解析】 n和 m都获
33、得数组元素 a(0)的值。在 For循环中 k=1时，a(k)=a(1)=43， If条件满足， n=a(0)， m=a(1)。 ElseIf判断的相同值的条件 ，只有在大于 n并且不等于 m的时候才赋值给 n。因此 11中存储的数永远比 m小。而m中的值是数组中最大的值。因此选 C。 【知识模块】 Visual Basic控制结构 12 【正确答案】 B 【试题解析】 For循环用来对 x赋值。步长为 -1，一共执行 5次，第一次执行完后 x=5，第二次执行完后 x=54，以此类推，选 B。 【知识模块】 Visual Basic控制结构 13 【正确答案】 A 【试题解析】 For循环执行
34、 5次，按公式计算可得，结果选 A。 【知识模块】 Visual Basic控制结构 14 【正确答案】 A 【试题解析】 第一个 For循环从字符串 s中提取数字，赋值给数组 a的元素。第二个 For循环对数组 a中的元素实现倒序排列。第三个 For循环实现打印。选A。 【知识模块】 Visual Basic控制结构 15 【正确答案】 C 【试题解析】 Print Space(12-3*i)语句为打印空格符。根据变量 i的值变化，打印的个数不同。 For循环的执行根据变量值进行相应的打印。选 C。 【知识模块】 Visual Basic控制结构 16 【正确答案】 D 【试题解析】 whi
35、leLoop 循环。 i初值为 1，把 i值代入 i (i+1)语句可得公式为 1 2+2 3+3 4+4 5+5 6，选 D。 【知识模块】 Visual Basic控制结构 17 【正确答案】 A 【试题解析】 循环中各变量值变化如下： n=m+n=1+0=1， m=3*m+1=3+1=4， 4，小于 20继续循环； n=m+n=4+1=5， m=3*m+1=12+1=13， 13，小于 20继续循环； n=m+n=13+5=18， m=3*m+1=39+1=40， 40不小于 20，循环结束。此时 m=40，n=18。 【知识模块】 Visual Basic控制结构 18 【正确答案】
36、B 【试题解析】 i=1时，输出 1个 *， i=2时，输出 2个 *， i=3时，输出 3个 *， i=4时输出 4个 *， i=5时输出 5个 *，因此总共输出 *的个数是 1+2+3+4+5=15。 【知识模块】 Visual Basic控制结构 19 【正确答案】 B 【试题解析】 用 Open打开文件可以有三种模式，即 OutPut：打开一个文件，将对该文件进行写操作； Input：打 开一个文件，将对该文件进行读操作；Append：打开一个文件，将在该文件末尾追加记录。 Do While循环应该判断 1#文件的结尾，即 Do While Not EOF(1)，不是结尾的话把内容写到
37、 2#文件中。 Line Input语句为从已打开的顺序文件中读出一行并将它分配给 String变量。 Close语句后面有文件号，就关闭这个文件，否则就关闭所有打开的文件。此题中应该关闭所有的文件。选 B。 【知识模块】 Visual Basic控制结构 20 【正确答案】 B 【试题解析】 程序从对话 框中获得 n的初值并转换成数字进行计算。DoWhileLoop 循环对传过来的数值进行处理。 Nod为取余函数。代入变量和初值进行计算可得退出循环时 k=48。选 B。 【知识模块】 Visual Basic控制结构 21 【正确答案】 A 【试题解析】 素数是大于 1的自然数，除了 1和本
38、身不能被任何数整除的数。程序用 Do While循环对 n进行判断，如能被整除 isprime赋值为 False。否则赋值为True。随后的代码检测 isprime为 True时执行打印。因此 Do While判断条件中除了判断循 环变量的上限还需要判断 isprime的值。根据执行条件可知，选 A。 【知识模块】 Visual Basic控制结构 22 【正确答案】 A 【试题解析】 Mod为求余函数。内层 Do While循环在 num Mod n不等于 0时退出。 Do Loop Until循环满足 n k 2条件时退出。执行结果选 A。 【知识模块】 Visual Basic控制结构
39、23 【正确答案】 C 【试题解析】 x初值为 1。第一次先执行循环然后判断条件。在循环体中， x被加 3，执行完第 2次时 x=7。执行 第三次时， y=28，满足条件 y 10，执行 Exit Do跳出循环。选 C。 【知识模块】 Visual Basic控制结构 24 【正确答案】 D 【试题解析】 a是个整型的二维数组。通过 For循环给数组 a元素赋值。 i 1并且 j 1时执行 a(i， j)=a(a(i-1， j-1)， a(i， j-1)+1语句，否则执行 a(i， j)=i*j，因此执行完第一个大循环后，数组 a中的元素值分别是： a(1， 1)=1， a(1， 2)=2，a
40、(1， 3)=3。以此类推，可知 a(2， 2)=2， a(3， 3)=3。选 D。 【知识模块】 Visual Basic控制结构 25 【正确答案】 C 【试题解析】 程序中语句 Option Base 1表示定义数组下标从 1开始。但如果显式指定了数组的下标范围则不受此限制。第一维的下标从 1到 2，第二维的下标从-1到 5，所以数组元素个数为 14。 【知识模块】 Visual Basic控制结构 26 【正确答案】 C 【试题解析】 定义数组时，数组下标的上界 =下界。故 C选项错误。 【知识模块】 Visual Basic控制结构 27 【正确答案】 B 【试题解析】 在 VB中定
41、义动态数组通常分两步：首先在窗体层或标准模块中用Dim、 Private或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中用 BeDim语句定义带下标的数组。根据题意，选项 B正确。 【知识模块】 Visual Basic控制结构 28 【正确答案】 C 【试题解析】 程序利用 For循环为数组 x的 5行 6列元素以随机整数赋值，随机数的范围是从 1到 9。过程 f的功能是计算二维数组 a()的每一行中元素值的和，每一行的和存放在另一个数组 b()中，最后程序输出 这些和值。因此 C正确。 【知识模块】 Visual Basic控制结构 29 【正确答案】 D 【试题解
42、析】 Array函数只能初始化变体类型变量数组，所以选项 D正确。 【知识模块】 Visual Basic控制结构 30 【正确答案】 B 【试题解析】 本题程序中内层 For循环是统计具有相同值元素的个数，外层循环的功能则是，对数组中的所有元素进行统计，找出第 1个具有相同值的元素个数最多的那个元素值。数组组中元素值为 3的元素有 5个，元素值为 5的元素有 5个，元素值为 6的元素为 3个，元素值为 2的元素有 1个，元素值为 4的元素有 1个，元素值为 9的元素有 1个。因此第 1个具有相同元素值的最多个的元素值是3。 【知识模块】 Visual Basic控制结构 31 【正确答案】
43、D 【试题解析】 程序中菜单 Mnu1是一个控件数组，它们以 Index属性值作为数组下标来区分各元素。在菜单单击事件中， Flag值为真时，显示 Form2，同时把索引为 1的菜单项标题改为 “隐藏窗体 2”，然后把 Flag标志设为假；当 Flag值为假时，隐藏 Form2，同时把索引为 1的菜单项标题改为 “显示窗体 2”，然后把 Flag标志设为真。窗体 Hide方法，只是将窗体隐藏，并没有从内容中卸载。因此 D选项错。 【知识模块】 Visual Basic控制结构 32 【正确答案】 C 【试题解析】 控件数组必须用同类型的控件组成，最小下标为 0，控件数组的名字由 Name属性指定。选 C。 【知识模块】 Visual Basic控制结构
