Math.Minメソッド [VB 2010]

2数値の小さいほうの値を求める

Math.Minメソッドでは、三つ以上の数値の最小値は求めることができません。

第1引数と第2引数の数値型は同じ型にします。

  Dim x As Integer = 12
  Dim y As Integer = 5
  Console.WriteLine(Math.Min(x, y))    ' 5

Math.Minメソッドを使ったサンプルプログラムです。Math.Minの戻り値も引数と同じ数値型にします。

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim inStr As String
        Dim inNum1 As Integer = 0
        Dim inNum2 As Integer = 0
        Dim ans As Integer = 0
        Do
            Console.WriteLine("endを入力すると終了します")
            ' キーボードから入力
            Console.WriteLine("1番目の整数を入力してください")
            inStr = Console.ReadLine()
            If inStr = "end" Then
                ' endを入力したら、Exit Doで、Loopを抜ける
                Exit Do
            End If
            ' 入力した文字列を数値に変換
            inNum1 = Integer.Parse(inStr)
            Console.WriteLine("2番目の整数を入力してください")
            inStr = Console.ReadLine()
            ' 入力した文字列を数値に変換
            inNum2 = Integer.Parse(inStr)
            ' Math.Minを使って数値の大小を判定
            ans = Math.Min(inNum1, inNum2)
            Console.WriteLine("小さいほうは、" & ans)
            Console.WriteLine()
        Loop

    End Sub

End Module

• Mathメソッド（関数）
• VB標準関数