Question

用VB6.0中inputbox函数输入数字在text文本框中进行显示的问题？

我定义了一个数组a(9),想实现通过inputbox函数输入10个数字，然后在文本框中显示出来。代码如下：
Dim a(9) As Long
Private Sub Command1_Click()
Dim i As Long, b As Long, c As Long

For i = 0 To 9
N:
b = InputBox("请输入10个数字,这是第" & i + 1 & "个")
If IsNumeric(b) Then
a(i) = b
Else
MsgBox "输入错误，请重新输入", vbOKOnly, "错误"
GoTo N
End If
Next i
Text1.Text = Text1.Text + a(i)+“　　　　　”
End Sub
请问该如何进行修改？谢谢

Answer 1

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