首頁(yè) 猿問(wèn) 為什么這段代碼會(huì)發(fā)生錯(cuò)誤呢？如下所示：

為什么這段代碼會(huì)發(fā)生錯(cuò)誤呢？如下所示：

數(shù)據(jù)庫(kù)

慕碼人2483693 2023-04-22 18:14:19

其功能：Erase語(yǔ)句用來(lái)重新初始化靜態(tài)數(shù)組的元素，或者釋放動(dòng)態(tài)數(shù)組的存儲(chǔ)空間。Private Sub Form_Click()Dim a() As IntegerReDim a(5)a(5) = 50Print a(5)Erase aDim b() As IntegerReDim b(5)b(5) = 100Print a(5)Print b(5)End Sub

查看完整描述

2 回答

白衣非少年

TA貢獻(xiàn)1155條經(jīng)驗(yàn) 獲得超0個(gè)贊

Private Sub Form_Click()
Dim a() As Integer
ReDim a(5)
a(5) = 50
Print a(5)
Erase a 這時(shí)已經(jīng)刪除a了,
Dim b() As Integer
ReDim b(5)
b(5) = 100
Print a(5) 這里你還用a,當(dāng)然會(huì)出錯(cuò)
Print b(5)
End Sub

反對(duì) 回復(fù) 2023-04-25

慕萊塢森

TA貢獻(xiàn)1810條經(jīng)驗(yàn) 獲得超4個(gè)贊

第二個(gè)Print a(5)出錯(cuò)，Erase 釋放動(dòng)態(tài)數(shù)組所使用的內(nèi)存。在下次引用該動(dòng)態(tài)數(shù)組之前，程序必須使用ReDim語(yǔ)句來(lái)重新定義該數(shù)組變量的維數(shù)。需在第二個(gè)Print a(5)前使用redim.

反對(duì) 回復(fù) 2023-04-25