質數問題(編號：3624)

能不能請各位高手幫我解答一下，求出從1~n的質數出來
題目的意思就是給定一個n值求出從1~n的質數出來
n=val(text1.text)
for a=2 to n
for b= 2 to a
i=a mod b
if a=0 then exit for
if a=b then print a
next
next
各位高手我的打法是這樣子不知道對不對，如果對的話，我希望各位高手能再提供另外一種或多種解法
如果不對的話請幫我修正一下，然後可否再提供另外一種或多種解法
謝謝各位高手