vb System.Math.Log10类(方法)实例源码

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 base 10 log of {0} is {1}.", _
                           number, Math.Log10(number))
      Next
   End Sub
End Module