问题：
（填空题）填空题：找出三个数中的中间数
阅读以下程序，该程序通过输入三个整数，然后输出这三个数中的中间数。请在程序中的空白处填入正确的代码，以完成程序的功能。
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) And a(2) < a(3) Then
m = a(2)
Else If a(1) > a(2) And a(2) > a(3) Then
m = 【填空处1】
Else
m = 【填空处2】
End If
Print "中间数是："; m
End Sub提问：
在上述程序中，如何正确填写空白处的代码，以确保程序能够正确找出并输出三个输入数中的中间数？请解释你的答案。
复习要点：
理解如何通过比较三个数来确定中间数，以及如何在程序中实现这一逻辑。
查阅资料方向：
查阅有关数组操作和条件判断的编程资料，特别是如何在VBScript中处理数组和使用条件语句。
参考答案：