为什么不能正确输出3到100的素数

[g1y9d861213]

程序代码如下：
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim i, j, k As Integer
For i = 3 To 100
For j = 3 ^ 1 / 2 To 10
For k = 3 To j
If i Mod k = 0 Then
Exit For
End If
Next
If k > j Then
Response.Write(i & "")
End If
Next
Next
End Sub
End Class

[我姓区不姓区]

        Dim i, j, k As Integer
        For i = 3 To 100
            k = 0
            For j = 2 To i / 2
                If (i Mod j = 0) Then
                    k += 1
                End If
            Next
            If (k = 0) Then
                Response.Write(i & "<br />")
            End If
        Next