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