以下用户自定义函数 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
第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)
第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);
第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)
第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)
第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)