サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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 をご覧下さい。
 |
