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