vb求50以内自然数对

Private Sub Button8_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button8Click
        Dim a As Double
        Dim s As String = ""
        For i = 1 To 50
            a = MathLog(i)
            s = s & i & "的自然对数是" & aToString & vbCrLf
        Next
        TextBox6Text = sToString
    End Sub

运行结果：

1的自然对数是0
2的自然对数是0693147180559945
3的自然对数是109861228866811
4的自然对数是138629436111989
5的自然对数是16094379124341
6的自然对数是179175946922805
7的自然对数是194591014905531
8的自然对数是207944154167984
9的自然对数是219722457733622
10的自然对数是230258509299405
11的自然对数是239789527279837
12的自然对数是2484906649788
13的自然对数是256494935746154
14的自然对数是263905732961526
15的自然对数是270805020110221
16的自然对数是277258872223978
17的自然对数是283321334405622
18的自然对数是289037175789616
19的自然对数是294443897916644
20的自然对数是299573227355399
21的自然对数是304452243772342
22的自然对数是309104245335832
23的自然对数是313549421592915
24的自然对数是317805383034795
25的自然对数是32188758248682
26的自然对数是325809653802148
27的自然对数是329583686600433
28的自然对数是33322045101752
29的自然对数是336729582998647
30的自然对数是340119738166216
31的自然对数是343398720448515
32的自然对数是346573590279973
33的自然对数是349650756146648
34的自然对数是352636052461616
35的自然对数是355534806148941
36的自然对数是358351893845611
37的自然对数是361091791264422
38的自然对数是363758615972639
39的自然对数是366356164612965
40的自然对数是368887945411394
41的自然对数是371357206670431
42的自然对数是373766961828337
43的自然对数是376120011569356
44的自然对数是378418963391826
45的自然对数是380666248977032
46的自然对数是38286413964891
47的自然对数是385014760171006
48的自然对数是387120101090789
49的自然对数是389182029811063
50的自然对数是391202300542815

你要的代码来了,已经验证OK!!!
Private Sub Command1_Click()
Dim A, B, N
A = Val(Text1Text)
B = Val(Text2Text)
N = Log(B) / Log(A)
MsgBox N
End Sub
输入数据时一定要注意,1的对数为0,除数不能为0,等等的问题!!

Private
Sub
Form_Click()
K
=
((0366

Q)
/
(M

s))

lg((10

s

Sqr(K))
/
r)
Print
K
End
Sub
把Q,M,S,R改为要用的数，然后运行，点鼠标左键，结果就出来了。

直接使用 log(x)
以常数e为底数的对数叫做自然对数，记作lnN(N>0)。
VB,Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

---