絶対値 Math.Absメソッド [VB]

Visual Basic 文法[2015 2013 2012]

絶対値を求める

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メソッドサンプルプログラム

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)
          ' 0を入力したら Exit Do でLoopを抜ける

          If inNum = 0 Then
              Exit Do
          End If
      Loop
  End Sub

End Module