下列程序的功能是:当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*Π;当50≤x≤100时,y=0.7*Π;当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.下列程序的功能是:当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 Sub

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≥z,应使用的C语言表达式是( )。A.(x>=y)&&(y>=z)B.(x>=y)A为表示关系：x≥Y≥z，应使用的C语言表达式是（ ）。A.（x&gt；=y）＆&amp；（y&gt；=z）B.（x&gt；=y）AND（y&gt；-x）C.（x&gt；=y&gt；=z）D.（x&gt；=y）＆（y&gt；=z）

4.填空: 对于函数y=3／x,当 x>0时,y___0,这部分图像在第_____象限;对于函数y=－3填空： 对于函数y=3/x，当x>0时，y___0,这部分图像在第_____象限；对于函数y=-3/x当x<0,y____0，这部分图像在第______象限

更多“下列程序的功能是:当x&lt;50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x&gt;100时,没有意义。请填空。 Pr ”相关问题

  • 第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题：

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

  • 第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题：

    下列根据此段程序的运算的结果正确的是( )。 Dim x AS Single Dim y As Single If x ＜ 0 Then y = 3 ElseIf x＜ 1 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=11


    正确答案：A
    解析：本题考查多分支结构语句的流程。注意Elselfx1句是接在上面的Ifx0句后面的，其实相当于if x＞=0 and xl，Else句的条件相当于If x＞=1。选项A,x=2时， y=(-4)×2+6=-2；选项B，当x=-1时，y=3。选项C错误。当x=0．5时，y=2×0.5=1；选项D，当x=-2.5时，y=3。答案为A。

相关内容