求解一道题

在文本框中输入数字n，输出n以内（包括n）的所有素数

求素数？

Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n '循环，i的值从2到n
For j = 2 To Sqr(i) '对每一个i进行循环，j的值从2到i的平方根
If i Mod j = 0 Then Exit For '如果i能被j整除，说明i不是素数，退出循环
Next j
If j > Sqr(i) Then Print i
'如果是Exit For中途退出循环的（即i不是素数），那么满足j<=Sqr(i)，
'不满足j>Sqr(i)，就不会输出i；否则（即i是素数），满足j>Sqr(i)，输出i
'一行只输出一个数，如果n比较大，而窗体高度不够大，则数字会显示不全
Next i
End Sub