A-A+

下列程序的功能是：当x

2022-08-12 20:00:18 问答库阅读 197 次

问题详情

下列程序的功能是：当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的值!") 【】 Case Is<50 y=0．8 * x Case 50 To 100 y=0．7 * x 【】 Print"输入的数据出界!" End Select Print x，y End Sub

请帮忙给出正确答案和分析，谢谢！

参考答案

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