下列程序的输出结果是【 】。
Private Sub Command l Click()
Dim a(1 TO 20)
Dim i
For i=1 TO 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2) End Sub
第1题:
在窗体上面1个名称为Command1的命令按钮,然后编写下列事件过程 Option Base 1 Private Sub,Command1 Click( ) Dim a(5,5)ks Integer For i=1 To j For j=1 To 5 a(i,j)=(i+j)*5\10 Next j Next i S=0 For i=1 To j s=s+a(i,i) Next i Print s End Sub 程序运行后,单击命令按钮,输出结果是( )。
A.15
B.13
C.11
D.9
第2题:
下列程序的输出结果是______。
Private Sub Commandl_Click()
Dim alt(1 To 10)
Fori=1 To 10
arr(i) =I
Next i
For Each i In arr()
arr(i) =arr(i) *2+1
Next i
MsgBox arr(7)
End Sub
第3题:
下列程序的输出结果是【 】。
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2)
End Sub
第4题:
下面程序的输出结果是【 】。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub
第5题:
下列程序的输出结果是【 】
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a()
a (i) =20
Next i
第6题:
设有命令按钮Command1的单击事件过程,代码如下: Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序,单击命令按钮,输出结果是______。
A.20
B.7
C.16
D.17
第7题:
下列程序的输出结果是______。
Private Sub Command1_Click()
Dim arr(1To 10)
For i=1 To 10
arr(i)=i
Next i
For Each i In arr()
arr(i)=arr(i)*2+1
Next i
MsgBox arr(7)
End Sub
第8题:
( 22 )命令按钮 Command1 的单击事件过程的代码如下:
Private Sub Command1_Click( )
Dim a(3 , 3)As Integer
For i=1 To 3
For j=1 To 3
a(i , j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i , 4-i)
Next i
Print Sum
End Sub
运行程序,单击命令按钮,输出结果是( )。
A ) 20
B ) 7
C ) 16
D ) 17
( 22 )【答案】 C )
【解析 】 经赋值后数组 a 的元素为 (2,3,4,4,6,8,6,9,12) , 而第三个 For 循环语句的作用是求次对角线上三个元素的和,即 Sum=a(1,3)+a(2,2)+a(3,1)=4+6+6=16 。
第9题:
设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a(3,3)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i,4-i)
Next i
Print Sum
End Sub
运行程序,单击命令按钮,输出结果是( )。
A.20
B.7
C.16
D.17
经赋值后数组a的元素为(2,3,4,4,6,8,6,9,12),而第三个For循环语句的作用是求次对角线上三个元素的和,即Sum=a(1,3)+a(2,2)+a(3,1)=4+6+6=16。