输出2到100的所有的合数 (不是素数的数) 在线等急用

text1.text="4,6,8,9，10，12，14，15，16，18，20，21，22，24，25，26，27，28，30，32，33，34，35，36，38，39，40，42，44，45，46，48，49，50，51，52，54，55，56，57，58，60，62，63，64，65，66，68，69，70，72，74，75，76，77，78，80，81，82，84，85，86，87，88，90，91，92，93，94，95，96，98，99，100"

1楼的并不是算法 列0-100可以 但是0-1w就有问题了
我说下素数的算法
素数定义为除了1和本身之外都不能整除的数
但是数学方法可以证明，如果2倒i/2不能整除就可以了
然后在1-100中把素数提出就ok了
希望程序自己练着写
我不给了
好吧 既然ls都给出代码了
那我说下最重要的语句Exit For
这个程序最主要就是这个跳出循环的语句

dim i as integer,j as integer,k as integer
For i = 4 To 100
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
debug.Print i;
k=k+1
if k mod 10=0 then debug.print
Exit For
End If
Next j
Next i
msgbox "OK!"

被我伤害