Question

输出2到100之间的所有素数，用VB编写程序代码

Answer 1

Dim i, j, a, k As Integer
For i = 2 To 100
a = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then a = 1
Next j
If a = 0 Then
Print i;
k = k + 1
If k Mod 5 = 0 Then
Print
End If
End If
Next i

这个程序我以上机运行过，中间我加入了一段程序"K"，这段程序的作用是在输出时每5个一行输出，这样你就可以在界面上看到200以内的全部素数了。

Answer 2

Private Sub Form_Click()
Dim i As Integer, j As Integer, x As Integer
For i = 2 To 100
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1
Next j
If x = 0 Then Print i
Next i
End Sub