问题
填空题
下列程序的输出结果是【15】。
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
答案
参考答案：T
解析： 本题考查For Next…Each语句的用法，For Next…Each语句是针对数组和集合中的每一个元素进行…次操作的语句组合。本题定义了一个数组，然后利用For循环将1～20赋给数组元素，又利用For Each Next语句将数组的每一个元素定义为20，故输出结果为20。