VB中，动态数组中输入数据

Private Sub Command1_Click()
Text1.Text = “”
Dim s As Long, i As Long
Dim a()
Do
ReDim Preserve a(s)
a(s) = InputBox(“请输入字符串，输入空串时结束”, “输入”)
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