用VB求出100以内的素数后要求每十个一行输出，该怎么写程序？

Question

这是我已经写出来的程序
Private Sub Form_click()
Dim i As Integer, n As Integer
For i = 1 To 100
For n = 2 To i - 1
If i Mod n = 0 Then Exit For
Next n
If n = i Then Print i;
If i Mod 10 = 0 Then Print
Next i
End Sub
可是输出的效果不是每十个一行，请帮我看看哪里不对，应该怎么写
谢谢～！

Answer 1

Dim i As Integer, n As Integer ,m as integer
For i = 1 To 100
For n = 2 To i - 1
If i Mod n = 0 Then Exit For
Next n
If n = i Then
Print i;
m=m+1
If m Mod 10 = 0 Then Print
end if
Next i本回答被提问者和网友采纳