| 查看: 412 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿西安交通大学材料工程专业 282分求调剂
已经有11人回复
-
269专硕求调剂
已经有3人回复
-
资源与环境 调剂申请(333分)
已经有3人回复
-
材料求调剂
已经有5人回复
-
354求调剂
已经有9人回复
-
化学工程321分求调剂
已经有22人回复
-
考研调剂
已经有3人回复
-
326求调剂
已经有8人回复
-
333求调剂
已经有7人回复
-
一志愿东华大学控制学硕320求调剂
已经有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
40