计算机二级
有下列函数过程：Function funl(ByVal x As Integer, ByVal y As Integer) Do While y 0 Reminder=x Mody x=y y=reminder Loop Funl=xEnnd Function在下列按钮单击事件中调用该函数，则该程序的运行结果是 Privatr Sub Commandl_Click() Dim a As IntegerDim b As Integer a=100 b=25 x=funl(a,b) Print x End S
题目
有下列函数过程：Function funl(ByVal x As Integer, ByVal y As Integer) Do While y 0 Reminder=x Mody x=y y=reminder Loop Funl=xEnnd Function在下列按钮单击事件中调用该函数，则该程序的运行结果是 Privatr Sub Commandl_Click() Dim a As IntegerDim b As Integer a=100 b=25 x=funl(a,b) Print x End Sub
A.0
B.25
C.50
D.100
参考答案和解析
【解析】可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用BayVal关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。
相似问题和答案
第1题：
下列语句中，错误的是（x,y,a,b假设已经定义好）
A．while（x=y）5;
B．do x++ while（x==10）;
C．while（0）;
D．do 2;while（a==b）;
第2题：
main( )
{ int x=31,y=2,s=0;
do
{ s-=x*y;
x+=2;
y-=3;} while( x%3==0);
printf(“x=%d\ty=%d\ts=%d\n”,x,y,s);
}
2.x=35 y=-4 s=-29
第3题：
A567 563
B567 567
C567 167
D567 163
第4题：
24、下列循环语句中有语法错误的是 。
A．while(x=y) 5;
B．while(0);
C．do 2 while(x= =b);
D．do x++; while(x= =10);
第5题：
4、下列代码段执行后，x的值为（）。 int x = 0,y = 10; do{ x +=2; y -=3; }while（y ＞ 0);
A．12
B．10
C．8
D．6
第6题：
下列语句中，句法错误的是(不考虑语义)( )
A.while(x=y)5 ;
B.do x++ while(x==10) ;
C.while(0);
D.do 2;while(a==b);
while语句的一般形式是：while(表达式)语句这里的表达式可以是任何合理的表达式，语句可以是任何语句，包括空语句，或表达式语句。可能书写的while语句没有任何意义，如供选择的A.while(x=y)5;和C.while(0);，但这两个语句的句法没有任何错误。do-While语句的一般形式是：do语句while(表达式);其中的成分语句也可以是任何语句，但供选择答案B.dox++while(x==10);中的代码x++是一个表达式，不是语句，所以是错误的。正确解答是B。
第7题：
下列代码段执行后，x的值为（）。 int x = 0,y = 10; do{ x +=2; y -=3; }while（y ＞ 0);
A．12
B．10
C．8
D．6
第8题：
A.-1
B.0
C.1
D.2
第9题：
下列循环语句中有语法错误的是 。
A．while(x=y) 5;
B．while(0);
C．do 2 while(x= =b);
D．do x++; while(x= =10);
第10题：
11、下面哪些定义是类型正确的？
A．f :: (Integer, Integer) -> Float f (x,y) = x / y
B．f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)
C．f :: (Integer, Integer) -> Float f (x,y) = 3*x + y
D．f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y