VB6中InputBox输入数字格式化到TextBox的换行问题求助

问题根源 #

原代码的核心问题是每次循环都用累加的Inp变量直接覆盖TextBox内容，且换行符只加在所有累加内容的末尾，导致所有数字连续排列，无法实现每行单独换行。

修正方案 #

提供两种可行的修正代码，按需选择：

方案一：直接追加每行内容到TextBox #

无需额外累加变量，每次处理完输入后直接把格式化好的行追加到TextBox：

For i = 1 To a
    ans = InputBox("请输入3位无空格数字（1-9）")
    
    If ans = "" Then
        Exit Sub
    Else
        ' 格式化当前输入的3位数字为带空格的行
        Dim currentLine As String
        currentLine = Mid$(ans, 1, 1) & " " & Mid$(ans, 2, 1) & " " & Mid$(ans, 3, 1)
        ' 追加到TextBox并换行
        Text1.Text = Text1.Text & currentLine & vbNewLine
    End If
Next

方案二：用变量累加所有行后统一赋值 #

适合需要后续复用格式化内容的场景：

Dim Inp As String
Inp = "" ' 初始化累加变量
For i = 1 To a
    ans = InputBox("请输入3位无空格数字（1-9）")
    
    If ans = "" Then
        Exit Sub
    Else
        Dim currentLine As String
        currentLine = Mid$(ans, 1, 1) & " " & Mid$(ans, 2, 1) & " " & Mid$(ans, 3, 1)
        Inp = Inp & currentLine & vbNewLine
    End If
Next
' 最后将所有格式化内容赋值给TextBox
Text1.Text = Inp

可选优化（非必需） #

如果需要确保用户输入严格是3位数字，可以在Else块前添加验证逻辑：

If Len(ans) <> 3 Or Not IsNumeric(ans) Then
    MsgBox("请输入有效的3位数字！")
    i = i - 1 ' 重新输入当前次
    GoTo NextLoop
End If
NextLoop:

内容的提问来源于stack exchange，提问作者rpmax