阅读程序：Option Base 1Private Sub Form_Click（）Dim a（3）As IntegerPrint "输入的数据是：";For i = 1 To 3a（i）=InputBox（"输入数据"）Print a（i）;NextPrintIf a（1）t = a（1）a（1）= a（2）a（2）= ________End IfIf a（2）a（3）Thenm = a（2）ElseIf a（1）a（3）Thenm = ________Elsem = ________End IfPrint "中间数是：";mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
阅读程序：
Option Base 1
Private Sub Form_Click（）
Dim a（3）As Integer
Print "输入的数据是：";
For i = 1 To 3
a（i）=InputBox（"输入数据"）
Print a（i）;
Next
If a（1）
t = a（1）
a（1）= a（2）
a（2）= ________
End If
If a（2）>a（3）Then
m = a（2）
ElseIf a（1）>a（3）Then
m = ________
Else
m = ________
End If
Print "中间数是：";m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
相关考题：
（ 31 ）下列数组声明语句中，正确的是A ） dim A[3,4] As integerB ） dim A(3,4) As integerC ） dim A[3;4] As integerD ） dim A(3;4) As integer
下列数组声明语句中，正确的是( )。A．Dim A[3,4] As IntegerB．Dim A(3,4) As IntegerC．Dim A[3;4] As IntegerD．Dim A(3;4) As Integer
下列数组声明正确的是( )A.Dima(1ton)AsIntegerB.Dima(10)AsInteger：ReDima(1to12)C.Dima()AsInteger：ReDima(3,4)AsIntegerD.Dima()AsInteger：ReDima(1ton)AsInteger
下列数组定义错误的是()。 A、dima(10)asintegerB、dima(10,3)asshortC、dima(3)asinteger={1,2,3,4}D、dima(,)asinteger={{1,2,3},{2,3,1}}
下列数组声明语句中，正确的是A．Dim A[3，4]As IntegerB．Dim A(3，4)As IntegerC．Dim A[3；4]As IntegerD．Dim A(3；4)As Integer
要存放如下方阵的数据，在不浪费存储空间的基础上，应使用的声明语句是( )。A．DimA(9)As IntegerB．DimA(3，3)As IntegerC．DimA(-1 To 1,-3 To -1)As Single．D．DimA(-3 To-1，1 To 3)As Integer
下列数组声明语句中，正确的是（ ）。A.Dim A[3，4]As IntegerB.Dim A(3，4)As IntegerC.Dim A[3；4]As IntegerD.Dim A(3；4)As Integer
在VB.NET中，对数组的声明语句中不正确的是：A．dim a(2) as integer={1,2,3}B．dim a() as integer={1,2,3}C．dim a(1,2) as integerD．dim a(,) as integer={{1,2,3},{4,5,6}}
下面语句正确的是______。A．Dim a(1) As Integer = {12}B．Dim a() As Integer = 0C．Dim a() As Integer = {12}D．Dim a(1) As Integer = {12, 12}