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

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