Imports System
Public Class Program
Public Shared Sub Main()
Dim f1 As Single = 1.1F, f2 As Single = 1.5F, f3 As Single = 1.6F, f4 As Single = 1.9F, f5 As Single = 0.01F
Console.WriteLine(Math.Floor(f1))
Console.WriteLine(Math.Floor(f2))
Console.WriteLine(Math.Floor(f3))
Console.WriteLine(Math.Floor(f4))
Console.WriteLine(Math.Floor(f5))
End Sub
End Class
' run:
'
' 1
' 1
' 1
' 1
' 0
'