第２話 最小値（最大値）を見つける方法
４，７，６，３，５
から最小値を見つけるにはどうしたらよいでしょうか。
出来るだけ大きい数（最小値としてはあり得ない数）を用意して、
min=10000
等としておきます。
例えば、国語のテストの最低点を探す問題なら、
min=100
でよいですね。
普通のテストは0点から100点までですから、
最低点が100というのはあり得ませんね。
今回は、一桁の自然数になっていますから、
min=10
でよいことになります。
minはデータの性質によって設定が変わってきます。
まず、min=10と４を比較します。
minより小さい場合には、minの内容を４に置き換えます。
４の方が小さいですから、min=4となります。
次に、min=4と７を比較します。
７の方が大きいですから、何もしません。
つまり、min=4のままです。
minと６を比較します。
やはり、６の方が大きいですから何もしません。
また、min=4にとどまります。
４，７，６，３，５
minと６を比較します。
今回も６の方が大きいですから、
何もせずに、min=4のままです。
minと３を比較します。
３の方が小さいですから、minの内容を３に置き換えます。
min=3となります。
最後に、minと５を比較します。
５の方が大きいですから、何もせずにmin=3のままです。
以上の処理で、min=3となりました。
最小値３が見つかりました。
では、実際にマクロを組んでみましょう。
参考ダウンロード添付ファイル
を開いて、
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(200) As Integer
Call f(a()) 'データ発生
Call h(a()) 'データ表示
Call g(a()) '最小値の探索と表示
End Sub
Sub f(a() As Integer)
End Sub
Sub g(a() As Integer)
End Sub
Sub h(a() As Integer)
End Sub
Private Sub CommandButton2_Click()
Rows("5:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
の空白部分を埋めて、実行ボタンを押すと、
データが発生してその下の行に最小値が表示されるようにして下さい。
Dim a(200) As Integer
は、要素数を大きめに取っていますが、
最初は、発生させるデータ数は５個程度で、
発生する整数も１桁にして実験して下さい。
上手くいくようであれば、データ数を１０個、１００個など
増やして整数の桁数も大きくしていって下さい。
