题目内容:
下列程序的功能是:当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的值!") Select Case x Case Is<50 y=0.8*x Case 50 To 100 y=0.7*x ______ Print"输入的数据出界!" End Select Print x,y End Sub
参考答案:
答案解析: