填空题

下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，
没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")

　【10】　
Case Is<50
y=0．8 * x
Case 50 To 100
y=0．7 * x
　【11】　
Print"输入的数据出界!"
End Select
Print x，y
End Sub