tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
配列のソート・最大値/最小値の取得(VB.NET) ( No.0 )  [親スレッドへ]
日時: 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 をご覧下さい。



 [スレッド一覧へ] [親スレッドへ]