问题
填空题
阅读程序：
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)。