[计算机类试卷]国家二级VB机试（选择题）模拟试卷150及答案与解析.doc

《[计算机类试卷]国家二级VB机试（选择题）模拟试卷150及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级VB机试（选择题）模拟试卷150及答案与解析.doc（26页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级 VB机试（选择题）模拟试卷 150及答案与解析 一、选择题 1 以下叙述中错误的是 （ A）用 ReDim语句可以改变数组的维数 （ B）用 ReDim语句可以改变数组的类型 （ C）用 ReDim语句可以改变数组每一维的大小 （ D）用 ReDim语句可以对数组中的所有元素置 0或空字符串 2 设有下面的程序段： 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） D

2、im a( ) As Integer （ C） Dim a As Integer （ D） Dim a(0 To 100)As Integer 3 如果要在语句： a=Array(1， 2， 3， 4， 5)的前面声明变量 a，则正确的声明是 （ A） Dim a(4)As Integer （ B） Dim a(5)As Variant （ C） Dim a(1 To 5)As Integer （ D） Dim a As Variant 4 设 有如下一段程序： Private Sub Command 1_Click() Static a As Vailant a=Array(“one”， “

3、two”， “three”， “four”， “five”) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是 （ A）变量声明语句有错，应改为 Static a(5)As Variant （ B）变量声明语句有错，应改为 Static a （ C）可以正常运行，在窗体上显示 three （ D）可以正常运行，在窗体上显示 four 5 在窗体上 画一个命令按钮 (其 Name属性为 Commandl)，然后编写如下代码： Private Sub Command 1 Click() Dim n0 As Integer Dim a， bAs Integer a=Inpu

4、tBox(“Enter the first number”) b=InputBox(“Enter the second number”) ReDim n(a To b) For k=LBound(n)To UBound(n) n(k)=k Print n(k)； Next k End （ A） 1 2 （ B） 2 3 （ C） 3 4 （ D） 4 5 6 在程序中要使用 Array函数给数组 art赋初值，则以下数组变量定义语句中错误的是 （ A） Static all“ （ B） Dim art(5) （ C） Dim arr0 （ D） Dim art As Variant 7 有下面

5、程序代码： Private Sub Command 1 Click() a=Array(1， 2， 3， 4， 5， 6， 7， 8， 9， 10)： n=UBound(a) For k=0 To UBound(a 2 Print a(k)*a(n)： n=n-1 Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 2 6 12 20 30 （ B） 2 12 20 56 90 （ C） 30 28 24 18 10 （ D） 10 18 24 28 30 8 有下面程序代码： Option Base 1 Private Sub Commandl C

6、lick() Dim a(10)As Integer,x， b x=InputBox(“请输入一个多位整数 ”) For k=1 To Len(x) b=Mid(x， k,1) a(Val(b+1)=a(ValCo)+1)+1 Next k For k=1 To 10 Print a(k)； Nextk End Sub 程序运行时，单击命令按钮 Command1，输入 2355270224，则输出是 （ A） 1 0 4 1 1 2 0 1 0 0 （ B） 0 4 1 1 2 0 1 0 0 0 （ C） 2 3 5 5 2 7 0 2 2 4 （ D） 4 2 2 0 7 2 5 5 3

7、2 9 窗体上有 Command1、 Command2两个命令按钮。现编写以下 程序： Option Base 0 Dim Private Sub Command2_Click() a()As Integer,m As Integer m=InputBox(“请输入一个正整数 ”) Private Sub Commandl_lick()ReDim a(m) m=InputBox(“请输入一个正整数 ”)End Sub ReDim a(m) End Sub 运行程序时，单击 Command1后输入整数 10，再单击 Command （ A） 5 （ B） 6 （ C） 10 （ D） 1 1 1

8、0 在 窗体上画一个名为 Command1的命令按钮，然后编写以下程序： Private Sub Command1 Click() Dim M(10)As Intvger For k=1 To 10 M(k)=12-k Next k x=8 PrintM(2+M(x) End Sub 运行程序，单击命令按钮，在窗体上显示的是 （ A） 6 （ B） 5 （ C） 7 （ D） 8 11 在窗体上画一个命令按钮和一个标签，其名称分别为 Command1和 Labe11，然后编写如下事件过程： Private Sub Commandl Click() Dim art(10) For i=6 To

9、10 art(i)=i一 5 Next i Labell Caption=arr(0)+arr(arr(10) arr(6) End Sub 运行程序，单击命令按钮，则在标签中显示的是 （ A） 0 （ B） 1 （ C） 2 （ D） 3 12 在窗体上画一个名称为 Textl的文本框，并编写如下程序： OptionBase 1 Private Sub Form_Click() Dim art Dim StartAs Integer,FinishAs Integer SumAs Integer art=Array(12， 4， 8， 16) Start=LBound(arr)： Finish

10、=UBound(arr)： Sum=0 For i=StartTD Finish Sum=Sum+art(i) Next i c=Sum Finish Text1 Tex （ A） 40 （ B） 10 （ C） 12 （ D） 16 13 以下过程的功能是从数组中寻找最大值： Private SUb FindMax(a() As Integer,ByRefMax As Integer) Dim SAs Integer,fAs IntegerDim iAs Integer S=LBound(a： f=UBound(a) Max=a(s) For i=S To f Ifa(i)Max Then

11、Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是 （ A）语句 Call FindMax(a， m)可以调用该过程，其中的 a是数组， m是 Integer类型变量 （ B） For循环次数等于 a数组的元素数 （ C）过程末尾应该增加一条返回最大值的语句 FindMax=Max （ D）参数 Max用于存放找到的最大值 14 窗体上有一个名称为 Commandl的命令按钮，并有如下程序代码： OptionBase 1 Private Sub Command1 Click() Dim a (3， 3) For i=1 To 3 Forj=1 To 3 Ifi1 A

12、ndj1 Then a(i， j)=a(a(i1， j-1)， a(i， j-1)+1 Else 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 15 窗体上有一个名称为 Commandl的命令按钮，其单击事件过程如下： Option Base 1 Private Sub Command1_Cliek( ) Dim a(4， 4)As Integer For i=1 To 4 Forj=1 To 4 a(i， j

13、)=Int(Rnd*100) Next Next x=a(1， 1)y=a(1， 1) For i=1 To 4 Forj=1 To 4 Ifxa(i， j)Then y=a(i， j) Next s= （ A）二维数组元素的值是不大于 99的随机整数 （ B）计算结果 x是二维数组各元素中的最大数 （ C）计算结果 y是二维数组各元素中的最小数 （ D）计算结果 s是二维数组各行第一个元素之和 16 窗体上有一个名称为 Commandl的命令按钮。要求编写程序，把文件 fl txt的内容写到文件 f2 txt中，然后将 f1 txt删除。命令按钮的单击事件过程如下： Private Sub

14、Command 1Click() Open“c： f1 txt”For Input As#1 Open“eat2 txt”For OutputAs#2 Do While Not EOF(2) Line Input str 1， str1 Print #2， str1 Loop Close Kill“c： n txt” End （ A）打开 f1 txt应该使用 Output方式，打开 f2 txt应该使用 Input方式 （ B） Not EOF(2)应该改为 Not EOF(1) （ C） Line Input应改为 Get （ D） Close语句改为 Close All 17 窗体上有名

15、称为 Commandl的命令按钮，其事件过程如下： Option Base 1 Private Sub Command1 Click() Dim a Dim b(10)As Integer a=Array(2， 4， 7， 3， 9， 6) For i=LBound(aTo UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print Sum End Sub 运行程序，单击命令按钮时，窗体上显示的是 （ A） 44 （ B） 46 （ C） 50 （ D） 52 18 窗体上有一个名称为 Commandl的命令按钮，有程序如下： Option Base 1 P

16、rivate Sub Command 1_ Click() Dim a(10)As Integer第 1个 For For i=1 To 10 a(i)=Int(Rnd*100+100) Print a(i)； Next x=a(i)： y=x第 2个 For For i=1 To 10 Ifxa(i)Then y=a(i) s=s+a(i) Next Print x， ys En （ A）程序运行出错，第 1个 For循环之后的 x=a(i)赋值语句错 （ B）程序正常运行， x是 10个随机数中的最大值 （ C）程序正常运行， s是 10个随机数的和 （ D）程序正常运行， 10个随机数的

17、范围是 100 200 19 在窗体上画一个文本框，其名称为 Text1，然后编写如下程序： Option Base 1 Pfivate Sub Form_Click0 Dim Arr(1 0)As Integer For i=6 T0 10 Art(i)=i一 3 Next i Text1 Text=sir(Art(6)+Arr(Arr(6)+Arr(10) End Sub 程序运行后，单击窗体，在文本框中显示的内容是 （ A） 7 （ B） 8 （ C） 9 （ D） 10 20 假定有如下程序： Pfivme Sub Form_Click() Dim a(4)As Integer,b(4

18、)As Integer For k=0 To 2 a(k+1)=Val(InputBox(“请输入一个整数： ”) b(3-k)=a(k+1) Next k Print b(k) End Sub 运行程序，单击窗体，依次输入 3、 6、 9，输出结果为 （ A） 3 （ B） 6 （ C） 9 （ D） 1 21 阅读程序： Option Base 1 Private Sub Form Click() Dima(3， 3)As Integer For i=1 To 3 Forj=1 To 3 a(i， j)=_ Print a(i， j)； Nextj Print Next i End Sub

19、 运行上面的程序，单击窗体，输出结果如下： 1 4 7 2 5 8 3 6 9 则在横 线处应填入的内容为 （ A） i+j （ B） i*j （ C） (i 一 1)*3+j （ D） i+(i-1)*3 22 阅读程序： Option Base 1 Sub P(b()As IntegeO For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form_Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub

20、运行 上面的程序，单击窗体，输出结果为 （ A） 2 4 6 8 （ B） 5 6 7 8 （ C） 10 12 14 16 （ D） 4 8 12 16 23 在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Afr00)As Integer For i=1 To 10 Art(i)=1 1一 i Next i x=InputBox(“输入一个整数 (3-10)”) Print Arr(2+Arr(x) End Sub 程序运 行后，单击命令按钮，在输入对话框中输入 7，则输出结果为 （ A） 3 （ B

21、） 4 （ C） 5 （ D） 6 24 设有下面程序代码： Private Sub Command1_Click() Dim a As Variant 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) Ifa(k)m Then n=m： m=a(k) Elselfa(k)h And a(k)m Then n=a(k) End If Next k Print n End Sub 程序运行时的输出是 （ A）数组中最大的数 (即 98) （ B）数组

22、中最小的数 (即 12) （ C）数组中第 2大的数 (即 87) （ D）数组中第 1个数 (即 22) 25 设有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim x(6) a=Array(4， 2， 5， 1， 6， 3) b=Array(64， 24， 98， 27， 58， 41) For k=1 To 6 x(a(k)=b(k) Next k For k=1 To 6 Print x(k)； Next k End Sub 程序运行时的输出是 （ A） 27 24 41 64 98 58 （ B） 64 24 98 27 5

23、8 41 （ C） 24 27 41 58 64 98 （ D） 98 64 58 41 27 24 26 以下关于控件数组的叙述中，正确的是 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含不同类型的控件 （ C）数组中各个控件具有相同的 Index属性值 （ D）数组元素不同，可以响应的事件也不同 27 以下关于控件数组的叙述中，错误的是 （ A）各数组元素共用相同的事件过程 （ B）各数组元素通过下标进行区别 （ C）数组可以由不同类型的控件构成 （ D）各数组元素具有相同的名称 28 假定通过复制、粘贴操作建立了一个命令按钮数组 Commandl，以下说法中错误的是 （ A）

24、数组中每个命令按钮的名称 (Name属性 )均为 Commandl （ B）若未做修改，数组中每个命令按钮的大小都一样 （ C）数组中各个命令按钮使用同一个 Click事件过程 （ D）数组中每个命令按钮的 Index属性值都相同 29 窗体上已有的 3个单选按钮组成了 1个名为 ChkOptl的控件数组。 用于区分控件数组 ChkOptl中每个元素的属性是 （ A） Caption （ B） ListCount （ C） Listlndex （ D） Index 30 窗体上有一个名称为 Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时， 会调用下面的事件过程 Privme S

25、ub Optionl Click(Index As Integer) End Sub 下面关于此过程的参数 Index的叙述中正确的是 （ A） Index为 1表示单选按钮被选中，为 0表示未选中 （ B） Index的值可正可负 （ C） Index的值用来区分哪个单选按钮被选中 （ D） Index表示数组中单选按钮的数量 31 设在窗体上有一个名称为 Check1的复选框数组，并有以下事件过程： Private Sub Check 1_Click(Index As Integer) End Sub 则下面叙述中错误的是 （ A）单击数组中任何复选框都会调用此事件过程 （ B）参数 In

26、dex的值等于单击数组中某个复选框的 Index属性的值 （ C）上面的过程是 数组中第 1个复选框的事件过程 （ D）从过程的首部 (即第 1行 )无法确定数组中复选框的个数 32 下面关于控件数组的叙述中正确的是 （ A）控件数组中所有控件的名称相同，但其 Index属性值各不相同 （ B）控件数组中所有控件的名称相同，但其 Value属性值各不相同 （ C）控件数组中每个元素都是独立的控件，因此都有各自的事件过程 （ D）上述都是错误的 33 下列关于控件数组的叙述中，正确的是 （ A）控件数组可以由不同类型的控件组成 （ B）控件数组元素的最小下标值为 1 （ C）在设计阶段，可以改

27、变控件数组元素的 Index属性值 （ D）控件数组的名字由 Caption属性指定 34 窗体上有一个由两个文本框组成的控件数组，名称为 Text1，并有如下事件过程： Private SUb Text 1_Change(Index As Integer) Select Case Index Case 0 Textl(1).FontSize=Text1(0) FontSize*2 Textl(1) Text=Text1(0) Text Case 1 Text1(0) FontSize=Text1(1).FontSize 2 Text1(0) Text=Text1(1) Text Case E

28、ls （ A） Index用于标识数组元素 （ B）本程序中 Case Else分支的语句永远不会被执行 （ C）向任何一个文本框输入字符，都会在另一个文本框中显示该字符 （ D）下标为 0的文本框中显示的字符尺寸将越来越小 国家二级 VB机试（选择题）模拟试卷 150答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 Visual Basic中有两种类型的数组：固定大小的数组及动态数组。固定大小的数组总是保持 同样的大小，而动态数组在运行时可以改变大小。要使用动态数组可先声明一个不指明大小的空数组 (即没有维数下标 )，然后再用ReDim语句在过程中改变数组大小和类型，对于多维数组，

29、无法改变维数，只能改变最后一维的大小。 【知识模块】 数组 2 【正确答案】 B 【试题解析】 动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用 Dim或 P曲 声明一个没有下标的数组 (括号不能省略 )，然后在过程中随时用 ReDim语句可以重定义变量作为下标的数组，重定义后原数组 的所有元素值被清空。 【知识模块】 数组 3 【正确答案】 D 【试题解析】 Array(arglist)函数用于将 arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成交体型变量或者不声明长度的数组，不能是定长

30、数组。 【知识模块】 数组 4 【正确答案】 D 【试题解析】 Array(arglist)函数用于将 arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成变体型变量或 者不声明长度的数组，不能是定长数组。数组的默认下界为 0，所以 a(3)是数组的第四个元素。 【知识模块】 数组 5 【正确答案】 B 【试题解析】 动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用 Dim或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中随时用 ReDim语句可以重定义变量作为下标的数组

31、，重定义后原数组的所有元素值被清空。输入 2、 3之后数组被重新定义成了 n(2 To 3)，只有两个数组元素，并且 n(k)=k，即输出 2 3。 【知识模块】 数组 6 【正确答案】 B 【试题解析】 Array(arglist)函数用于将 arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成变体型变量或者不声明长度的数组，不能是定长数组。 【知识模块】 数组 7 【正确答案】 D 【试题解析】 使用 Array函数建立的数组其下标下界为 0， n的值是数组的上界即 9：在循环中 k从 0循环到数组长度的一半，每次输出 a(k)*a的值然

32、后令 n-1，故此容易得到每次输出的是数 组两端值之积，依次向数组中间移动，即 1*10、2*9、 3*8、 4*7、 5*6。 【知识模块】 数组 8 【正确答案】 A 【试题解析】 InputBox函数将会返回用户在输入对话框中输入的文本，以字符串的形式返回；在第一个 For循环中从前到后依次取出字符串中的每一位数字，然后令对应的数组元素自加 1，其中数组的第一位放的是 0的个数，所以循环结束后数组中存放的是各个数字出现的个数。 【知识模块】 数组 9 【正确答案】 B 【试题解析】 本题考查的考点是有关动态数组的。动态数组以 变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在

33、窗体层、标准模块或过程中用 Dim或 Public声明一个没有下标的数组 (括号不能省略 )，然后在过程中随时用ReDim语句可以重定义变量作为下标的数组，重定义后原数组的所有元素值被清空。本题中由于数组下标从 0开始，所以单击 Commandl后输入 lO，数组被重定义成了 11个元素；然后单击 Command2输入 5，数组又被重定义成了 6个元素，所以最后数组中有 6个元素。 【知识模块】 数组 10 【正确答案】 A 【试题解析】 本题考查的考点 是有关数组的。本题只需要清楚知道最终输出的是什么就可以了，由于 x被赋值为 8，所以 M(x)也就是 M(8)，其值为 4；将 4代换M(x

34、)，可以知道最终输出的是 M(2+4)也就是 M(6)，所以最终输出结果为 6。 【知识模块】 数组 11 【正确答案】 A 【试题解析】 在本题的循环中分别将 aRR(6)到 aRR(10)的数组元素赋值为 1一5，而 aRR(0)到 alTI(5)的数组元素没有被赋值，将保留默认初值 0，即最后标签上显示的是 arr(0)+aRR(5)=0。 【知识模块】 数组 12 【 正确答案】 B 【试题解析】 本题中变量 Start存放的是数组的下界， Finish存放数组的上界，因此 For循环将遍历整个数组；在每次循环中将数组元素累加到累加和变量 Sum中，循环结束后用累加和变量除以数组上界，

35、由于数组下界从 0开始，即求出数组平均值。 【知识模块】 数组 13 【正确答案】 C 【试题解析】 本题中定义了一个子过程 FindMax，第一个形参是一个数组，第二个形参是一个整型值，所以调用此过程的实参也应该是一个数组和一个整型变量；在过程中遍历整个数组，首先让数组的第一个元 素为最大值，然后依次用数组元素和 Max进行比较，若其比 Max大则令其成为新的最大值，所以 For循环次数等于 a数组的元素数，参数 Max用于存放找到的最大值：子过程没有返回值，也无需增加一条返回最大值的语句 FindMax=Max。 【知识模块】 数组 14 【正确答案】 D 【试题解析】 本题是一个二维数组

36、的赋值问题，要判断清哪一个数组元素的值被赋值成了多少。首先确定 a(1， 1)=1， a(1， 2)2,a(1， 3)=3， a(2， 1)=2， a(3，1)=3；然后按照公式计算其余的元素。 【知识 模块】 数组 15 【正确答案】 D 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数，本题中产生的整数不会大于 99；后一个二重循环用于遍历整个二维数组并且进行比较，如果数组元素的值大于 x则成为新的最大值，小于 y则成为新的最小值，循环结束后 x是二维数组各元素中的最大数， y是二维数组各元素中的最小数。 s中存放的是二维数组对角线元素之和。 【知识模块

37、】 数组 16 【正确答案】 B 【试题解析】 打开文件的基本格式为： Ooen FileName For Mode As#FileNumber。打开方式主要有 Output、 Append、 Input、 Random等几种。本题中打开了两个文件，其中 1号文件用于读取， 2号文件用于写入。当进行读取时循环条件应该为 Not EOF(1)即还没有读取到文件结尾。 【知识模块】 数组 17 【正确答案】 D 【试题解析】 本题中使用了一个循环为 b数组进行赋值，每个元素的值足对应 a数组元素的值加上下标的值。因此 b数组中的元素为 (3、 6、 10、 7、 14、 12)，然后累加和为 52

38、。 【知识模块】 数组 18 【正确答案】 A 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数，本题中产生的整数的范围是 100-199：在第一个循环结束后，循环变量 i的值为不满足循环条件的值 11，在紧随其后的 x=a(i)语句将会执行出错，因为出现了数组越界。 【知识模块】 数组 19 【正确答案】 D 【试题解析】 本题中在循环中为数组部分元素赋值，把 Art(6) Arr(10)分别赋值为 3 7，其余的数组元素保持默认值 0；最终输出的是Art(6)+Arr(Arr(6)+Arr(10)即 Arr(6)+Arr(10)=10。 【知识模块】 数

39、组 20 【正确答案】 A 【试题解析】 本题在循环中输入数据，当第一次输入 3的时候 a(1)=3，b(3)=a(1)=3；当第二次输入 6的时候 a(2)=6， b(2)： a(2)=6；当第三次输入 9的时候 a(3)=6， b(1)=a(3)=9，跳出循环后 k的值为 3，将输出 b(3)的值。 【知识模块】 数组 21 【正确答案】 D 【试题解析】 本题中使用二重循环为数组赋值，分许输 的结果，每个元素和行号和列号的关系可 以看出，每个元素的值应该等于 i+(j-1)*3。 【知识模块】 数组 22 【正确答案】 A 【试题解析】 本题中的过程 P的功能是为形参数组 b进行赋值，数

40、组作为参数时采用的是地址传递，所以对形参的改变将会影响实参，也就是在窗体的单击事件中，首先在一个循环中为数组 a赋值，然后调用了 P过程重新为 a赋值覆盖掉原来的值。 【知识模块】 数组 23 【正确答案】 C 【试题解析】 本题是一个简单的数组操作，首先在一个循环中为数组元素赋值，然后输出指定的数组元素值。最终输出的是 Arr(2+Art(7)=Arr(6)=5。 【知识模块】 数组 24 【正确答案】 C 【试题解析】 本题显然是求取数组最大值的，先取得数组的第一个元素作为最大值，然后用 m保存最大值；在循环中如果发现了有比 m还大的数组元素，则将该元素作为新的最大值，原来的最大值 m赋值

41、给 n；如果元素不比 m大就去比较元素是否大于 n，若大于 n则将元素赋值给 n，所以循环结束后 n中的值是数组中第2大的数。 【知识模块】 数组 25 【正确答案】 A 【试题解析】 本题是一个简单的数组赋值，只要把握好每次为哪 个元素赋以什么样的值就不会出错。最后 x数组中存放的数据依次足 27、 24、 41、 64、 98、 58。 【知识模块】 数组 26 【正确答案】 A 【试题解析】 控件数组是一组具有共同名称和共同类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标。 【知识模块】 数组 27 【正确答案】 C 【试题解析】 控件数组是一组具

42、有共同名称和共同类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标。 【知识模块】 数 组 28 【正确答案】 D 【试题解析】 本题考查的考点是有关控件数组的。控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号(Index)，即下标，默认索引号从 0开始。建立控件数组有两种方法：一是先在窗体上画好一个控件，然后再用 “复制 ”和 “粘贴 ”的方法建立：二是先在窗体上先画出若干相同类型的控件，然后再将它们的名称改为同一个名称，再将其 Index属性分别设置为不同值即可。采用第一种方法建立控件数组时，每个数组元素的名

43、称、大小、事件均使用同一个，区别只在于 Index属性不一样。 【知识模块】 数组 29 【正确答案】 D 【试题解析】 控件数组是一组具有共同名称和类型的控件，它拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标，默认索引号从 0开始。 【知识模块】 数组 30 【正确答案】 C 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标，默认索引号从 0开始，不能为负值。 【知识模块】 数组 31 【正确答案】 C 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的

44、每个控件都有惟一的索引号 (Index)，即下标，默认索引号从 0开始，不能为负值。从过程的首部无法确定数组中控件的个数。 【知识模块】 数组 32 【正确答案】 A 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号 (Index)，即下标，默认索引号从 0开始，不能为负值。 【知识模块】 数组 33 【正确答案】 C 【试题解析】 控件数组 是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标，默认索引号从 0开始。在设计阶段可以手动指定控件数组元素的 Index属性值。 【知识模块】 数组 34 【正确答案】 D 【试题解析】 控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号 (Index)，即下标，默认索引号从 0开始。本题中的两个文本框的 Index值分别为 0和 1，所以 Case Else分支的语句永远不会被执行：根据程序向任何一个文本框 输入字符，都会在另一个文本框中显示该字符；在 0号文本框中输入时 1号文本框的字号是 0号文本框字号的 2倍，在l号文本框中输入时 0号文本框的字号是 1号文本框字号的一半，相当于没有变化，不会越来越小。 【知识模块】 数组