[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。Private Sub Commandl_Click() Dim

[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。 Private Sub Commandl_Click() Dim

[填空题] 下列程序的功能是：当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语句。