如何解方程?

可以采用试算法，比如下面有个求根的例子，我刚才写的，采用二分法：

Option Explicit
Private Sub Form_Load()
Show
Dim i As Integer
Dim A, B As Double
Dim E As Double
Dim R, tR As Double
A = 0: B = 6 '初始化平方根
R = 6 / 2: tR = 6
E = 1 '初始化精度
Do While E > 10 ^ (-10)
'二分法求6平方根，也就是A^2=6，求A
tR = R '保留原始值
'二分
If R ^ 2 > 6 Then
B = R '更新上限，一定要先更新
R = (A + R) / 2
ElseIf R ^ 2 < 6 Then
A = R '更新下限
R = (B + R) / 2
End If
E = Abs(tR - R)
Loop
Print R '这是算法
Print 6 ^ 0.5 '这是VB自己算的
End Sub

利用一个API函数

什么啊.说清楚啊!...

什么方程么...无聊

nnnnnnn