下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End SubA．_35_2510B．25102510C．_35_35_D．2510_35_

题目

下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub

A．_35_2510

B．25102510

C．_35_35_

D．2510_35_

相似考题

1.下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：f（x,y） =程序不完整，请填空，将程序的补充完整。Option ExplicitDim x As SingleDim y As SingleDim z As SinglePrivate Sub Command1_Click（）x=Val（InputBox（"x="） ）y=Val（InputBox（"y="） ）End SubPrivate Sub Command2_Click（）If 【13】 Thenz=x ^ 2 + y ^ 2ElseIf 【14】 Thenz=x ^ 2 - 2 * y ^ 2【15】z=y ^ 2 - 3 * x ^ 2End IfForm1.Print "当x，y的值为："; x, yForm1.Print "f（x,y） 的值为："; zEnd Sub

2.运行下列程序： x=Input Box("input value Of x”) Select Case x Case Is>O y=y＋1 Case Is=0 y=x＋2 Case Else y=x＋3 End Select Print x；y 运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10

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

4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()X=0Do While X＜＞-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y＜X+Y Then Print X，YLoopEnd Sub程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】

更多“下面程序运行结果是()。Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输 ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox<“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End Sub

    A．19

    B．21

    C．42

    D．19


    正确答案：C
    解析：InputBox()函数的功能是在一个对话框中提示用户输入信息，在确认(即单击“确定”按钮)之后将输入的内容以字符串形式返回，在程序中使用InputBox()函数分别为x、y和z变量赋值，当变量2的值不等于5的时候，结束循环，将得到的x、y、2的值进行运算(x+y+2z)，在窗体上打印(Print)输出运算结果。程序运行后，前两次输入的2值都是5，所以程序不会跳出循环，当第3次输入时，得到的x、y、z值分别为12、6、12，此时的2值不为5，程序结束循环并输出运算结果：12+6+2*12＝42。

  • 第2题：

    运行下列程序： x=InputBox("input value of x") Select Case X Case Is＞0 y=y+1 Case Is=0 y=x+2 Case ELse y=x+3 End Select Print x;y 运行时，从键盘输入-5，输出的结果是( )。

    A．-7

    B．-9

    C．-8

    D．-10


    正确答案：A
    解析：本题考查Select Case选择语句的用法，在Select Case选择语句中，Case后面不但可以为指定的值，也可以为取值范围或者多个取值，如：Case1,2或者Casels＞0等。本题x值没有改变，y值随x值的改变而改变，根据题意，从键盘输入-5，则y=x+3=-2，答案为A。

  • 第3题：

    下面程序段的运行结果是________ x=y=0; while（x＜15) y++,x+=++y; printf（"y=%d,x=%d",y,x);


    4

  • 第4题：

    变量x，y都是single类型，它们的值分别为10.7和20.3，变量t是整型，执行下面语句后，x，y的值变为()。t=x：x=y：y=t

    A.10.7，20.3

    B.20.3，10.7

    C.20.3，11

    D.20，10.7


    本题答案：C

  • 第5题：

    运行下列程序: x = InputBox( "input value of x" ) Select Case x Case Is ＞ 0 y=y+1 Case Is = 0 y=x+2 Case Else y=x+3 End Select Print x; y运行时，从键盘输入-5，输出的结果是( )。

    A．-7

    B．-9

    C．-8

    D．-10


    正确答案：A
    解析：SelectCase选择语句中，Case后面不但可以为指定的值，也可以为取值范围或者多个取值，如：Case1，2或者CaseIs＞0等。本题x值没有改变，y值随x值的改变而改变，根据题意，从键盘输入-5，则y=x+3=-2，答案为A。

相关内容