を実現するマクロ例
Private Sub CommandButton1_Click()
Call CommandButton2_Click
Dim i As Integer, a As Integer, cns As Integer, cn As Integer
Dim hj As Single, ow As Single
hj = Timer
cn = 0
For i = 1 To 10000
If sh(i) = 1 Then
a = cn Mod 10
cns = Int(cn / 10)
Cells(6 + cns, 1 + a) = i
cn = cn + 1
End If
Next
ow = Timer
Cells(4, 1) = "素数生成にかかった時間は"
Cells(4, 5) = ow - hj
Cells(4, 6) = "秒です。"
Cells(5, 1) = "生成された素数は"
Cells(5, 4) = cn
Cells(5, 5) = "個です。"
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
End Function
Private Sub CommandButton2_Click()
Range("4:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、皆さん奇数ではなく素数で割って判定するように改良しましょう。
改良するためにはグローバル配列を用意します。
グローバル変数に素数を貯めていくのです。
カンターcnもグローバル変数に変更しましょう。
どこまで割っていくかは皆さん工夫して下さい。
グローバル変数やグローバル配列を宣言するには、
Private Sub CommandButton1_Click()の前、
すなわち、プログラム冒頭で
Dim cn As Integer
Dim s(100000) As Integer
Private Sub CommandButton1_Click()
Call CommandButton2_Click
・・・
・・・
・・・
と宣言すればよいのです。
プロシージャ内で宣言された変数は、
プロシージャ内でしか有効でないローカル変数といいます。
それに対してプログラム全体で有効な変数をグローバル変数といいます。
