如何优化缩减自定义函数的代码长度?（详细查看附件）

=INDEX（）

1. Function XDMS(Arr As Variant)
   
2. Dim c1, c2, f7 As Single
   
3. c1 = 0
   
4. For i = 1 To 8
   
5. c1 = c1 + Arr(i)
   
6. Next
   
7. c2 = 0
   
8. For i = 9 To 16
   
9. c2 = c2 + Arr(i)
   
10. Next
    
11. b1 = Arr(1) / c1
    
12. b2 = (Arr(2) / c1) + b1
    
13. b3 = (Arr(3) / c1) + b2
    
14. b4 = (Arr(4) / c1) + b3
    
15. b5 = (Arr(5) / c1) + b4
    
16. b6 = (Arr(6) / c1) + b5
    
17. c3 = (b2 + b3 + b4 + b5 + b6) * 100
    
18. c4 = (5 * b1) * 100
    
19. c5 = (1 - b1) * 100
    
20. c6 = (c3 - c4) / c5
    
21. e1 = Arr(9) / c2
    
22. e2 = (Arr(10) / c2) + e1
    
23. e3 = (Arr(11) / c2) + e2
    
24. e4 = (Arr(12) / c2) + e3
    
25. e5 = (Arr(13) / c2) + e4
    
26. e6 = (Arr(14) / c2) + e5
    
27. f3 = (e2 + e3 + e4 + e5 + e6) * 100
    
28. f4 = (5 * e1) * 100
    
29. f5 = (1 - e1) * 100
    
30. f6 = (f3 - f4) / f5
    
31. f7 = (c6 + f6) / 2
    
32. XDMS = f7
    
33. End Function

复制代码

这是一段求细度模数的自定义函数，感觉代码太过于冗长了。

蓝桥玄霜

没有相应的附件，怎么判断代码是否长了？何况代码长短也不能说明什么。

=INDEX（）

蓝桥玄霜 发表于 2018-6-23 09:45
没有相应的附件，怎么判断代码是否长了？何况代码长短也不能说明什么。

附件已上传，麻烦老师看看代码在模块5里面

yaojil

只优化了XDMS，自行取舍测试