[已解决]数组里循环求最大值和最小值和次数

放浪形骸

xdwy81129 发表于 2011-1-22 23:33
因为我的数据在数组里面所以for i= 1 to 这样的我可以直接用

晕，这样就会变复杂了，效率不高的。
把

1. 
   
2. 修改成：
   
3. 
   
4. For i = 1 to 200
   
5. set tmp = cells(i,1)
   
6. if i = 1 then
   
7. iMax = Cells(1, 1).Value
   
8. iMin = iMax
   
9. cMax = 1
   
10. cMin = 1
    
11. end if

复制代码

放浪形骸

xdwy81129 发表于 2011-1-22 23:38
回复 放浪形骸 的帖子

测试了，结果不正确

没有把最小值 一开始设置成0啊
是把第一个单元格的内容同时设置成最大和最小值
然后如果出现比最大值大的数，那就取代这个最大值
如果出现比最小值小的数，那就取代这个最小值

xdwy81129

回复 放浪形骸 的帖子

就是没有出现比开始设定的最小值了，所以没有测试正确

我还在研究你的代码逻辑来应用到for i = 1 to 的循环了

轩辕轼轲

{:101:}我直接看答案哈

xdwy81129

回复 轩辕轼轲 的帖子

还没有好的现成的答案了

怎么也来了个夜猫子！！！

轩辕轼轲

{:101:}雷锋勋章啊。厉害

放浪形骸

xdwy81129 发表于 2011-1-22 23:56
回复 放浪形骸 的帖子

就是没有出现比开始设定的最小值了，所以没有测试正确

你给下数据看下？
哦，我猜可能是iMax，iMin这两个变量你把他设置成double看看好了。

放浪形骸

楼主给下你的测试数据吧。。。

xdwy81129

回复 放浪形骸 的帖子

啊， 我还认为这种数据很好自己添加了的

就是求这个表里面的各列的最大值和最小值

放浪形骸

xdwy81129 发表于 2011-1-23 19:22
回复 放浪形骸 的帖子

啊， 我还认为这种数据很好自己添加了的

你用的数据有小数？
我测试整数是没有问题的。