[填空题] 下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时, Private Sub Command1

[填空题] 下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时, Private Sub Command1

[填空题] 下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当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

【12】

Print "输入数据出界!"

End Select

Print x, y

End Sub

正确答案：

Case Else

参考解析：

阅读程序后，在Select Case结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将 x的值分为3种情况，空白处应该填写Case Else语句。