有如下程序：Private Sub Command1_Click（）Dim a As SingleDim b As Singlea=2: b=4Call CS （a, B．End SubSub CS （x As Single, y As Single）t=xx=t ＼ yy=t Mod yEnd Sub程序运行后，单击命令按钮，a和b的值分别为（ ）。A．0 0B．1 1C．0 2D．1 2

题目

有如下程序：

Private Sub Command1_Click（）

Dim a As Single

Dim b As Single

a=2: b=4

Call CS （a, B．

End Sub

Sub CS （x As Single, y As Single）

t=x

x=t ＼ y

y=t Mod y

End Sub

程序运行后，单击命令按钮，a和b的值分别为（ ）。

A．0 0

B．1 1

C．0 2

D．1 2

相似考题

1.在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）a=0For i=1 To 2For j=1 To 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．0B．2C．3D．4

2.有如下程序,执行程序后单击Button1按钮,窗体上显示的是什么()Private Sub Command1_Click()Dim a Dim b As Integera = 5 ／ 2b = 5 ／ 2Print a, bEnd SubA、2 2B、 2 2.5C、 2.5 2D、 2.5 2.5

3.运行下列程序，最后在窗体中输出【 】。Private Sub command1_Click()a=65 : b = 17a = a Mod b ^ 2a = a \ 4Print aEnd Sub

4.在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 2x=x+6NextNextPrint xEnd Sub程序运行后,单击命令按钮,输出结果是A．12B．13C．16D．17

参考答案和解析
正确答案：C
更多“有如下程序: PrivateSubCommand1_Click() DimaAsSingle DimbAsSingle a=2:b=4 CallCS(a ”相关问题

  • 第1题：

    设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 ______。

    A．1+1/2+2/3/4+4/5

    B．1+1/2+2/3+3/4

    C．1/2+2/3+3/4+4/5

    D．1+1/2+1/3+1/4+1/5


    正确答案：C
    解析：本题考查循环语句，其过程如下：
      i=1时，x=0/1=0，n=0+1=1，sum=0+0；
      i=2时，x=1/2，n=1+1=2，sum=0+1/2；
      i=3时，x=2/3，n=2+1=3，sum=0+1/2+2/3；
      i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4；
      i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。

  • 第2题：

    编写如下程序： Private Sub Command1_Click() x="abcd" y="1234" For i=1 To 4 z=z+Mid(x，i，1)+Left(y，1) Next i Print z End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．abcd1234

    B．a1b2c3d4

    C．a1b1c1d1

    D．1234abcd


    正确答案：C
    解析：在4次循环过程中，利用Mid函数从x字符串中逐个获取的是a、b、c、d，Left函数从y字符串中逐个获取的是1、1、1、1，用“+”号将它们连接起来，就得到了答案C。

  • 第3题：

    有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是

    A．1

    B．2

    C．3

    D．4


    正确答案：C
    解析：Mid(a＄，i，2)表示从字符串a＄的第i个字符开始向后截取2个字符。由于“AWORKERISOVERTHERE'’中有三个“ER”，故s=s+1将被执行3次，即s最后的值为3。

  • 第4题：

    有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b)End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为

    A．0 0

    B．1 1

    C．0 2

    D．1 2


    正确答案：C
    解析：调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程；因为在默认的情况下，变量都是通过“引用”传送给Sub过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值；过程Sub的形参获得a，b的地址，此时x=2，y=4，在过程Sub中，将x，即2的值赋给t，而将ty的值赋给x，将t除以y的余数赋给y，此时x，y的值为0，2。

  • 第5题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 X=4 For j=1 To 2 X=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是

    A．12

    B．13

    C．16

    D．17


    正确答案：C
    解析：观察程序，由于每次执行外层循环时x都被重新赋值，因此只要看当i=4时，执行内循环所得到的结果就可以。

相关内容