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

15 查阅

[填空题] 下列程序的功能是：当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的值!") 　Select Case 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

[命题目的] 考查考生对多分支控制结构的掌握。 [解题要点] 阅读程序后，在Select case结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，空白处应该填写case Else语句。 [错解分析] 嵌套使用多分支控制结构时，应注意程序执行过程。 [考点链接] Select Case…End Select多分支结构语句应用。

计算机考试