下面程序的输出结果是【 】。 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 N

admin2009-01-19  46

问题 下面程序的输出结果是【  】。
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

选项

答案20

解析 For Each... Next语句是针对数组和集合中的每一个元素进行一次操作的语句组合。本题定义了一个数组,然后利用For循环将1-20赋给数组元素,又利用For Each... Next语句将数组的每一个元素定义为20,故输出结果为20。
转载请注明原文地址:https://kaotiyun.com/show/g35p777K
0

最新回复(0)