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

>>阅读原文<<