[填空题] 阅读程序： Option Base 1 Private Sub Form

[填空题] 阅读程序：

Option base 1

Private Sub Form_Click( )

Dim a(3)As Integer

Print“输入的数据是：”；

For i=1 to 3

A (i)=Input Box(“输入数据”)

Print a (i)

Next

Print

If a(1)＜a(2)Then

t=a(1)

a(1)=a(2)

a(2)= 【8】

End lf

If a(2)＞a(3) Then

m=a(2)

Elself a(1)＞a(3) Then

m= 【9】

Else

m= 【10】

End lf

Print“中间数是：”；m

End Sub

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

[8]t [9] a(3) [10] a(1)

第一个If语句通过中间变量t把a(1)值与a(2)值调换，使得a(1)的值永远大于a(2)的值，所以此时令m值为a(2)。故[8]处填：t。 如果不是“a(2)＜=a(3)”，那么在“a(1)＜=a(3)”的情况下，由于“a(2)＜=a(3)”，故此时令m的值为a(3)，即[9]处填：a(3)。 如果以上两种情况都未出现，即意味着“a(2)＜=a(3)”，“a(3)＞=a(1)”，又因为 a(1)值永远大于a(2)值，故此时，“a(2)＜=a(1)＜=a(3)”，所以[10]处填：a(1)