求助..VB求素数的问题.....

这是很多新手都会有的疑问，原因是For循环的原理是这样的：令循环变量从初始值开始循环，每次循环之后将循环变量增加步长值，并判断循环变量是否已【超过】终止值，如果没有超过，那么继续执行循环，重复上面的过程，直到超过之后才会结束循环；但是如果循环中有Exit For，那么就会提前在循环变量还没有超过终止值时退出循环。所以循环结束后，通过判断循环变量是否超过了终止值，就可以知道循环是正常结束的还是中途Exit For的。

'　判断素数用不着 j = 1 To i - 1 的循环
'　因为超过【根号 i 】以后的判断与【根号 i 】以前的判断都是重复或无用的
Dim i As Integer, j As Integer, k As Integer, PD As Boolean
Text1 = ""
For i = 101 To 300 Step 2
k = Sqr(i) : PD = True
For j = 2 To k
If i Mod j = 0 Then
PD = False : Exit For
End If
Next j
If PD Then
Text1.Text = Text1.Text & "　" & i
End If
Next i