
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)
-
VB6で配列の最大値を簡単に求める。
Visual Basic(VBA)
-
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
-
4
VB.net 引数で配列変数を渡す際の要素数
Visual Basic(VBA)
-
5
csvファイルのデータの一部を取り出したい
Visual Basic(VBA)
-
6
【VB6.0】 あるフォームから他のフォームへ値を受け渡したい
Visual Basic(VBA)
-
7
Integer変数をカラにしたいのですが
Visual Basic(VBA)
-
8
値を返さないコード パス
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
C#でbyte配列から画像を表示さ...
-
OutOfMemoryExceptionの回避策...
-
複数のtextboxの処理を一括で行...
-
Dir関数で読み取り順を操作でき...
-
VBScriptでCSVファイルを読み出...
-
Excelのメモリ(配列)の上限は2G...
-
エクセルでXY座標に並べられた...
-
コンボボックスのインデックス...
-
レコードセットの中身を配列に...
-
VB.NETの配列の限界を教えてく...
-
グラフの「項目軸ラベルに使用...
-
配列のペースト出力結果の書式...
-
配列の中の最大値とそのインデ...
-
VBA フォルダ内のファイルを、...
-
VB.NETの配列にExcelから読み込...
-
VBで配列に格納されているデー...
-
配列の要素がすべてカラかどう...
-
定数配列の書き方
-
クイズゲームのフォームについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
C#でbyte配列から画像を表示さ...
-
エクセルでXY座標に並べられた...
-
Dir関数で読み取り順を操作でき...
-
vba フィルター 複数条件 3つ以...
-
配列のペースト出力結果の書式...
-
複数のtextboxの処理を一括で行...
-
Excelのメモリ(配列)の上限は2G...
-
配列の中の最大値とそのインデ...
-
大量の変数を定義するにはどう...
-
Excel2010のinputboxで複数デー...
-
COBOLの基本的な事なので...
-
構造体配列内の文字列検索のよ...
-
VBAでMODE関数をつくる
-
Redim とEraseの違いは?
-
VBScriptでCSVファイルを読み出...
-
VB6のメモリ解放に関して
-
VB.NETの配列にExcelから読み込...
-
Segmentation Fault (メモリ制限?)
-
ActiveReports(アクティブレポ...
おすすめ情報