下列程序的输出结果是 1。Private Sub Commandl Click()Dim a(1 To 20)Dim iFor i=1 To 20a(i)=iNext iFor Each i ln a()a(i)=20Next iPrint a(2)End Sub

1、

【正确答案】 1、正确答案：20

【答案解析】解析：本题考查For Next…Each语句的用法，For Next…Each 语句是针对数组和集合中的每一个元素进行一次操作的语句组合。本题定义了一个数组，然后利用For循环将1～20赋给数组元素，又利用For Each Next语句将数组的每一个元素定义为20，故输出结果为20。