Question

找出一千以内所有素数 的VB程序

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim bool As Boolean

For i = 2 To 1000
bool = False
For j = 2 To i - 1
If i Mod j = 0 Then
bool = True
Exit For
End If
Next j
If bool = False Then
Print i;
End If
Next i
End Sub

Answer 2

Private Sub Form_Click()
For i = 2 To 1000
If sushu(i) = True Then
b = b + 1
If b Mod 10 = 0 Then Print
Print i;
End If
Next i
End Sub

Function sushu(x) As Boolean
For m = 2 To Sqr(x)
If x Mod m = 0 Then
sushu = False
Exit Function
End If
Next m
sushu = True
End Function