下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X

问题填空题

下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。
Private Sub Commandl_Click()
Dim x As Single
x=InputBox("请输入x的值!")
______
Case Is ＜50
Y=0.8*x
Case 50 To 100
Y=0.7*x
______
Print"输入的数据出界!"
End Select
Print x，y
End Sub

答案

参考答案：Case Else

解析：阅读程序后，看到程序中有了Case和End Select子句，没有多分支选择结构的起始语句，很明显，第一个空应该填写多分支结构的起始语句Select Case x。在Select Case结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，可见第二个空应该填写Case Else语句。