问题（动态数组）

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

S=S+1,为扩展数组做准备......

补充：VB ,  基础类