itgle.com

有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd F

题目

有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为

A．4 6

B．6 6

C．8 8

D．10 12

相似考题

1.有如下程序：Private Sub Command1_Click（）Dim k As Integer, m As IntegerDim p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pEnd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为（ ）。A．4 6B．6 6C．8 8D．10 12

2.有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12

3.有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12

4.现有如下程序段#include "stdio.h"int fun（int k,int *m）{if（k%3）*m=k*k;else *m=k/3;}main（）{ int （*p）（int,int *）,m;p=fun;（*p）（78, &m）;printf（ "%d＼n",m）;}则程序段的输出结果为A．24B．25C．26D．27

更多“有如下程序:Private Sub Command1_Click()Dim k As Integer,m As IntegerDim op As Integerk=4:m ”相关问题

  • 第1题：

    假定w、x、y、z、m均为int型变量，有如下程序段：

    N=1；x=2；y=3；z=4；

    m=(W＜X)?W:K；

    m=(m＜y)?m:y；

    m=(m＜z)?m:z；

    则该程序运行后，m的值是【 】


    正确答案：√
    1 解析：此题考查条件表达式的运用。第1条语句执行后，变量m的值为1。第2条语句执行后，变量m的值为1。第3条语句执行后，变量m的值为1。

  • 第2题：

    阅读以下FORTAN程序：
    K1=M(5)
    K2 = M(K1)
    K3=M(K1)+M(K2)
    K4=M(K1+K2+K3)
    WRITEC* ,100)K4 100 FORMAT(2X,K4=I3)
    END
    FUNCTION M(N)
    M=N+1 RETURN END 程序的输出结果是：

    A. K4=28
    B. K4=27
    C. K4=30
    D. K4=29

    答案：D
    解析：
    Kl=6，K2=M(Kl)=7，K3=7+8=15，K4=M(6+7+15)=M(28)=29。
    答案:D

  • 第3题：

    4、有如下程序段，运行该程序代码段后，消息对话框中显示的内容为______。 Dim i%, j%, n%, m%, k% m = 0 : k = 0 For i = 1 To 5 k = k + 1 n = 0 For j = 1 To 2 n = n + 1 m = m + 1 Next j Next i MsgBox（k & " " & n & " " & m)

    A．5 10 2

    B．5 10 10

    C．5 2 10

    D．5 2 2


    当条件X0接通后,其输出线圈M30接通,主母线上对应的M30的触点接通。 此时,X001的通断可以控制Y001通断,X002的通断可以控制Y002通断。 当条件X0断开,其输出线圈M30也断开,主母线上对应的M30的触点断开。 此时,不管X001接通或断开,Y001都不会接通,Y002也是一样。

  • 第4题：

    有如下程序。

    Private Sub Command1_Click()

    Dim k As Integer, m As Integer

    Dim op As Integer

    k=4: m=1

    op=PPC(k, m) : Print op;

    op=PPC(k, m) : Print op

    End Sub

    Private Function PPC(a As Integer, b As Integer)

    Static m As Integer, i As Integer

    m=0: i=2

    i=i + m + 1

    m=i + a + b

    PPC=m

    End Function

    程序运行后,输出的结果为

    A．4 6

    B．6 6

    C．8 8

    D．10 12


    正确答案：C
    解析：考查考生对函数及函数参数的运用。在Sub过程中,程序段先定义了3个Integer型变量k,m,op,并给k赋给初值4,m的初值为1,然后调用事件过程PPC,并将它的值赋给op;在事件过程PPC中定义了两个形参,参数的传送是通过引用实参,即将k,m的地址作为a,b的地址;在PPC中,将m,i定义为静态变量,第一次调用后的值仍然保留,但是m,i分别都有赋值语句,将它们的值变为0,2,所以返回值不变。函数PPC中的两个参数都是以传值方式传递,注意不要与传地址方式传递混淆。

  • 第5题：

    阅读以下FORTRAN程序:
    K1=M(5)
    K2=M(K1)
    K3=M(K1)+M(K2)
    K4=M(K1+K2+K3)
    WRITE(*,100)K4
    100 FORMAT(2X;K4;I3)
    END
    FUNCTION M(N)
    M=N+1
    RETURN
    END
    程序输出结果是：
    (A)K4=28(B)K4=27(C)K4=30(D)K4=29


    答案：D
    解析：

相关内容