Int関数のサンプル

Int関数を使った簡単なサンプルプログラムを作成します。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

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

End Module

Int関数で代入する場合、左辺と右辺のデータ型が違う時は、型変換関数で右辺のデータ型を左辺のデータ型に変換してから代入します。次の例では、CInt 関数で整数に変換しています。

  Dim inNum As Double
  Dim anser As Integer

  anser = CInt(Int(inNum))