[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。 Private Sub Commandl_Click() Dim

[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。

Private Sub Commandl_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