![[填空题] 下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click() Di](http://www.mshxw.com/aiimages/31/254618.png "[填空题] 下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click() Di")
[填空题] 下列程序的功能是：当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的值!")
(14)
Case Is＜50
y=0.8*x
Case 50 To 100
y=0.7*K
(15)
Print"输入的数据出界!"
End Select
Print x，y
End Sub
参考答案：
Select Case x问题解析:
解析无
