Private Sub Command2_Click()Dim s As Long, i As LongDo ReDim Preserve aaa(s) aaa(s) = InputBox("请输入一个字符,这是第" & s + 1 & "个,输入空字符后结束", "请输入") s = s + 1 Loop Until aaa(s - 1) = "" '调试提示下标越界End Sub
