1. 程序填空

下列程序的功能是：当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