下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7
题型：填空题
问题：
下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,
Private Sub Command1_Click()
Dim x As Single
x = InputBox("请输入x的值" )
Select Case x
Case Is＜50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【12】
Print "输入数据出界!"
End Select
Print x, y
End Sub