Math.Absメソッド [VB 2010]

絶対値を求める

Math.Absメソッドは引数の絶対値を返します。

  Math.Abs(3)       '  3
  Math.Abs(-3)      '  3
  Math.Abs(12.5)    ' 12.5
  Math.Abs(-12.5)   ' 12.5
  Math.Abs(0)       '  0

Math.Absメソッドを使ったサンプルプログラムを作成します。 0を入力したら、プログラムが終了します。

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim inStr As String
        Dim inNum As Double
        Dim ans As Double
        Do
          Console.WriteLine("*** 数値を入力してください ***")
          ' キーボードから入力
          inStr = Console.ReadLine()
          ' 入力した文字列を数値に変換
          inNum = Double.Parse(inStr)
          ' Math.Abs関数を使う
          Dim kekka As String
          ans = Math.Abs(inNum)
          kekka = "Math.Abs(" & inNum & ") = " & ans
          Console.WriteLine(kekka)
          If inNum = 0 Then
              ' 0を入力したら、Exit Doで、Loopを抜ける
              Exit Do
          End If
        Loop
    End Sub

End Module

• Mathメソッド