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

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

选项

答案Select Case x Case Eles

解析
转载请注明原文地址:https://kaotiyun.com/show/71hp777K
0

最新回复(0)