itgle.com

下列程序的功能是:当x100时, Private Sub Command1_下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,Private Sub Command1_Click()Dim x As Singlex = InputBox("请输入x的值" )Select Case xCase Is＜50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入数据出界!"End SelectPrint x, yEnd

题目
下列程序的功能是:当x<50时,y =0.8 xx;当50≤x≤100时,y=0.7 xx;当x>100时, Private Sub Command1_

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

相似考题

1.下列哪些代码段是正确的?()A. X x=new X();Y y=new Y();Z z=new Z();y=(Y)x;B. X x=new X();Y y=new Y();Z z=new Z();x=(X)y;C. X x=new X();Y y=new Y();Z z=new Z();Z=(Z)x;D. X x=new X();Y y=new Y();Z z=new Z();W w=(W)x;

2.填空：（1）已知函数 y=2（x+1）²+1，当x＜____时，y随x的增大而减小，当x＞ _____时，y随x的增大而增大，当x=______时，y最_____；（2）已知函数 y=-2x²+x-4，当x＜_____时，y随x的增大而增大，当x＞_____时，y随x的增大而减小，当x=______时，y最_____；（3）二次函数 y=ax²+bx+c，a ＞0 ,当x＜_____时，y随x的增大而减小，当x＞_____时，y随x的增大而增大，当x=______时，y最_____；（4 )二次函数 y=ax²+bx+c，a ＜0 ,当x＜_____时，y随x的增大而增大，当x＞_____时，y随x的增大而减小，当x=______时，y最_____。

3.根据下列程序，X、Y的值正确的是（ ）。 Dim xAs SingleDim yAs SingleIfx&lt；0 Theny-=3Elsejf x&lt；l theny=2*xelsey=48x+6EndifA.当x=2时，y=一2B.当X=-1时，y=一2C.当x=0．5时，y=4D.当x=一2．5时，y=11

4.下列程序的功能是:当x<50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x>100时,没有意义。请填空。Private Sub Command1_Click()Dim x As Singlex=InputBox("请输入x的值!")Select Case xCase Is < 50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入的数据出界!"End SelectPrint x, yEnd Sub

更多“下列程序的功能是:当x<50时,y =0.8 xx;当50≤x≤100时,y=0.7 xx;当x>100时, Private Sub Command1_ ”相关问题

  • 第1题：

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


    正确答案：Select Case x Case Eles
    Select Case x Case Eles

  • 第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 = 10 y = 20 def swap（x, y): t = x x = y y = t print（x, y) swap（x,y) print（x,y)

    A．20 10 10 20

    B．10 20 10 20

    C．10 20 20 10

    D．20 10 20 10


    10 20 10 20

  • 第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为周期的时钟脉冲

相关内容