[填空题] 下列程序的功能是：当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