vb 如何定义一个未知大小一维数组？

<div id="wgt-ask" class="wgt-ask accuse-response line mb-5"><h1 class="mb-5" accuse="qTitle"><span class="ask-title">vb 如何定义一个未知大小一维数组？</span> </h1><div id="ask-info" class="line f-aid mb-10"><span class="grid-r ask-time"></span><ins style="DISPLAY: none" class="accuse-area"></ins>2012-12-09 10:33 <a target=_blank class="user-name" aria-describedby="ui-tooltip-0" href="http://www.baidu.com/p/%E9%85%B7%E4%BE%9D%E8%88%AA?from=zhidao" rel="nofollow" target="_blank" alog-action="qb-ask-uname">酷依航</a> <span class="f-pipe">|</span> <span class="classinfo f-simsun" alog-group="qb-cate-nav">分类：VB<a target=_blank id="modify-category" class="i-added-gray ml-5" href="http://zhidao.baidu.com/link?url=GEiHOE9sugyaH2XjxryAp9yxlEdbFQyaydO_0iWm24qHOW5z4DXRECDeVoXKlYMFXFQRQEuwwuV9Hia3H5lU5_#"></a> </span><span id="v-times" class="f-pipe">|</span><span class="browse-times"> 浏览1941次</span></div><pre class="line mt-10 q-content" accuse="qContent">我是这样定义 dim a(100) as  string，但是经常性出现下标越界，又不想定义的范围太大，就想问下可不可以定义一个自适应的一维数组？

删除问题

举报违规检举侵权投诉|2012-12-09 10:51 提问者采纳

可以的，先定义一个动态数组：dim a() as string
到使用的地方，再重定义上下限：
n=15
redim a(1 to n)  ',当然，n 在重定义前就要确定
如果a中放了数据了，还要增加上限，还可以用 ReDim Preserve 语句来扩充数组：
a(15)=15
ReDim Preserve a(UBound(a) + 10)  '只增加上限，不改变元素值