を実現するプログラム例
Private Sub CommandButton1_Click()
f
End Sub
Sub f()
Dim s(10) As Integer, i As Integer
For i = 0 To 9
s(i) = i + 1
Next
For i = 0 To 9
Cells(4, 1 + i) = s(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
わざわざサブプロシージャを用意しないで、
Private Sub CommandButton1_Click()
Dim s(10) As Integer, i As Integer
For i = 0 To 9
s(i) = i + 1
Next
For i = 0 To 9
Cells(4, 1 + i) = s(i)
Next
End Sub
でももちろん正解ですが、
仕事は、なるべく社長自身がやるのではなく、
部下に任せる習慣を身につけて下さい。
プロシージャは小さめに作る!
この心がけ忘れないようにしましょう。
さて、第６講第５話において素数列挙のマクロを作りました。
〜
添付ファイル
このプログラムの
Function f(a As Integer)
Dim i As Integer, o As Integer
If a = 1 Tsen
f = 0
Exit Function
End If
If a = 2 Tsen
f = 1
Exit Function
End If
If a Mod 2 = 0 Tsen
f = 0
Exit Function
End If
o = Int(Sqr(a))
For i = 3 To o Step 2
If a Mod i = 0 Tsen
f = 0
Exit Function
End If
Next
f = 1
End Function
の部分を１次元配列を用いて改良することにしましょう。
このファンクションプロシージャは、
例えば、４９９が素数であるかどうか判定するときに、
For i = 3 To o Step 2
If a Mod i = 0 Tsen
f = 0
Exit Function
End If
Next
では、３，５，７，９，１１，１３，１５，１７，１９，２１
（最後が２１なのは、４９９の平方根が22.3383079036887であるからです。）
で割り切れるかどうかを試して、
すべて割り切れないので、
素数と判定しています。
実は、これは明らかな無駄があります。
３で割り切れないなら、
もちろん、９，１５，２１では割り切れないに決まっています。
３の倍数でないことが確定しているわけですから、
もちろん、９，１５，２１のいずれの倍数でないことは決まっています。
ですから、４９９が
３，５，７，１１，１３，１７，１９
で割り切れないかどうかを判定すればよいわけです。
これはすべて素数ですね。
ですから、ａが奇数であるときに、素数であるかの判定は、
ａの平方根未満の奇素数（奇数の素数）のみで割っていけばよいのです。
素数と判定されたときに順に配列に入れていって、
s(1),s(2),・・・等で割っていけばよいわけです。
最初の２つの素数は
Private Sub CommandButton1_Click()
Dim a As Integer, cn As Integer
cn = 0
s(0) = 2
s(1) = 3
と手動で入れましょう。cnは後で説明します。
問題は、
s(2) = 5
s(3) = 7
・
・
・
問題は、s(*)の*をどうやって数えていくかですが、
カウント専門の変数cnを用意しておいて、
2に初期化しておいて、
ファンクションプロシージャfの判定が１のときのみに、
cn = cn + 1
とすればよいのです。
では、皆さん改良に取り組み
を実現しましょう。
D列は、配列を用いて素数のみを列挙しています。
尚、用意する配列は、最初は
Dim s(3000) As Integer
Private Sub CommandButton1_Click()
Dim a As Integer, cn As Integer
cn = 2
・
・
・
と冒頭で宣言して、グローバル配列にすることにしましょう。
後に、これをCommandButton1_Clickのローカル変数に変更します。
実は、引数は変数のみでなく配列も引数に出来るのです。
そのやり方を次話で説明します。
第１話へ 第３話へ
