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

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

an(4)=x

End If

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

End Sub

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