58问答库 > VB6.0通过inputbox函数录入一组动态数组的数值并进行排序

VB6.0通过inputbox函数录入一组动态数组的数值并进行排序

2024-11-22 07:33:07

推荐回答（1个）

回答（1）：

Private Sub Command2_Click()

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

End Sub