■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#8389-0最大値の出し方Erica2000-03-09(木) 15:29
     #8392-0RE#8389:最大値の出し方みゆき2000-03-09(木) 15:46
     #8393-0RE#8389:最大値の出し方ぜんちゃん2000-03-09(木) 16:05
     #8394-0RE#8392:最大値の出し方匿名83942000-03-09(木) 16:07
     #8397-0RE#8392:最大値の出し方Erica2000-03-09(木) 16:35
#8389-0
最大値の出し方
おひさしぶりでございます。Ericaです。
0,1,2,3,4,5の数値から最大値(この場合は5)を検出する方法は
どうやったらよいのでしょうか?できそうでできません(T_T)
よろしくお願いいたします。
#8392-0
RE#8389:最大値の出し方
> おひさしぶりでございます。Ericaです。
> 0,1,2,3,4,5の数値から最大値(この場合は5)を検出する方法は
> どうやったらよいのでしょうか?できそうでできません(T_T)
> よろしくお願いいたします。


取り敢えずサンプル、こんな簡単なプログラムを組むのは久しぶりかな


    Dim a As Variant
    Dim i As Long
    Dim max As Variant

    a = Array(0, 1, 2, 3, 4, 5)

    max = a(0)

    For i = LBound(a) To UBound(a)
        If max < a(i) Then max = a(i)
    Next

    ' この時点で変数 max に最大値が入っています


ちなみに
a = Array("C", "B", "A")
ってすると max には "C" が入ります
#8393-0
RE#8389:最大値の出し方
> おひさしぶりでございます。Ericaです。
> 0,1,2,3,4,5の数値から最大値(この場合は5)を検出する方法は
> どうやったらよいのでしょうか?できそうでできません(T_T)

既に、みゆきさんが回答されていますので、ご参考までに
リストボックスコントロールを使った方法です。

Sorted プロパティをTrueにして

    List1.AddItem "1"
    List1.AddItem "5"
    List1.AddItem "3"
    List1.AddItem "4"
    List1.AddItem "2"
    List1.AddItem "0"
    MsgBox List1.List(List1.ListCount - 1)
#8394-0
RE#8392:最大値の出し方
>     max = a(0)
> 
>     For i = LBound(a) To UBound(a)
>         If max < a(i) Then max = a(i)
>     Next

max の初期値が a(0) なので、i=0 のとき同じものを比較してます。
For i = LBound(a) + 1 to UBound(a) としたほうがいいでしょう。
#8397-0
RE#8392:最大値の出し方
レスありがとうございます。

みゆきさま はじめましてです。 
> 取り敢えずサンプル、こんな簡単なプログラムを組むのは久しぶりかな
(^^ゞ すいませんっ・・・サンプルまで作っていただいちゃって。
配列を使うんですネ! ありがとうございます。
 
ぜんちゃんさま おひさしぶりでございます。
これから役に立ちそうなので φ(..)メモメモ しときます。
ありがとうございます。

匿名8394さま
>For i = LBound(a) + 1 to UBound(a) としたほうがいいでしょう。
これから やってみて違いを見つけてみようと思います。

みなさまありがとうございました!
このページと関連する記事:
#2670-3Arrayに定義してある値の個数を求める方法2001-12-10(月) 22:46
#165-4データ数が不明な場合の足し算の繰り返し処理2003-08-02(土) 16:50
#22247-0計算2001-08-07(火) 17:54
#6064-0RE#6009:テキストファイルについて2000-02-21(月) 03:46
#20083-0for〜nextについて教えてください2002-03-06(水) 21:37
#20410-0数値の取り出し方法2002-03-29(金) 08:38
#17052-0得点毎にソートして表示2000-12-12(火) 15:27
#5253-0関数プロシージャに関して。2000-01-24(月) 16:13
#23593-0マイナス値のなかで最大値を求めたいのですが、、、2001-10-06(土) 05:50
#22737-0テキストファイルの行をソート2001-08-28(火) 18:19
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)