北周武帝孝陵的建制

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