当前位置:编程学习 > VB >>

问题(动态数组)

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

S=S+1,为扩展数组做准备......
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,