dim number as integer '输入的正整数
dim yz as integer '因子
dim num as integer '因子个数
dim i as integer '循环变量
num = 0
print number + "的因子有："
for i=1 to numner/2
if (number\i)*i=number then
num = num + 1
printf i
endif
next i
print "共计"+num+"个因子"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024