下列程序的功能是:当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("

admin2012-03-22  41

问题 下列程序的功能是:当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多分支结构语句应用。
转载请注明原文地址:https://jikaoti.com/ti/KqO0FFFM
0

最新回复(0)