vb怎么求以10为底的对数?

来源：百度知道 编辑：UC知道 时间：2024/05/21 20:54:52
vb怎么求以10为底的对数?
真纳闷,这小问题都弄糊涂了,下面还有什么不妥吗?
If Val(Text1.Text) > 0 Then
Label1(6).Caption = Text1.Text & "的常用对数" & "=" & Log(Val(Text1.Text)) / (Log10)
Else
Label1(6).Caption = "负数和0没有常用对数！"
End If

奇怪:就是要这样:
If Val(Text1.Text) > 0 Then
Label1(6).Caption = Text1.Text & "的常用对数" & "=" & Log(Val(Text1.Text)) / (Log(10))
Else
Label1(6).Caption = "负数和0没有常用对数！"
End If

Option Explicit

Private Sub Command1_Click()
Print Log(？) / Log(10) '把？换成你要求的数字
End Sub

Log 啊……如果要求 10 为底的，log（X）÷log（10）好像是来着，2008 直接可以求 10 为底的了