填空题在窗体上画一个命令按钮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，输出结果为{{U}} 【10】 {{/U}}。

1、

【正确答案】 1、12

【答案解析】[评析] 用Redim语句重定义数组的维数时，原有维数内的内容将被破坏。除非用RedimPreserve来重新定义维数。本题中由于输入值x＞4，动态数组在被重定义为包含4个元素的数组后(即Re,dimarty(3)，此时arty(3)=3)，重新被定义为包含5个元素的数组，而重定义时并未用Preserve关键字。故此时arty(3)--0(实际上arty(0)、 arty(1)、any(2)的值也都为o，即Integer类型变量的初始值)。