を１次元配列を利用して実現するプログラム例
Dim s(3000) As Integer
Private Sub CommandButton1_Click()
Dim a As Integer, cn As Integer
cn = 2
s(0) = 2
s(1) = 3
For a = 1 To 10000
h = f(a)
Cells(3 + a, 1) = a
If h = 1 Then
Cells(3 + a, 2) = "素数"
If a > 3 Then
s(cn) = a
cn = cn + 1
End If
Else
Cells(3 + a, 2) = "非素数"
End If
Next
For i = 0 To 3000
If s(i) = 0 Then Exit Sub
Cells(4 + i, 4) = s(i)
Next
End Sub
Function f(a As Integer)
Dim i As Integer, o As Integer
If a = 1 Then
f = 0
Exit Function
End If
If a = 2 Then
f = 1
Exit Function
End If
If a Mod 2 = 0 Then
f = 0
Exit Function
End If
o = Int(Sqr(a))
For i = 1 To 3000
If s(i) > o Then
f = 1
Exit Function
End If
If a Mod s(i) = 0 Then
f = 0
Exit Function
End If
Next
f = 1
End Function
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、前話で申し上げた通り、
Dim s(3000) As IntegerをCommandButton1_Click内で宣言して、
ローカル配列に宣言し直しましょう。
この場合には、ファンクションプロシージャfに、
変数aのみでなく、配列sも送らなければなりません。
それには、
Function f(a As Integer)
を
Function f(a As Integer, s() As Integer)
に、f(a)をf(a, s())に変更します。
これで配列sをファンクションプロシージャfに送れます。
第２話へ 第４話へ
