方法一：
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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!