| 查看: 386 | 回复: 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 ] |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有8人回复
-
萌生出自己或许不适合搞科研的想法，现在跑or等等看？
已经有4人回复
-
Materials Today Chemistry审稿周期
已经有4人回复
-
参与限项
已经有3人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2010-05-05 12:16:43
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
3楼2010-05-06 09:39:27