100-400之间的素数用VB求？

Private Sub Command1_Click()
For i = 100 To 400
If 素数(i) Then Print i
Next i
End Sub

Private Function 素数(a As Integer) As Boolean
Dim i As Integer
素数 = True
For i = 2 To Int(Sqr(i))
If a Mod i = 0 Then
素数 = False
Exit Function
End If
Next i
End Function

Private Sub Command1_Click()

For i = 100 To 400
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
Print i
Exit For
End If
Next j， i

End Sub

两个for循环嵌套，外面一个n为100到400，里面一个i为2到n的平方根，用n除i如果能整除就不是素数，均不能整除就是素数输出