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