如题所述
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = 2 * i
Print a(i);
Next i
End Sub
满意请采纳哟