[填空題] 在窗體上畫一個命令按鈕Command1，然后編寫如下程序： Private Sub Command1_click() Dim arr() As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("請輸入一個數字：") If Val(x)＞4 Then ReDim arr(4) an(4)=x End IfMe.Print(an(4)-arr(3)) End Sub 程序運行后，單擊命令按鈕，在輸入對話框中輸入12，輸出結果為 【10】 。

L

[評析] 用Redim語句重定義數組的維數時，原有維數內的內容將被破壞。除非用Redim Preserve來重新定義維數。 本題中由于輸入值x＞4，動態(tài)數組在被重定義為包含4個元素的數組后(即Redim arry(3)，此時arry(3)=3)，重新被定義為包含5個元素的數組，而重定義時并未用Preserve關鍵字。故此時arry(3)=0(實際上arry(0)、 arry(1)、arry(2)的值也都為0，即Integer類型變量的初始值)。