下列程序的输出结果是【】。 Private Sub Commandl Click() Dim a(1 To 20) Dim i For i=1 To 20 a(i)=i Next i For Each i ln a() a(i)=20 Next i

admin2013-02-04 36

问题下列程序的输出结果是【  】。
Private Sub Commandl Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next  i
For Each i ln 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://kaotiyun.com/show/2Sup777K

二级Access

相关试题推荐

随机试题

最新回复(0)