VB求素数在两个文本框的算法

具有下列功能：在文本框中输入数值A、B（A不大于B,提示如图2-1），单击“查找“按钮，标签1中显示A、B之间的所有素数（包括A、B）。输入3和7。运行效果如图2-2

Private Sub Command1_Click()
    s = ""
    For i = CInt(Text1.Text) To CInt(Text2.Text)
        For j = 2 To i - 1
            If (i Mod 2 = 0) Then
                Exit For
            End If
        Next j
        If (j = i) Then
            s = s & " " & j
        End If
    Next i
    Label1.Caption = s
End Sub