VB编程求1-1000以内任意两数间的所有质数!

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer,j As Integer
a = Text1
b = Text2
If a > b Then
c = a
a = b
b = c
End If
c = 0
For i = a To b
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
Next j
If j = i Then Print i
Next i
End Su