| 查看: 432 | 回复: 2 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】如何让结果出现在excel的不同列【已完成】 已有2人参与
|
|||
|
恳请高手指教： 各位大侠：小弟编写了一个牛顿迭代的VB代码，但发现结果都出现在excel的第一列，能否请大侠指教一下，如何让计算结果出现在不同的列？谢谢！代码如下： Private Sub Command1_Click() Open "C:\Users\aoiw\Desktop\12.xls" For Output As #1 Dim xb As Double, x As Single, x1 As Single Dim f As Single, f1 As Single For xb = 0.04 To 0.201 Step 0.001 x = 0 Do x1 = x f = (32 * xb + 8) * x ^ 3 - (216 * xb + 34) * x ^ 2 + (432 * xb + 28) * x - 250 * xb f1 = (96 * xb + 24) * x ^ 2 - (432 * xb + 68) * x + 432 * xb + 28 x = x1 - f / f1 Loop Until (Abs(x - x1) < 0.00001) a = 1 / (x - xb) a = Round(a, 4) Print #1, xb; a Next xb Close #1 End Sub [ Last edited by wangen994 on 2010-5-6 at 13:02 ] |
回复此楼» 猜你喜欢
307中医考研调剂
已经有6人回复
-
294求调剂
已经有12人回复
-
0831生医工第一轮调剂失败求助
已经有17人回复
-
291求调剂
已经有11人回复
-
297，工科调剂?河南农业大学本科
已经有14人回复
-
0854求调剂
已经有20人回复
-
26药学专硕105500求调剂
已经有7人回复
-
一志愿华中农业071010，320求调剂
已经有15人回复
-
2026 WR青拔
已经有7人回复
-
一志愿中科大材料与化工，353分还有调剂学校吗
已经有9人回复
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
3楼2010-05-06 09:39:27
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2010-05-05 12:16:43
