Question

VB要用到LOG函数时,怎么写语句?

要计算n=lg（2）/lg(1+r)

Answer 1

'e为底的对数函数
Private Sub Command18_Click()
FunNum = 0
If Nflag = True Then
a = Val(s)
a = Log(a)
Call datachang(a)
s = Trim(Str(a))
End If
End Sub
'10为底的对数函数
Private Sub Command21_Click()
FunNum = 0
If Nflag = True Then
a = Val(s)
a = Log(a) / Log(10)
Call datachang(a)
s = Trim(Str(a))
End If
End Sub

Answer 2

n=log(2)/log(1+r)

追问

这样的话就是未声明log

追答

返回一个 Double，指定参数的自然对数值。

语法

Log(number)

必要的 number 参数是 Double 或任何有效的大于 0 的数值表达式。

说明

自然对数是以 e 为底的对数。常数 e 的值大约是 2.718282。

如下所示，将 x 的自然对数值除以 n 的自然对数值，就可以对任意底 n 来计算数值 x 的对数值：

Logn(x) = Log(x) / Log(n)

下面的示例说明如何编写一个函数来求以 10 为底的对数值：

Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function