![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VB 2005,Framework2.0を使用しています。
複数のある配列の中から最大値の値だけを抽出するプログラムを作ろうと思っています。
For等のループを使うのは分かりますが、そこからどの様にコードを書けばいいのか分からなく困っています。
例えば配列にランダムに数値が入っていたとします。
Dim Hako(5) As Integer
Hako(0) = 10
Hako(1) = 16
Hako(2) = 31
Hako(3) = 12
Hako(4) = 42
Hako(5) = 5
とあったらこの配列の中の最大値(42)のみを抽出したいです。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは
戦略としてソートプロシージャがライブラリとして既にあるならソートして結果を得ればOkです。
全要素数が判っていて一つ一つ比較して調べるなら下記を参考にして下さい。
CONST LastItem = 6'調べる配列データの最大要素数
DIM I AS INTEGR'LOOP変数
DIM MaxItem AS INTEGER'最大値を格納
LET MaxItem=0'結果を入れる変数は、初期化しておく
FOR I=0 TO LastItem-1 STEP 1
'調べた最大値とデータを比較し最大値だったら入替える
IF Hako(I)>MaxItem THEN LET MaxItem=Hako(I)
NEXT I
PRINT MaxItem
END
No.1
- 回答日時:
こんにちは。
ループでと言うことでしたらこちらでどうでしょうか?
Sub TEST()
Dim Hako(5) As Integer
Hako(0) = 10
Hako(1) = 16
Hako(2) = 31
Hako(3) = 12
Hako(4) = 42
Hako(5) = 5
MsgBox (Max(Hako))
End Sub
Private Function Max(ByVal Val As Variant) As Double
Dim x As Variant
For Each x In Val
If IsNumeric(x) Then
If x > Max Then
Max = x
End If
Else
Max = Max(x)
End If
Next x
End Function
---------------------------
最小値であれば不等号を逆にしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
配列の中の最大値とそのインデックス番号を取得する方法
Visual Basic(VBA)
-
配列内の内容を全て表示する方法
Visual Basic(VBA)
-
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
-
4
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
5
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
6
フォームの再読み込み
Visual Basic(VBA)
-
7
データベースのデータをTextBoxに入力された値で検索しDataGridViewに表示する方法
Visual Basic(VBA)
-
8
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
Dir関数で読み取り順を操作でき...
-
vba フィルター 複数条件 3つ以...
-
C#でbyte配列から画像を表示さ...
-
エクセルでXY座標に並べられた...
-
VB.NETの配列の限界を教えてく...
-
VBA フォルダ内のファイルを、...
-
構造体配列内の文字列検索のよ...
-
CheckBoxの配列化
-
配列のペースト出力結果の書式...
-
VBAのワークシート関数で配列の...
-
Redim とEraseの違いは?
-
Excel2010のinputboxで複数デー...
-
Excelマクロ:配列データからグ...
-
VB.NETでファイルを後ろから読...
-
VB6のメモリ解放に関して
-
エクセル(VBA)の空白配列の削除...
-
COBOLの基本的な事なので...
-
大量の変数を定義するにはどう...
-
構造体配列の特定のメンバーをF...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
vba フィルター 複数条件 3つ以...
-
C#でbyte配列から画像を表示さ...
-
エクセルでXY座標に並べられた...
-
Dir関数で読み取り順を操作でき...
-
Redim とEraseの違いは?
-
VB.NETの配列にExcelから読み込...
-
VB6のメモリ解放に関して
-
配列の中の最大値とそのインデ...
-
構造体配列内の文字列検索のよ...
-
構造体配列の特定のメンバーをF...
-
VBAでMODE関数をつくる
-
Excel2010のinputboxで複数デー...
-
COBOLの基本的な事なので...
-
Segmentation Fault (メモリ制限?)
-
定数配列の書き方
-
OutOfMemoryExceptionの回避策...
-
VBScriptでCSVファイルを読み出...
-
コンボボックスのインデックス...
-
DBから取得した値を配列へ代入する
おすすめ情報