| 日時: 2009/12/26 21:44名前: 花ちゃん
 
************************************************************************************ カテゴリー:[アルゴリズム][基本コード][]                                        *
 * キーワード:並べ替え,ソート,最大値の取得,最小値の取得,,                         *
 ***********************************************************************************
 
 某掲示板で配列の最小値・最大値が取得できないかとの質問で答えたものです。
 簡単な事なのですが意外と知られていないようなので投稿しておきます。
 
 -----------------------------------------------------------------------------------
 Array.Sort メソッド を使ってのソート - 花ちゃん  2007/09/15
 -----------------------------------------------------------------------------------
 
 Private Sub Button3_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button3.Click
 Dim a(5) As Single
 a(0) = 14
 a(1) = 5
 a(2) = 2
 a(3) = 10
 a(4) = 130
 a(5) = 1
 Array.Sort(a)
 Debug.WriteLine(a(0))            '結果  1
 Debug.WriteLine(a(5))            '結果  130
 
 Array.Reverse(a)
 Debug.WriteLine(a(0))            '結果  130
 Debug.WriteLine(a(5))            '結果  1
 
 Dim nameUser(4) As String
 nameUser(0) = "わたなべまさき"
 nameUser(1) = "あむろなえみ"
 nameUser(2) = "なかねまさひろ"
 nameUser(3) = "しもとあや"
 nameUser(4) = "かとりしんじ"
 
 Array.Sort(nameUser)
 Debug.WriteLine(nameUser(0))     '結果  あむろなえみ
 Debug.WriteLine(nameUser(4))     '結果  わたなべまさき
 
 Array.Reverse(nameUser)
 Debug.WriteLine(nameUser(0))     '結果  わたなべまさき
 Debug.WriteLine(nameUser(4))     '結果  あむろなえみ
 End Sub
 
 その他、Array クラスには、Array.IndexOf メソッド や Array.BinarySearch メソッド を
 はじめ、色々のメソッドが用意されていますので、MSDN をご覧下さい。
 
 
 |