[填空题] 阅读程序：Option Base 1Private Sub Form Click()Dim a(3)As IntegerPrint "输入的数据是；"；

[填空题] 阅读程序： Option Base 1 Private Sub Form Click() Dim a(3)As Integer Print "输入的数据是；"；

[填空题] 阅读程序：

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

Print

If a(1)＜a(2)Then

t=a(1)

a(1)=a(2)

a(2)=______

End If

If a(2)＞a(3)Then

m=a(2)

Elself a(1)＞a(3)Then

m=______

Else

m=______

End If

Print "中间数是："；m

End Sub

程序运行后，单击窗体，在输入对话框中分别输入3个整数，程序将输出3个数中的中间数，如图所示。请填空。

正确答案：

t a(3) a(1)

参考解析：

程序的主要作用是在运行后，提示用户输入三个整数，然后对用户输入的3个整数进行打印，并进行大小比较，最后输出中间值。程序的思路为将第一和第二个数进行比较，较大的放到前面，然后比较第二个数与第三个数，若第二个数大于第三个数，则第二个数为中间数。若第二个数小于第三个数，则比较第三个数和第一个数，较小的为中间数。主要完成当a(1)＜a(2)时两个数的交换。交换时必须定义一个中间变量，即t用来暂存数据，先将a(1)暂存入t，然后将a(1)的值改为a(2)，最后再将a(2)的值改为t，即最初a(1)的值，故填写t。为上面分析中比较第一个数和第三个数时的情况，小的为中间数，故分别填写a(3)、a(1)。