vb绘制一次、二次、对数、幂函数图形的代码，各位帮帮忙啊~~~

Private Sub Command1_Click()

'直线 y=2x

For x = -50 To 50 Step 05

y = 2 x

Picture1PSet (x, y)

Next

End Sub

Private Sub Command2_Click()

'y=2x^2-3x-20

For x = -50 To 50 Step 005

y = 02 x ^ 2 - 5 x - 20

Picture1PSet (x, y)

Next

End Sub

Private Sub Command3_Click()

'y=ln(x)

For x = 00001 To 1 Step 00001

y = 2 Log(x)

Picture1PSet (x, y)

Next

For x = 1 To 100 Step 001

y = 2 Log(x)

Picture1PSet (x, y)

Next

End Sub

Private Sub Command4_Click()

'y=12^x

For x = -100 To 50 Step 001

y = 12 ^ x

Picture1PSet (x, y)

Next

End Sub

Private Sub Command5_Click()

Picture1Cls

Picture1Line (-100, 0)-(100, 0), vbRed

Picture1Line (0, 100)-(0, -100), vbRed

End Sub

Private Sub Form_Load()

Picture1Scale (-100, 100)-(100, -100)

'画坐标系

Picture1Line (-100, 0)-(100, 0), vbRed

Picture1Line (0, 100)-(0, -100), vbRed

End Sub

f(x)=lnx=log(e)x,(e>1),对数函数

定义域x>O,值域f∈R

函数f在(0,十∞)单增

有如下性质

ln(ab)=lna+lnb

ln(a/b)=lna一lnb

lna^b=blna

lna=lga/lge

而f(x)'=1/x

望采纳，如果有具体的题可以列出。

自然对数：ln（b）=logeb（e为底数），以常数e为底数的对数叫做自然对数，记作lnN(N>0)。

常数e的含义是单位时间内，持续的翻倍增长所能达到的极限值。 

自然对数的底e是由一个重要极限给出的。我们定义：当n趋于无穷大时，

e是一个无限不循环小数，其值约等于2718281828459…，它是一个超越数。

扩展资料

相关公式：

ln(MN)=lnM +lnN

ln(M/N)=lnM-lnN

ln（M^n)=nlnM

e是连续增长系统的极限增量，e让你得到那些一纳秒增长一点点的复合增长的极限结果。他说明了无论那种系统的增长都是以连续的指数的形式增长的。如人口、反射性衰变等等都是用e来表示出来的。

e也是所有增长系统的单位增量。这就像每一个数字都可以用一个单位数字1来表示，每一段线段都可以用一个单位线段来表示，每一个系统增量都可以用一个单位增量e来表示。

-对数函数

-自然对数