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

>>阅读原文<<