VB求1000到1100所有的素数

Option Explicit'添加一个按钮Command1Private Function SS(ByVal num As Long) As BooleanDim i As LongFor i = 2 To num / 2If num Mod i = 0 ThenSS = FalseExit FunctionEnd IfSS = TrueNextEnd FunctionPrivate Sub Command1_Click()Dim n As Long, count As IntegerFor n = 1000 To 1100If SS(n) Then If count Mod 6 = 0 And count <> 0 Then Print "" count = count + 1 Print n;End IfNextEnd Sub