| 查看: 522 | 回复: 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 ] |
回复此楼» 猜你喜欢
面上提前没消息，有中的吗
已经有16人回复
-
面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！
已经有25人回复
-
2026年国自然面上资助率
已经有22人回复
-
基础研究怎么拉横向，学校到款任务越来越多，难以完成 拉横向，都有哪些途径啊
已经有12人回复
-
这种情况还有戏吗
已经有12人回复
-
微信指数没变化，科研之友没阅读
已经有19人回复
-
准备明年的基金了
已经有7人回复
-
2027年申博
已经有3人回复
-
一个有机合成实验室都需要哪些设备？
已经有7人回复
-
HXDI做水性聚氨酯乳液，是不是特别容易出渣
已经有3人回复
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