[填空题] 在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序

参考答案：

● 参考解析

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