下列程序的功能是:当x<50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当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
1
Print "输入的数据出界!"
End Select
Print x, y
End Sub
1、
【正确答案】
1、正确答案：Case Else
【答案解析】解析：考查考生对多分支控制结构的掌握。阅读程序后,在Select Case 结构中,只有两个Case子句,分别表示x取值的两种情况,但题目中将x的值分为3种情况,空白处应该填写Case Else语句。嵌套使用多分支控制结构时,应注意程序执行过程。