填空题

以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。
Dim amax As Single，amin As Single
x=InputBox("请输入数据")
amax=x
amin=x
Do While 【8】
If x＞amax Then
amax=x
End If
If 【9】 Then
amin=x
End If
x=InputBox("请输入数据")
Loop
Print "Max="；amax；"Min="；amin
End Sub