VB程序 求出100-200之间的所有质数

Question

算法步骤，谢谢

Answer 1

楼上算法有问题，多了几个

Private Function prime(n As Integer) As Boolean '返回值=True是素数，False不是素数
Dim k As Integer
prime = True
For k = 2 To n - 1
If (n Mod k) = 0 Then prime = False: Exit For
Next k
End Function

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 100 To 200
If prime(i) Then
Print Format(i, "@@@@@");
j = j + 1
If j = 10 Then j = 0: Print
End If
Next
End Sub

Answer 2

for i= 100 to 200
if int(i/2)<>i/2 and int(i/3)<>i/3 and int(i/5)<>i/5 and int(i/7)<>i/7 then print i
next i
完了。