第13講 素数探索 第３話 素数探索プログラム例 前話解答例 Private Sub CommandButton1_Click()
Dim i As Integer, cn As Integer, a As Integer, s As Integer
cn = 0
For i = 1 To 100
If sh(i) = 1 Then
a = cn Mod 10
s = Int(cn / 10)
Cells(5 + s, 1 + a) = i
cn = cn + 1
End If
Next
End Sub
Function sh(a As Integer)
If a = 1 Then
sh = 0
Exit Function
End If
If a = 2 Then
sh = 1
Exit Function
End If
If a Mod 2 = 0 Then
sh = 0
Exit Function
End If
Dim o As Integer, i As Integer
o = Int(Sqr(a))
For i = 3 To o Step 2
If a Mod i = 0 Then
sh = 0
Exit Function
End If
Next
sh = 1
