6
3
0
我这个是复制粘贴的
'算一个数的因数dim a,i as longtext1.text=a & 的因数有:for i=1 to aif a mod i=0 thentext1.text=text1.text & iend ifnext i