在窗體上畫一個(gè)命令按鈕Command1，然后編寫如下程序：

Private Sub Command1_Cliek()

Dim arr()As Integer

Re Dim arr(3)

For i=0 To 3

arr(i)=i

Next i

x=InputBox("請(qǐng)輸入一個(gè)數(shù)字：")

IfVal(x)＞4 Then

Rc Dim arr(4)

arr(4)=x

End If

Me.Print(arr(4)-arr(3))

End Sub

程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中輸入12，輸出結(jié)果為【 】。

1212 解析：用Redim語(yǔ)句重定義數(shù)組的維數(shù)時(shí)，原有維數(shù)內(nèi)的內(nèi)容將被破壞。除非用RedimPreserve來(lái)重新定義維數(shù)。本題中由于輸入值x＞4，動(dòng)態(tài)數(shù)組在被重定義為包含4個(gè)元素的數(shù)組后(即Re,dimarty(3)，此時(shí)arty(3)=3)，重新被定義為包含5個(gè)元素的數(shù)組，而重定義時(shí)并未用Preserve關(guān)鍵字。故此時(shí)arty(3)--0(實(shí)際上arty(0)、 arty(1)、any(2)的值也都為o，即Integer類型變量的初始值)。