'算一个数的因数
dim a,i as long
text1.text=a & "的因数有:"
for i=1 to a
if a mod i=0 then
text1.text=text1.text & i
end if
next i
dim a,i as long
text1.text=a & "的因数有:"
for i=1 to a
if a mod i=0 then
text1.text=text1.text & i
end if
next i