４．最大値・最小値等の取得・配列のソート関係色々(05_Alg_03)　(旧、SampleNo.180 他)

１．Array.Sort メソッドを使ってのソート及び最大値・最小値の取得 ２．Enumerable メソッドを使っての最大値・最小値・合計・平均等を取得 ３．Aggregate 句を使用しての最大値・最小値・合計・平均等を取得 ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．Array.Sort メソッドを使ってのソート及び最大値・最小値の取得

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Array.Sort メソッドを使ってのソート及び最大値・最小値の取得     Dim numbers As Single() = {14, 5, 2, 10, 130, 1, 60}     '昇順ソート     Array.Sort(numbers)     Debug.WriteLine(numbers(0))                     '結果 　1     Debug.WriteLine(numbers(numbers.Count - 1))     '結果 　130     '降順ソート     Array.Reverse(numbers)     Debug.WriteLine(numbers(0))                     '結果 　130     Debug.WriteLine(numbers(numbers.Count - 1))     '結果 　1     Dim nameUser() As String = {"わたなべまさき", "あむろなえみ", "なかねまさひろ", "しもとあや", "かとりしんじ"}     Array.Sort(nameUser)     Debug.WriteLine(nameUser(0))                            '結果 　あむろなえみ     Debug.WriteLine(nameUser(nameUser.GetUpperBound(0)))    '結果 　わたなべまさき     Array.Reverse(nameUser)     Debug.WriteLine(nameUser(0))                            '結果 　わたなべまさき     Debug.WriteLine(nameUser(nameUser.GetUpperBound(0)))    '結果 　あむろなえみ End Sub

２．Enumerable メソッドを使っての最大値・最小値・合計・平均等を取得

System.Linq 名前空間　Enumerable クラス　Enumerable メソッド Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'Enumerable メソッドを使っての最大値・最小値・合計・平均等を取得     'System.Linq 名前空間　Enumerable クラス　Enumerable メソッド     Dim numbers As Single() = {14, 5, 2, 10, 130, 1, 60}     Console.WriteLine("合　計 ＝ {0}", numbers.Sum)         '合　計 ＝ 222     Console.WriteLine("平均値 ＝ {0}", numbers.Average)     '平均値 ＝ 31.71428     Console.WriteLine("最大値 ＝ {0}", numbers.Max)         '最大値 ＝ 130     Console.WriteLine("最小値 ＝ {0}", numbers.Min)         '最小値 ＝ 1     Console.WriteLine("個　数 ＝ {0}", numbers.Count)       '個　数 ＝ 7 End Sub

３．Aggregate 句を使用しての最大値・最小値・合計・平均等を取得

LINQ の Aggregate 句を使用しての最大値・最小値・合計・平均等を取得 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'Aggregate 句を使用しての最大値・最小値・合計・平均等を取得     'LINQ の Aggregate 句を使用しての最大値・最小値・合計・平均等を取得     Dim numbers As Single() = {14, 5, 2, 10, 130, 1, 60}     Console.WriteLine("合　計 ＝ {0}", Aggregate cust In numbers Into Sum())        '合　計 ＝ 222     Console.WriteLine("平均値 ＝ {0}", Aggregate cust In numbers Into Average())    '平均値 ＝ 31.71428     Console.WriteLine("最大値 ＝ {0}", Aggregate cust In numbers Into Max())        '最大値 ＝ 130     Console.WriteLine("最小値 ＝ {0}", Aggregate cust In numbers Into Min())        '最小値 ＝ 1     Console.WriteLine("個　数 ＝ {0}", Aggregate cust In numbers Into Count())      '個　数 ＝ 7 End Sub

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

統合言語クエリ (LINQ: Language-Integrated Query)