下列程序的功能是:当x<50时,y =0.8 xx;当50≤x≤100时,y=0.7 xx;当x>100时, Private Sub Command1_Click() Dim x As Single x = Input

admin2010-03-30  25

问题 下列程序的功能是:当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
             【  】
             Print "输入数据出界!"
         End Select
        Print x, y
     End Sub

选项

答案Case Else

解析 阅读程序后,在Select Case结构中,只有两个Case子句,分别表示x取值的两种情况,但题目中将 x的值分为3种情况,空白处应该填写Case Else语句。
转载请注明原文地址:https://jikaoti.com/ti/EOg0FFFM
0

最新回复(0)