[填空题] 在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3)

11 查阅

[填空题] 在窗体上画一个命令按钮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)

arr(4)=x

End If

Me.Print(arr(4)-arr(3))

End Sub

程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【10】。

参考答案:

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

计算机考试