下面程序的输出结果是 【15】 。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub

下列俗语.成语正确体现了哲学原理的是（）

A.千里之行，始于足下——要重视量的积累

B.月晕而风，础润而雨——事物是普遍联系的

C.寒来暑往，四季更替——事物的变化发展是有规律的

D.兼听则明，偏信则暗——要全面地看问题