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