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