问答题

写输出下面程序的运行结果_                             _。
Dim a() As Integer 
Private Sub Command1_Click() 
ReDim a(1 To 5) 
For i = 1 To 5 
a(i) = i 
Next i 
ReDim a(1 To 10) 
For i = 6 To 10 
a(i) = 2 * i 
Next i  
For i = 1 To 10 
Print a(i); 
Next i 
End Sub