计算机vb题目,请高手帮忙

来源:百度知道 编辑:UC知道 时间:2024/06/08 17:00:24
private sub command1_click()
dim x as integer,y as integer,z as integer
x=6:y=12:z=20
print fun1(x,y)
end sub

private function fun1(a as integer,b as integer)as long
dim y as integer
y=a
do
if y mod b=0 then
fun1=y
exit function
else
y=y+a
end if
loop
end function
此题在屏幕结果为何是12而不是6

当然是12

fun1(6,12)
函数里面的y=6
y mod b 即是 6 mod 12 =6
mod是求余的。
所以IF不成立。
返回y+a即6+6=12

再循环,这个时候 是 12 mod 12
等于0
返回函数值为12
退出函数