有下列函数过程: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 Integer Dim b As Integer a=100 b=25 x=funl(a,b) Print x End SubA.0 B.25 C.50 D.100

有下列函数过程: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 Integer Dim b As Integer a=100 b=25 x=funl(a,b) Print x End SubA.0 B.25 C.50 D.100


相关考题:

program exam(output); var x,y,x:integer; proedure silly(x:integer;vary:integer); begin x:=5;y:=6;z:=3; writeln(x,y,z) end; begin x:=1;y:=2;z:=3; silly(x,y); writeln(x,y,z) end. 以上程序运行结果为(). A567 563B567 567C567 167D567 163

若m,x,y,均为Integer型变量,则执行下面语句后m值是()m=1:X=2:Y=3m=IIf(X>Y,X+Y,X-Y)() A.-1B.0C.1D.2

下列语句中,错误的是(x,y,a,b假设已经定义好)A.while(x=y)5;B.do x++ while(x==10);C.while(0);D.do 2;while(a==b);

执行下列程序后,变量y的值是( )。SET TALK OFFCLEARX=2000Do CASECASE x&lt;=1000y=x*0.1CASE x&gt;1000y=x*0.2CASE x&gt;1500y=x*0.3CASE x&gt;2500y—x*0.4ENDCASE?YA.200B.400C.600D.800

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);}

下列代码段执行后,x的值为()。 int x = 0,y = 10; do{ x +=2; y -=3; }while(y > 0);A.12B.10C.8D.6

4、下列代码段执行后,x的值为()。 int x = 0,y = 10; do{ x +=2; y -=3; }while(y > 0);A.12B.10C.8D.6

下列循环语句中有语法错误的是 。A.while(x=y) 5;B.while(0);C.do 2 while(x= =b);D.do x++; while(x= =10);

24、下列循环语句中有语法错误的是 。A.while(x=y) 5;B.while(0);C.do 2 while(x= =b);D.do x++; while(x= =10);

11、下面哪些定义是类型正确的?A.f :: (Integer, Integer) - Float f (x,y) = x / yB.f :: (Integer, Integer) - Float f (x,y) = (fromInteger x) / (fromInteger y)C.f :: (Integer, Integer) - Float f (x,y) = 3*x + yD.f :: (Integer, Integer) - Integer f (x, y) = 3*x + y