2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Text1.Text = ""
Dim S As Long, i As Long
Dim A()
Do
ReDim Preserve A(S)
A(S) = InputBox("dsfsd")
S = S + 1
Loop Until A(S - 1) = ""
For i = 0 To S - 2
Text1.Text = Text1.Text & "第" & CStr(i + 1) & "个是:" & CStr(A(i)) & ""
Next i
Erase A
End Sub