用vba求方程的解

联想

如何用vba求方程x^3+x^2+x=100的解

我是哈哈

发些非VBA题让咱也赚点BB吧[em02]

legend_chen

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>我是哈哈</i>在2008-2-29 14:19:00的发言：</b><br/>发些非VBA题让咱也赚点BB吧[em02]</div><p>那你就用非vba的方法做这题吧.</p>

我是哈哈

<p>可是没有BB呀，</p><p>用单变量求解工具。</p>

suye1010

<p>这个要用到迭代了吧，我想……应该设置个精度才好……</p><p>Sub jiefangcheng()<br/>Dim i As Single, k As Single<br/>For i = 4.25 To 4.27 Step 0.000001<br/>&nbsp;If i ^ 3 + i ^ 2 + i &lt;= 100 Then<br/>&nbsp;&nbsp;&nbsp; k = i<br/>&nbsp;Else<br/>&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;End If<br/>Next i<br/>MsgBox k<br/>End Sub</p>

[此贴子已经被作者于2008-2-29 21:59:07编辑过]

一剑惊心

非要用VBA?

legend_chen

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>suye1010</i>在2008-2-29 21:18:00的发言：</b><br/><p>这个要用到迭代了吧，我想……应该设置个精度才好……</p><p>Sub jiefangcheng()<br/>Dim i As Single, k As Single<br/>For i = 4.25 To 4.27 Step 0.000001<br/>&nbsp;If i ^ 3 + i ^ 2 + i &lt;= 100 Then<br/>&nbsp;&nbsp;&nbsp; k = i<br/>&nbsp;Else<br/>&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;End If<br/>Next i<br/>MsgBox k<br/>End Sub</p><br/></div><p></p><p>4.25-4.27好小的范围啊,估计数学不好,很难猜到啊.</p><p>是要有个精度的.</p>

guideming

学习啦