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

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