填空题 下面程序的输出结果是______。
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
MsgBox a(2)
End Sub

  • 1、
【正确答案】 1、20    
【答案解析】[解析] 本题考查循环程序，第一个循环程序初始化a数组，为1，2，3…20；第二个循环把a数组的每个值都变为20，所以本题填a(2)=20。