|
EXCEL高手用VBA解释一下DO循环gysab
function gys(byval x as integer,byval y as integer) as integer
do while y<> 0
r=x mod y
x=y
y=r
loop
gys=x
end function
private sub command1_click()
dim a as integer
dim b as integer
a=100
b=25
x=gys(a,b)
print x
end sub
窗体上输出(B)
A,0
B,25
C,50
D,100
为什么选B
由主程序:x=gys(100,25)
对于gys(x,y):
y=25<>0,满足循环条件
r=x mod y=100 mod 25=0
x=y=25
y=r=0,不满足循环条件
所以:gys=x=25
|
|