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

发布网友发布时间：2024-10-04 16:51

共1个回答

热心网友时间：2024-11-15 22:25

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com