| 查看: 549 | 回复: 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 ] |
回复此楼» 猜你喜欢
国社科又开始会评了，不知道这次命运如何
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有8人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有8人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
找导师
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有7人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有9人回复
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
10