题型:填空题 下列程序的功能是:当x<50时,y =0.8 xx;当50≤x≤100时,y=0.7 xx;当x>100时, Private Sub Command1_Click() Dim x As Singlex = InputBox("请输入x的值" )Select Case x Case Is<50y=0.8 * x Case 50 To 100y=0.7 * x 【12】 Print "输入数据出界!"End SelectPrint x, y End Sub 查看答案