[已解决]为何两段代码处理差异

隐身 · 发表于 2012-5-3 17:43

本帖最后由隐身于 2012-5-3 21:39 编辑

Sub 代码一()

For i = 1.13 To 1.1 Step -0.01
'求1.13到1.10的所有数据之和、平均值，步长为0.01，例如1.13+1.12+1.11+1.10就为总和，平均值为总和/个数=4.46/4=1.115

fu = fu + i
j = j + 1
Next
MsgBox fu + i
MsgBox j + 1
MsgBox "平均" & (fu + i) / (j + 1)
End Sub

Sub 代码二()
'求1.110到1.108之间数据的总和、平均值，步长为0.001，总和=1.110+1.109+1.108=3.327，平均值为3.327/3=1.109

For i = 1.11 To 1.108 Step -0.001
fu = fu + i
j = j + 1
Next
MsgBox fu
MsgBox j
MsgBox "平均" & fu/ j
End Sub

两段代码的目的相同、类似，但是要求得正确结果，代码2得修改后面的求和、平均值计算式子，

代码1的平均值式子为 (fu + i) / (j + 1)

代码2的平均值式子为 fu/j

为何两段代码不能用同样的式子求准确结果。

最佳答案

月排行榜 / 总排行榜

wayy

2012-5-4 09:36

本帖最后由 wayy 于 2012-5-4 09:38 编辑

Sub 代码一()
For x = 1.13 To 1.1 Step -0.01
'求1.13到1.10的所有数据之和、平均值，步长为0.01，例如1.13+1.12+1.11+1.10就为总和，平均值为总和/个数=4.46/4=1.115
fu = fu + x
j = j + 1
x = Round(x, 2)
Next
MsgBox fu
MsgBox j
MsgBox "平均" & fu / j
End Sub

复制代码

其实代码2是正确的，代码1是因为小数点的原因导致的不能进行最后一次循环，加一行代码 x = Round(x, 2) 就可以了。

跳转到最佳答案楼层

Select · 发表于 2012-5-3 18:09

为何两段代码得分表修改结果才是正确的呢？

这句子是不是有错字，不明白{:031:}

隐身 · 发表于 2012-5-3 19:03

Select 发表于 2012-5-3 18:09
为何两段代码得分表修改结果才是正确的呢？

这句子是不是有错字，不明白

这两段代码的作用是分别按指定步长求数据区间的总和、平均值

飞天小猪 · 发表于 2012-5-3 19:08

你说的话是什么意思，没怎么看明白

隐身 · 发表于 2012-5-3 21:39

飞天小猪发表于 2012-5-3 19:08
你说的话是什么意思，没怎么看明白

已补充说明，麻烦看看

无聊的疯子 · 发表于 2012-5-4 09:08

一般在循环的时候都不采用小数做为步长,主要考虑到运算精度的问题

Sub C()
For I = 113 To 110 Step -1
fu = fu + I / 100
j = j + 1
Next
MsgBox "总数: " & fu & " 个数是: " & j & " 平均数是: " & fu / j
End Sub
Sub C1()
For I = 1110 To 1108 Step -1
fu = fu + I / 1000
j = j + 1
Next
MsgBox "总数: " & fu & " 个数是: " & j & " 平均数是: " & fu / j
End Sub

复制代码

wayy · 发表于 2012-5-4 09:36

本帖最后由 wayy 于 2012-5-4 09:38 编辑

Sub 代码一()
For x = 1.13 To 1.1 Step -0.01
'求1.13到1.10的所有数据之和、平均值，步长为0.01，例如1.13+1.12+1.11+1.10就为总和，平均值为总和/个数=4.46/4=1.115
fu = fu + x
j = j + 1
x = Round(x, 2)
Next
MsgBox fu
MsgBox j
MsgBox "平均" & fu / j
End Sub

复制代码

其实代码2是正确的，代码1是因为小数点的原因导致的不能进行最后一次循环，加一行代码 x = Round(x, 2) 就可以了。

		自动登录	找回密码
密码			注册

[已解决]为何两段代码处理差异

相关帖子