鍦ㄤ娇鐢║Bound鍜孯eDim缁撳悎鏃讹紝閫氬父鏄敤鏉ラ噸鏂板畾涔変竴涓暟缁勭殑澶у皬銆俇Bound鍑芥暟鐢ㄤ簬纭畾鏁扮粍鐨勪笂闄愶紝鑰孯edim璇彞鐢ㄤ簬閲嶆柊瀹氫箟鏁扮粍鐨勫ぇ灏忋€備互涓嬫槸涓€涓ず渚嬩唬鐮侊細

Dim arr(4) As Integer
Dim i As Integer

For i = 0 To UBound(arr)
    arr(i) = i
Next i

ReDim Preserve arr(9)

For i = 5 To UBound(arr)
    arr(i) = i
Next i

For i = 0 To UBound(arr)
    Debug.Print arr(i)
Next i

鍦ㄨ繖涓ず渚嬩腑锛岄鍏堝畾涔変簡涓€涓寘鍚?涓厓绱犵殑鏁存暟鏁扮粍arr锛屽苟瀵瑰叾杩涜璧嬪€笺€傜劧鍚庝娇鐢≧eDim璇彞灏嗘暟缁勫ぇ灏忛噸鏂板畾涔変负10涓厓绱狅紝骞朵娇鐢≒reserve鍙傛暟淇濈暀鏁扮粍鐨勫凡鏈夋暟鎹€傛渶鍚庡啀娆￠亶鍘嗘暟缁勫苟杈撳嚭鍏跺€笺€?/p>