问题(动态数组)
--------------------编程问答-------------------- 加一是为了提高动态数组A的维数,好存放下一个数据 --------------------编程问答-------------------- Do '开始循环至少一次ReDim Preserve A(S) ''保留数据扩展数组,第一次S=0,然后要求输入字串,无字串则退出
A(S) = InputBox("请输入字符串,输入空串时结束", "输入") ''''求输入
S = S + 1 ''维数递加
Loop Until A(S - 1) = "" ''最后一维为空则退出
S=S+1,为扩展数组做准备......
补充:VB , 基础类