您所在位置：主题：南来北往的高手们来看一看啊
firestorm11
[专家分：50] 发布于 2006-10-24 17:03:00
各位高手,我初学QB,现在以一个分解质因数的程序作为见面礼,望多多指教!
INPUT a
a1:b=2
a2:a1=a:a1=a1/b
IF a1=INT(a1) then goto a3 else goto a4
a3:if a1=1 then print a1:end
print a1:a=a1:goto a1
a4:b=b+1
goto a2
INPUT a
a1:b=2
a2:a1=a:a1=a1/b
IF a1=INT(a1) then goto a3 else goto a4
a3:if a1=1 then print a1:end
print a1:a=a1:goto a1
a4:b=b+1
goto a2
