问题
填空题
在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim arr() As Integer
ReDim arr(3)
For i=0 To 3
art(i)=i
Next i
x=InputBol("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
art(4)=x
End If
Me.Print (arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
答案
参考答案：L
解析：[评析] 用Redim语句重定义数组的维数时，原有维数内的内容将被破坏。除非用Redim Preserve来重新定义维数。
本题中由于输入值x＞4，动态数组在被重定义为包含4个元素的数组后(即Redim arry(3)，此时ally(3)=3)，重新被定义为包含5个元素的数组，而重定义时并未用Preserve关键字。故此时arty(3)=0(实际上arty(0)、 any(1)、arry(2)的值也都为0，即Integer类型变量的初始值)。