下列程序的功能是:当x100时,没有意义。请填空。 Private下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。Private Sub Command1_Click()Dim x AS Singlex=InputBox("请输入x的值!")________Case Is<50y=0.8*xCase 50 To 100y=0.7*K__________Print"输入的数据出界!"End SelectPrint x,yEnd Sub

题目
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。 Private

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


相似考题
更多“下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。 Private ”相关问题
  • 第1题:

    下列根据此段程序的运算的结果正确的是( )。 Dim × As Single Dim y As Single If ×< 0 Then y=3 Elself ×< l Then y=2 * x Else:y=-4 * x 十 6 End If

    A.当x=2时,y=-2

    B.当x=-1时,y=-2

    C.当x=0.5时,y=4

    D.当x=-2.5时,y=ll


    正确答案:A
    解析:本题考查多分支结构语句的流程。

  • 第2题:

    在关于下面程序段的说法中,正确的是 。 if x<0 Then y = Cos(x) y = Sin(x)

    A.当x>=0,y = Cos(x);当x<0,y = Sin(x)。

    B.无论x的值是什么,y = Cos(x)

    C.当x>=0,y = Sin(x) ;当x<0, y = Cos(x)

    D.无论x的值是什么,y = Sin(x)


    可以提供1S为周期的时钟脉冲

  • 第3题:

    某反应的速率方程式是v=kcx(A)cy(B),当c(A)减少50%时,v降低至原来的,当c(B)增大2倍时,v增大1.41倍,则x,y分别为

    A.x=0.5, y=1

    B.x=2,y=0.7

    C.x=2 ,y=0.5

    D.x=2,y=2


    2,0.5

  • 第4题:

    根据下列程序,X、Y的值正确的是( )。 Dim xAs SingleDim yAs SingleIfx<;0 Theny-=3Elsejf x<;l theny=2*xelsey=48x+6Endif

    A.当x=2时,y=一2

    B.当X=-1时,y=一2

    C.当x=0.5时,y=4

    D.当x=一2.5时,y=11


    正确答案:A
    暂无解析,请参考用户分享笔记

  • 第5题:

    在关于下面程序段的说法中,正确的是()。 if x<0 Then y = Cos(x) y = Sin(x)

    A.当x>=0,y = Cos(x);当x<0,y = Sin(x)

    B.无论x的值是什么,y = Cos(x)

    C.当x>=0,y = Sin(x) ;当x<0, y = Cos(x)

    D.无论x的值是什么,y = Sin(x)


    可以提供1S为周期的时钟脉冲