[填空題] 在窗體上畫一個命令按鈕Command1，然后編寫如下程序： Private Sub Command1_Cliek()Dim arr()As Int
2021-07-20
[填空題] 在窗體上畫一個命令按鈕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("請輸入一個數(shù)字：")
IfVal(x)＞4 Then
Rc Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序運行后，單擊命令按鈕，在輸入對話框中輸入12，輸出結(jié)果為 【10】 。
正確答案：L
參考解析：[評析] 用Redim語句重定義數(shù)組的維數(shù)時，原有維數(shù)內(nèi)的內(nèi)容將被破壞。除非用RedimPreserve來重新定義維數(shù)。本題中由于輸入值x＞4，動態(tài)數(shù)組在被重定義為包含4個元素的數(shù)組后(即Re,dimarty(3)，此時arty(3)=3)，重新被定義為包含5個元素的數(shù)組，而重定義時并未用Preserve關(guān)鍵字。故此時arty(3)--0(實際上arty(0)、 arty(1)、any(2)的值也都為o，即Integer類型變量的初始值)。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。