阅读程序：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 IfP
题目
阅读程序：
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
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
相似考题
更多“阅读程序: OptionBase1PrivateSubForm_Click() Dima(3)AsInteger Print"输入的数据是:"; ”相关问题
-
第1题：
下列数组声明语句中，正确的是
A．Dim A[3，4]As Integer
B．Dim A(3，4)As Integer
C．Dim A[3；4]As Integer
D．Dim A(3；4)As Integer
正确答案：B
解析：在VBA中数组声明的格式为：dim数组名(维数定义)as类型，声明数组用圆括号，如果定义多维数组时，维数之间用逗号分隔。 -
第2题：
下列数组声明语句中，正确的是（ ）。
A.Dim A[3，4]As Integer
B.Dim A(3，4)As Integer
C.Dim A[3；4]As Integer
D.Dim A(3；4)As Integer
正确答案：B
B。【解析】定义数组的语法为Dim数组名(维数，…)As数组类型。 -
第3题：
下面语句正确的是______。
A．Dim a(1) As Integer = {12}
B．Dim a() As Integer = 0
C．Dim a() As Integer = {12}
D．Dim a(1) As Integer = {12, 12}
B -
第4题：
要存放如下方阵的数据，在不浪费存储空间的基础上，应使用的声明语句是( )。
A．DimA(9)As Integer
B．DimA(3，3)As Integer
C．DimA(-1 To 1,-3 To -1)As Single．
D．DimA(-3 To-1，1 To 3)As Integer
正确答案：D
-
第5题：
在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 integer
D．dim a(,) as integer={{1,2,3},{4,5,6}}
dim a(1,2) as integer={1,2,3},{4,5,6}