1、二级 VISUAL+BASIC-52 及答案解析(总分：100.00，做题时间：90 分钟)一、单项选择题(总题数：40，分数：100.00)1.在窗体上画一个文本框(其 Name 属性为 Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text=“ Text 1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是（分数：2.50）A.在文本框 Text1 中输出 55B.在文本框 Text1 中输出 0C.出错D.在文本框 Text1 中输出不定值
2、2.在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Wbile x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（分数：2.50）A.1 和 0B.2 和 72C.3 和 50D.4 和 1683.以下叙述中正确的是（分数：2.50）A.Select Case 语句
3、中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式C.在执行 Select Case 语句时，所有 Case 子句均按出现的次序被顺序执行D.如下 Select Case 语句中的 Case 表达式是错误的：Select Case xCase 1 to 10End Select4.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程： Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step-2 Co
4、unter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是（分数：2.50）A.11B.12C.16D.205.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 If i=1 Then x=i If i=4 Then x=x+l Print x; Next i End Sub 程序运行后，单击命令按钮，其输出结果为（分数：2.50）A.1 2 3 4B.2 3 4 5C
5、.2 3 4 4D.3 4 5 66.在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr$(65+I)； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.50）A.BBCCCDDDDEEEEEB.ABBCCCDDDDC.BCCDDDEEEED.AABBBCCCCDDDDD7.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过
6、程： 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.3C.4D.58.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() C=1234 c1=Trim(Str(c) For i=1 To 4 Print Next
7、End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在_处应填入的内容为（分数：2.50）A.Right(c1,n)B.Left(c1,i)C.Mid(c1,n,1)D.Mid(c1,n,n)9.假定 x 的值为 5，则在执行以下语句时，其输出结果为“Result”的 Select Case 语句是（分数：2.50）A.Select Case xCase 10 To 1Print“Result“End SelectB.Select Case xCase Is5,Is5Print“Result“End SelectC.Select Case xCa
8、se Is5,1,3 To 10Print“Result“End SelectD.Select Case xCase 1,3,Is5Print“Result“End Select10.在窗体上画一个文本框(其 Name 属性为 Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text=“ Text1.SetFoeus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是（分数：2.50）A.在文本框 Text1 中输出 55B.在文本框 Text1 中输出 0C.出错D
9、.在文本框 Text1 中输出不定值11.在窗体上画两个名称分别为 Label1 和 Label2 的标签，然后编写如下事件过程： Private Sub Form_Click() x=-5:s=-5 Select Case s Case Is0 y=x+1 Case Is0 y=x+2 Case Else y=x+3 End Select Label1.Caption=x Label2.Caption=y End Sub 程序运行后，单击窗体，标签 Label1 和 Label2 中显示的内容是（分数：2.50）A.-5 和-2B.-5 和-4C.-5 和-3D.-5 和-512.下列循环次
10、数为 5 的程序段是（分数：2.50）A.k=10Do While k=0k=k-2LoopB.k=0Do While k=10k=k+2LoopC.For i=5 To 1 Step-1s=s+iNext iD.For i=4 To 1 Step-1s=s+iNext i13.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() i=0 Do n=i*i i=i+1 Loop While ni End Sub 运行上面的程序，循环体的执行次数是（分数：2.50）A.1B.2C.3D.014.在窗体上画一个名称为
11、Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For a=1 To 5 y=1 For b=1 To 5 For e=1 To 5 y=y+1 Next c Next b Next a Print y End hub 程序运行后，单击命令按钮，窗体上显示的结果是（分数：2.50）A.25B.5C.126D.2615.在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x
12、7 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的内容分别是（分数：2.50）A.6 和 1B.148 和 4C.72 和 2D.0 和 116.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(“) F0r i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按
13、钮，如果在输入对话框中输入 3，则在窗体上显示的内容是（分数：2.50）A.3B.4C.5D.617.用下面的语句所定义的数组的元素个数是 Dim A(-3 To 5)As Integer（分数：2.50）A.6B.7C.8D.918.用下面的语句所定义的数组的元素个数是 Dim arr(3 To 5,-2 To 2)（分数：2.50）A.20B.12C.15D.2419.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer,arr2(10)As Intege
14、r n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.50）A.11 3B.3 11C.13 3D.3 1320.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,P(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3
15、P(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.50）A.35B.28C.33D.3721.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮
16、，其输出结果是（分数：2.50）A.4321B.12C.34D.123422.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为（分数：2.50）A.6 97 10B.
17、7 108 11C.8 119 12D.9 1210 1323.以下定义数组或给数组元素赋值的语句中，正确的是（分数：2.50）A.Dim a As Varianta=Array(1,2,3,4,5)B.Dim a(10)As Integera=Array(1,2,3,4,5)C.Dim a%(10)a(1)=“ABCDE“D.Dim a(3),b(3)As Integera(0)=0;a(1)=1;a(2)=2;b=a24.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim ar
18、r arr=Array(“1“,“2“,“3“,“4“,“5“,“6“,“7“,“8“,“9“,“0“) Print arr(2);arr(4);arr(6) End Sub 程序运行后，单击命令按钮，其输出结果是（分数：2.50）A.246B.135C.357D.出错25.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： 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
19、 To 4 array1(i,j)=i+j Next j Next i Text1,Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.50）A.12B.13C.14D.1526.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next i Label1.Caption=arr(0)+arr(arr(10)/arr(6) En
20、d Sub 程序运行后，单击命令按钮，在标签中显示的是（分数：2.50）A.0B.1C.2D.327.窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10，10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（分数：2.50）A.1 2 32 4 63 6 9B
21、.2 3 43 4 54 5 6C.1 4 72 5 83 6 9D.1 2 34 5 67 8 928.假定通过复制、粘贴建立了一个命令按钮数组 Command1，则以下说法中错误的是（分数：2.50）A.数组中每个命令按钮的名称(Name 属性)均为 Command1B.数组中每个命令按钮的大小都一样C.数组中每个命令按钮可以使用同一个事件过程D.用名称 Command1 可以访问数组中的每个命令按钮29.以下程序段的执行结果是 Dim A(1 To 10) For i=1 To 10 A(i)=2*i Next i Print A(A(3)（分数：2.50）A.12B.6C.8D.163
22、0.设有如下程序： Private Sub Form_Click() Dim a Dim i As Integer,j As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（分数：2.50）A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 431.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4)As Inte
23、ger,A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(“请输入一个整数“) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，输出结果为（分数：2.50）A.1B.2C.3D.032.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(
24、i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是（分数：2.50）A.6 6B.10 5C.7 21D.6 1233.在窗体上画 1 个命令按钮，其名称 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10) For i=1 To 10 arr(i)=i2 Next i Print arr(i-2) End Sub 程序运行后，单击命令按钮，在窗体上输出的是（分数：2.50）A.49B.64C.81D.10034.在窗体上画一个
25、命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10),arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.50）A.11 3B.3 11C.13 3D.3 1335.在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim
26、 Start As Integer,Finish As Integer Dim Sum As Integer arr=Array(12,4,8,16) Start=LBound(arr) Finish=UBound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1.Text=c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是（分数：2.50）A.40B.10C.12D.1636.阅读程序： Option Base 1 Private Sub Form_Click() Dim i A
27、s Integer Dim A(8)As String For i=1 To 8 A(i)=LCase(Chr(Asc(“A“)+(i-1) Next i For Each b In A Print UCase(b); Next b End Sub 运行上面的程序，单击窗体，输出结果是（分数：2.50）A.1 2 3 4 5 6 7 8B.abcdefghC.ABCDEFGHD.出错信息37.对 Visual Basic 应用程序来说，以下描述中正确的是（分数：2.50）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和过程的调用均可以嵌
28、套D.过程的定义和过程的调用均不能嵌套38.假定有如下的 Sub 过程： Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.50）A.5 4B.1 1C.1.25 4D.1.25 139.阅读程序： Function F(a As Integer)
29、b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(a) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为（分数：2.50）A.444B.456C.468D.47940.阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As I
30、nteger a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为（分数：2.50）A.2468B.5678C.10121416D.出错二级 VISUAL+BASIC-52 答案解析(总分：100.00，做题时间：90 分钟)一、单项选择题(总题数：40，分数：100.00)1.在窗体上画一个文本框(其 Name 属性为 Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text=“ Text 1.SetFo
31、cus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是（分数：2.50）A.在文本框 Text1 中输出 55 B.在文本框 Text1 中输出 0C.出错D.在文本框 Text1 中输出不定值解析：2.在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Wbile x50 x=(x+2)*(x+3) n=n+1 Loop Text1.T
32、ext=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（分数：2.50）A.1 和 0B.2 和 72 C.3 和 50D.4 和 168解析：3.以下叙述中正确的是（分数：2.50）A.Select Case 语句中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式C.在执行 Select Case 语句时，所有 Case 子句均按出现的次序被顺序执行 D.如下 Select Case 语句中的 Case 表达式是错误的：Select Case xCase 1
33、 to 10End Select解析：4.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程： Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step-2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是（分数：2.50）A.11B.12 C.16D.20解析：5.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下
34、事件过程： Private Sub Command1_Click() For i=1 To 4 If i=1 Then x=i If i=4 Then x=x+l Print x; Next i End Sub 程序运行后，单击命令按钮，其输出结果为（分数：2.50）A.1 2 3 4B.2 3 4 5 C.2 3 4 4D.3 4 5 6解析：6.在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr$(65+I)； Next J Print Nex
35、t I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.50）A.BBCCCDDDDEEEEE B.ABBCCCDDDDC.BCCDDDEEEED.AABBBCCCCDDDDD解析：7.在窗体上画一个名称为 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 Su
36、b 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.50）A.2B.3 C.4D.5解析：8.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() C=1234 c1=Trim(Str(c) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在_处应填入的内容为（分数：2.50）A.Right(c1,n)B.Left(c1,i) C.Mid(c1,n,1)D.Mid(c1,n,n)解析：9.假定 x 的值为
37、5，则在执行以下语句时，其输出结果为“Result”的 Select Case 语句是（分数：2.50）A.Select Case xCase 10 To 1Print“Result“End SelectB.Select Case xCase Is5,Is5Print“Result“End SelectC.Select Case xCase Is5,1,3 To 10Print“Result“End Select D.Select Case xCase 1,3,Is5Print“Result“End Select解析：10.在窗体上画一个文本框(其 Name 属性为 Text1)，然后编写如下
38、事件过程： Private Sub Form_Load() Text1.Text=“ Text1.SetFoeus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是（分数：2.50）A.在文本框 Text1 中输出 55B.在文本框 Text1 中输出 0C.出错 D.在文本框 Text1 中输出不定值解析：11.在窗体上画两个名称分别为 Label1 和 Label2 的标签，然后编写如下事件过程： Private Sub Form_Click() x=-5:s=-5 Select Case s Case Is0
39、 y=x+1 Case Is0 y=x+2 Case Else y=x+3 End Select Label1.Caption=x Label2.Caption=y End Sub 程序运行后，单击窗体，标签 Label1 和 Label2 中显示的内容是（分数：2.50）A.-5 和-2 B.-5 和-4C.-5 和-3D.-5 和-5解析：12.下列循环次数为 5 的程序段是（分数：2.50）A.k=10Do While k=0k=k-2LoopB.k=0Do While k=10k=k+2LoopC.For i=5 To 1 Step-1s=s+iNext i D.For i=4 To
40、1 Step-1s=s+iNext i解析：13.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() i=0 Do n=i*i i=i+1 Loop While ni End Sub 运行上面的程序，循环体的执行次数是（分数：2.50）A.1B.2C.3 D.0解析：14.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For a=1 To 5 y=1 For b=1 To 5 For e=1 To 5 y=y+1 Next c
41、 Next b Next a Print y End hub 程序运行后，单击命令按钮，窗体上显示的结果是（分数：2.50）A.25B.5C.126D.26 解析：15.在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x7 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的内容分别是（分数：2.50
42、）A.6 和 1B.148 和 4C.72 和 2 D.0 和 1解析：16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(“) F0r i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入 3，则在窗体上显示的内容是（分数：2.50）A.3B.4C.5D.6 解析：17.用下面的语句所定义的数组的元素个数是 Dim A(-3 To 5)As Integer（分数：2
43、.50）A.6B.7C.8D.9 解析：18.用下面的语句所定义的数组的元素个数是 Dim arr(3 To 5,-2 To 2)（分数：2.50）A.20B.12C.15 D.24解析：19.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer,arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后，单击命令按
44、钮，输出结果是（分数：2.50）A.11 3 B.3 11C.13 3D.3 13解析：20.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,P(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 P(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是（分数
45、：2.50）A.35B.28C.33 D.37解析：21.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（分数：2.50）A.4321B.12C.34D.1234 解析：22.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代
46、码： Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为（分数：2.50）A.6 97 10B.7 108 11C.8 119 12D.9 1210 13 解析：23.以下定义数组或给数组元素赋值的语句中，正确的是（分数：2.50）A.Dim a As
47、Varianta=Array(1,2,3,4,5) B.Dim a(10)As Integera=Array(1,2,3,4,5)C.Dim a%(10)a(1)=“ABCDE“D.Dim a(3),b(3)As Integera(0)=0;a(1)=1;a(2)=2;b=a解析：24.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim arr arr=Array(“1“,“2“,“3“,“4“,“5“,“6“,“7“,“8“,“9“,“0“) Print arr(2);arr(4
48、);arr(6) End Sub 程序运行后，单击命令按钮，其输出结果是（分数：2.50）A.246B.135C.357 D.出错解析：25.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： 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 array1(i,j)=i+j Next j Next i Text1,Text=array1(2,3)+array1(3
49、,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.50）A.12 B.13C.14D.15解析：26.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next i Label1.Caption=arr(0)+arr(arr(10)/arr(6) End Sub 程序运行后，单击命令按钮，在标签中显示的是（分数：2.50）A.0 B.1C.2D.3解析：27.窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10，10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（分数：2.50）A
