Question

求助大神！VB程序编写输出1000到1100之间所有质数，每行输出8个。帮忙看一下哪里出错了，运行不出结果啊！

Private Sub Command1_Click()
Dim i As Integer, n As Integer, k As Integer
For n = 1000 To 1100
For i = 2 To n - 1
If n / i = n \ i Then
Exit For
End If
Next i
Next n
Print ;
k = k + 1
If k Mod 8 = 0 Then
Print ;
End If
End Sub
以上运行没有任何结果，我觉得没有什么错的，可是它就是没有结果就是错了~~（泪奔~~）
我又改成：
Private Sub Command1_Click()
Dim i As Integer, n As Integer, k As Integer
For n = 1000 To 1100
For i = 2 To n - 1
If n Mod i=0 Then
Exit For
End If
Next i
Print ;
k = k + 1
If k Mod 8 = 0 Then Print ;
Next n
Print
End Sub
它还是没有结果
软件肯定没有坏~~
帮忙看看哪里出错了应该怎么改吧，谢谢了！！（不会的朋友请不要随便的，不负责任的乱说，谢谢合作~~）

Answer 1

Private Sub Command1_Click()
Dim i As Integer, n As Integer, k As Integer
For n = 1000 To 1100
For i = 2 To n - 1
If n Mod i = 0 Then
Exit For
End If
Next i
If i = n Then
Print n;
k = k + 1
If k Mod 8 = 0 Then Print
End If
Next n
End Sub
三个错误：
1.只有在质数的时候才打印，所以需要加if i=n 来判断
2.第一个print ，你是空打印，当然什么也没有，应该是 print n;
3.第二个print 应该换行，不用加;

Answer 2

用这个试试:
Private Sub Command1_Click()
Dim flag As Boolean
Dim i, j, a As Integer
Dim sum As Double
For i = 1000 To 1100 '输入范围
For j = 2 To i - 1
a = i Mod j
If a = 0 Then flag = True
Next j
If flag = False Then
sum = sum + 1
Print i;
If sum = 8 Then sum = 0: Print Chr(10) + Chr(13)
End If

flag = False
Next i

End Sub