code184a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 13 行

Public Function Log10(ByVal Value As Double) As Double 
  If Value = 0 Then
    Log10 = 0
  Else
    Log10 = Log(Value) / Log(10#)
  End If
End Function

Public Sub Main()
  Debug.Print "Log10 of 100 is ", log10(100.0)
  Debug.Print "Log10 of 10000 is ", log10(10000.0)
End Sub