问题 填空题

下列程序的功能是:当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的值!")


 【10】 
Case Is<50
y=0.8 * x
Case 50 To 100
y=0.7 * x
 【11】 
Print"输入的数据出界!"
End Select
Print x,y
End Sub

答案

参考答案:【10】Select Case x
【11】Case Else

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

填空题
填空题