[填空题] 在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3
27 查阅
[填空题] 在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3arr(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】 。
参考答案: