Module Example
Public Sub Main()
Dim numbers() As Double = {-1, 0, .105, .5, .798, 1, 4, 6.9, 10, 50, _
100, 500, 1000, Double.MaxValue}
For Each number As Double In numbers
Console.WriteLine("The natural log of {0} is {1}.", _
number, Math.Log10(number))
Next
End Sub
End Module
' The example displays the following output:
' The natural log of -1 is NaN.
' The natural log of 0 is -Infinity.
' The natural log of 0.105 is -0.978810700930062.
' The natural log of 0.5 is -0.301029995663981.
' The natural log of 0.798 is -0.0979971086492706.
' The natural log of 1 is 0.
' The natural log of 4 is 0.602059991327962.
' The natural log of 6.9 is 0.838849090737255.
' The natural log of 10 is 1.
' The natural log of 50 is 1.69897000433602.
' The natural log of 100 is 2.
' The natural log of 500 is 2.69897000433602.
' The natural log of 1000 is 3.
' The natural log of 1.79769313486232E+308 is 308.254715559917.