Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

VB 產生subscript out of range要如何

如果我這樣寫就會產生這種錯誤

請問要如何避免呢?

Dim A() as byte

Dim B() as byte

public DataIndex as long

DataIndex = 0

假設我A裡面已經有資料了

我想把A的資料一個一個copy到B去

Length = UBound(A) - LBound(A)

For i = 0 To Length

B(DataIndex) = A(i)

DataIndex = DataIndex +1

Next i

但是會產生 runtime error 9 -- subscript out of range

請VB高手幫幫我!!! 謝謝!!

1 個解答

評分
  • 1 0 年前
    最佳解答

    Length = UBound(A) - LBound(A) + 1

    ReDim B(Length)

    For i = LBound(A) To UBound(A)

    B(DataIndex) = A(i)

    DataIndex = DataIndex +1

    Next i

還有問題?馬上發問,尋求解答。