填空题

下列程序的功能是：当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的值!") 　Select Case x 　　Case Is＜50 　　　　y=0.8*x 　 　Case 50 To 100 　　　 　y=0.7*x 　　______ 　　Print"输入的数据出界!" 　End Select 　Print x,y End Sub