Imports System
Public Class Program
Public Shared Sub Main()
Dim f1 As Single = 2.1F, f2 As Single = 2.5F, f3 As Single = 2.6F, f4 As Single = 2.9F
Console.WriteLine(Math.Floor(f1))
Console.WriteLine(Math.Floor(f2))
Console.WriteLine(Math.Floor(f3))
Console.WriteLine(Math.Floor(f4))
Dim f5 As Single = -2.1F, f6 As Single = -2.5F, f7 As Single = -2.6F, f8 As Single = -2.9F
Console.WriteLine(Math.Floor(f5))
Console.WriteLine(Math.Floor(f6))
Console.WriteLine(Math.Floor(f7))
Console.WriteLine(Math.Floor(f8))
End Sub
End Class
' run:
'
' 2
' 2
' 2
' 2
' -3
' -3
' -3
' -3
'