配列の最小値を取得するには？

解決

ＮＪ 2003-10-30 23:50:58 No: 80162

お世話になります。
いま配列 data(y,x) に数値(整数、小数含)を格納してあります。
この配列の data(y,3) (・・・yは10000個くらい) の中の最小値
を取得したいのですが、どうも良い方法が思いつきません。
ご教授の程、よろしくお願いいたします。

ねろ 2003-10-31 01:23:24 No: 80163

何も考えずに
    Dim n As Long, mind
    mind = data(LBound(data), 3)
    For n = LBound(data) To UBound(data)
        If data(n, 3) < mind Then mind = data(n, 3)
    Next n
でいいのでは

NJ 2003-11-01 02:02:28 No: 80164

ねろさんありがとうございました。
うまくいきました。m(_ _)m