阅读程序： Option Base1 Private Sub Form_Click( ) Dim a(3)As Integer Print“输入的数据是：”； For i＝1 To 3 a(i)=InputBox(“输人数据”) Print a(i)；

admin2006-08-25 53

问题阅读程序：
Option Base1
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)
t=a(1)
a(1)=a(2)
a(2)= 【  】
End If
If a(2)>a(3) Then
m=a(2)
Else If a(1)>a(3)Then
m= 【  】
Else
m= 【  】
End If
Print“中间数是：”；m
End Sub
程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。