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

admin2009-05-20  25

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

选项

答案20

解析 本题考查For Next…Each语句的用法,For Next…Each语句是针对数组和集合中的每一个元素进行一次操作的语句组合,具体格式我们前面已经有详细介绍。本题定义了一个数组,然后利用For循环将1~20赋给数组元素,又利用For Each Next语句将数组的每一个元素定义为20,故输出结果为20。
转载请注明原文地址:https://jikaoti.com/ti/P3c0FFFM
0

最新回复(0)