Imports System
Public Class Program
Public Shared Sub Main()
Dim result As Double = Math.Sinh(1)
System.Console.WriteLine("Sinh(1) = " & result)
result = Math.Sinh(0)
System.Console.WriteLine("Sinh(0) = " & result)
result = Math.Sinh(90)
System.Console.WriteLine("Sinh(90) = " & result)
result = Math.Sinh(Double.PositiveInfinity)
System.Console.WriteLine("Sinh(∞) = " & result)
End Sub
End Class
' run:
'
' Sinh(1) = 1.1752011936438
' Sinh(0) = 0
' Sinh(90) = 6.1020164715892E+38
' Sinh(∞) = ∞
'