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

答案

参考答案：Case Else

解析：[命题目的] 考查考生对多分支控制结构的掌握。
[解题要点] 阅读程序后，在Select case结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，空白处应该填写case Else语句。
[错解分析] 嵌套使用多分支控制结构时，应注意程序执行过程。
[考点链接] Select Case…End Select多分支结构语句应用。