方法一：
Dim a(9)

Private Sub Form_click()
For i = 0 To 9
a(i) = Val(InputBox("请输入"))
Print a(i)

Next i

End Sub
方法二：
Dim a(9)



Private Sub Form_Click()

For i = 0 To 9
a(i) = Val(InputBox("请输入"))
Next i


For i = 0 To 9
Print a(i)
Next i

End Sub

一种方法每输入一个数就在窗体上显示一个数，另一种方法输入十个数后一块儿在窗体上显示。