dim i ,a as integer text2.text=text1.text+" " a=val(text1.text) b=a for i=2 to b while a mod =0 text2.tex=text2.text+trim(str(i)+"*" a=a/i wend if a=1 then exit for next i text2.text=left(text2.text,len(text2.text)-1)
dim i ,a as integer text2.text=text1.text+"=" a=val(text1.text) b=a for i=2 to b while a mod i=0 text2.text=text2.text+trim(str(i))+"*" a=a/i wend if a=1 then exit for next i text2.text=left(text2.text,len(text2.text)-1)