VB问题： 输出1000-1100的素数 一行输出6个

Private Sub Command1_Click()
Dim i As Integer, n As Integer, k As Integer
For n = 1000 To 1100
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then
Print n;
k = k + 1
If k Mod 6 = 0 Then Print
End If
Next n
End Sub
运行结果：
1009 1013 1019 1021 1031 1033
1039 1049 1051 1061 1063 1069
1087 1091 1093 1097

Function isprime(Num As Long) As Boolean
If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i

isprime = True
End Function

Private Sub Command1_Click()
Dim i As Long
Dim c As Long
c = 1
Cls
For i = 1000 To 1100
If isprime(i) Then
Print i,
If c = 6 Then
c = 1
Print