试题详情
程序填空
下列程序的功能是：当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 x < 50
y=0.8 * x
Case 50 To 100
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 Command1_Click()
Dim x As Single
x=InputBox("请输入x的值！")
Case x < 50
y=0.8 * x
Case 50 To 100
Print "输入的数据超出范围！"
End Select
Print x, y
End Sub