xij表示（）Ai部门生产时所消耗的j产品数量Bj部门生产时所消耗的i产品数量Ci部门生产单位产品消耗j产品数量Dj部门生产单位产品消耗i产品数量

A、Public Sub Sum(x ; y)

B、Public Sub Sum(ByVal x, ByVal y)

C、Public Sub Sum(x As Integer,y As Integer)

D、Public Sub Sum(x%, y%)

下面各被调用函数首部书写正确的是( )

A．void sub(float x；float y)；

B．void sub(float x，y)

C．void sub(float x，float y)

D．void sub(float x，float y)；

有以下程序：

int sub(int n) { return(n/10+n%10); }

main()

{ int x, y;

scanf("% d", &x);

y=sub(sub(sub(x)));

printf("% d\n", y);

}

若运行时输入：1234＜回车＞，程序的输出结果是【 】。

若有以下变量和函数说明： #include＜iostream.h＞ charCh='*'； void sub(int x，int y,char ch，double*Z) { switch(ch) { case'+':*Z=x+y;break； case'-':*Z=x-y;break： case'*':*Z=x*y;break； case'/':*z=x/y;break： } } 以下合法的函数调用语句是( )。

A．sub(10，20，Ch，y)；

B．sub(1.2+3，2*2，'+'，&Z)；

C．sub(sub(1，2，'+'，&y)，sub(3，4'+'，&x)，'-'，&y)；

D．sub(a，b，&x,ch)；

假定有以下两个过程： Private Sub PPP(a As Single, b As Single) a=a+b Print a, b b=a+b Print a, b End Sub Private Sub Form_Activate0 x=18 Call PPP((x), (x)) Print x End Sub 则下列说法中不正确的是( )。

A．形参是a和b，两个实参(x)和(x)允许重名

B．形参是a和b，实参(x)表示传值调用

C．形参是a和b，实参(x)表示是非传址调用

D．形参是a和b，两个实参(x)和(x)不允许重名

假定有如下的Sub过程：Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后，单击命令按钮，输出结果为______。

A．5 4

B．1 1

C．1.2 5.4

D．1.25 1

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．41 54

B．2 54

C．1 3

D．42 3

以下程序的输出结果是【 】。

main()

{ int x=0；

sub(&x，8，1)；

printf(“%d\n”，x)；

}

sub(int *a，int n，int k)

{ if(k＜＝n)sub(a，n/2，2*k)；

*a+=k；

}

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(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．2 2

D．1 2

执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click( )

Dim A As Integer

A=2

Call Sub1 (A) End Sub

Private Sub1 (x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1 (x)

End If

x=x*2+1

Print x

End Sub

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

A.10

B.30

C.40

D.50

以下能够正确计算n!的程序是( )。

A．Private Sub Commandl_C1ick()

B．hiVate Sub Commandl_C1ick() n＝5:x＝1 n＝5:x=1:i＝1 DO DO X＝x*1 X＝X*1 i＝i＋1 i＝i＋1 Loop while i＜n Loop While＜n Print x Ptinte x End Sub End Sub

C．Private Sub Commandl_Click ()

D．Pdvate Sub Commandl C1ick() n＝5:X＝1:i＝1 n＝5＝:x＝1:i＝1 DO DO X＝X*1 X＝X*1 i＝i＋1 i＝i＋1 Loop While i＞n Print x Print x End Sub End Sub

有如下Sub过程：

Sub ind(a As Integer)

Static x As Integer

x= x + a

Print x：

End Sub

以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【 】。

Private Sub Command1_Click()

Ind 2

End Sub