Dim a(9) As Long
Private Sub Command1_Click()
Dim i As Long, b As String, c As Long'b as long 改为 string
For i = 0 To 9
N:
b = InputBox("请输入10个数字,这是第" & i + 1 & "个")
If IsNumeric(b) Then
a(i) = Val(b)'===============
Text1.Text = Text1.Text & a(i) & " "
Else
MsgBox "输入错误，请重新输入", vbOKOnly, "错误"
GoTo N
End If
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024