焦炭的M40代表抗碎强度,M10代表耐摩强度。
第1题:
若要在子过程Procl调用后返回两个变量的结果,下列过程定义语句中有效的是( )。
A.Sub Proc1(n,m)
B.Sub Proc1(ByVal n,m)
C.Sub Proc1(n,BYVal m)
D.Sub Proc1(ByVal n,ByVal m)
第2题:
单击命令按钮,下列事件过程的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=40: y=72
Call PtoP(x, y)
Print x; y
End Sub
Public Sub PtoP(Byval n As Integer, ByVal m As Integer)
n=n \ 10+2
m=m \ 10+2
End Sub( )。
A.0 8
B.40 72
C.4 50
D.78 50
第3题:
( 33 )若要在子过程 Procl 调用后返回两个变量的结果,下列过程定义语句中有效的是
A Sub Procl(n,m)
B Sub Procl(ByVal n,m)
C Sub Procl(n,ByVal m)
D Sub Procl(ByVal n,ByVal m)
第4题:
有如下事件过程: Private Sub Command1_Click( ) Dim m AS Integer,n AS Integer m=2:n=1 Print "m=";m;"n=";n Call TOD(m,n) Print "m=";m;"n=";n End Sub Sub TOD(x,y) x=x^2 y=y^3 End Sub 程序运行后,输出的结果为
A.m=2,n=1 m=1,n=2
B.m=2,n=1 m=4,n=1
C.m=1,n=2 m=1,n=4
D.m=1,n=2 m=2,n=4
第5题:
以下程序的运行结果是
sub(int x,int y,int *z)
{*z=y-x;}
main()
{ int a,b,c;
sub(10,5,&a);
sub(7,a,&b);
sub(a,b,&c);
printf("M,M,M\n",a,b,c);}
A.5,2,3
B.-5,-12,-7
C.-5,-12,-17
D.5,-2,-7
第6题:
单击命令按钮时,下列的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=86: y=29
Call Proc(x, y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub( )。
A.12 32
B.6 29
C.2 3
D.12 3
第7题:
若要在子过程Procl调用后返回两个变量的结果,下列过程定义语句中有效的是______。
A.Sub Procl(n, m)
B.Sub Procl(ByVal n, m)
C.Sub Procl(n, ByVal m)
D.Sub Procl(ByVal n, ByVal m)
第8题:
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
第9题:
运行以下程序后,输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
:A. sub:2 6 4 main:1 2 3
B. sub:2 6 4 main:2 2 3
C. sub:2 6 4 main:2 6 4
D. sub:2 6 4 main:1 6 4
第10题:
下面过程运行后,变量N的值为( )。 PRIVATE SUB MAINSUB( ) DIM N AS INTEGER N=9 CALL GET. DATA(N) END SUB PRIVATE SUB GETDATA(BYREF M AS INTEGER) M=M*3+SC-N(-9) END SUB
A.25
B.26
C.27
D.28