niusouti.com

以下用户自定义函数 Function Func(a As Integer,b As Integer)As Integer Static m As Integer.i As Integer m=0:i=2 i=i+m+i m=i+a-i-b Func=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim k As Integer,m As Integer,p As Integer k=4:m=1 P=Func(k,m)

题目

以下用户自定义函数 Function Func(a As Integer,b As Integer)As Integer Static m As Integer.i As Integer m=0:i=2 i=i+m+i m=i+a-i-b Func=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim k As Integer,m As Integer,p As Integer k=4:m=1 P=Func(k,m) Print P End Sub 程序运行后,单击命令按钮,输出结果为

A.8

B.9

C.10

D.11


相似考题
更多“以下用户自定义函数Function Func(a As Integer,b As Integer)As IntegerStatic m As Integer.i ”相关问题
  • 第1题:

    以下所列的各函数首部中,正确的是______。

    A.void play(var:Integer,var b:Integer)

    B.void play(int a,b)

    C.void play(int a,int b)

    D.Sub play(a as integer,b as integer)


    正确答案:C

  • 第2题:

    以下哪个函数声明是正确的?

    A.void play(int a, int b);

    B.void play(a:Integer, b:Integer);

    C.void play(int a, b) ;

    D.Sub play(a as integer, b as integer);


    void play(int a, int b) ;

  • 第3题:

    以下所列的各函数首部中,正确的是

    A.void play(var :Integer,var b:Integer)

    B.void play(int a,b)

    C.void play(int a,int b)

    D.Sub play(a as integer,b as integer)


    C

  • 第4题:

    链表的定位函数

    loc(I:integer):pointer; {寻找链表中的第I个结点的指针}

    procedure loc(L:linklist; I:integer):pointer;

    var p:pointer;

    j:integer;


    正确答案:

     

    begin
    p:=L.head; j:=0;
    if (I>=1) and (I<=L.len) then
    while j<I do begin p:=p^.next; inc(j); end;
    loc:=p;
    end;

  • 第5题:

    以下所列的各函数首部中,正确的是:()

    A.void play(var :Integer,var b:Integer)

    B.void play(int a,b)

    C.void play(int a,int b)

    D.Sub play(a as integer,b as integer)


    void play ( int a,int b )

  • 第6题:

    以下所列的各函数首部中,正确的是()。

    A.void play(int a,b)

    B.void play(var :Integer,var b:Integer)

    C.void play(int a,int b)

    D.Sub play(a as integer,b as integer)


    void play ( int a,int b )