中小企业经营诊断及最优决策.doc

1、第 1 页 共 26 页中小企业经营诊断及最优决策改革开放二十年来，我国中小企业取得长足发展，已成为国民经济发展的重要支柱力量之一。首先，中小企业在国民经济许多行业和领域具有突出优势，发挥重要作用；而且，在安置就业方面具有大企业不可替代的作用。当前市场经济条件下，我国中小企业的经营管理正朝着现代化，国 际化的方向发展，并取得了喜人的成果。然而，由于种种原因，中小企业中经营决策靠简单的经验办事的现象仍然存在，部分企业领导者缺乏经营管理方面的系统训练也是事实。这和我国即将加入 WTO，企业经营管理要求上层次，与世界接 轨的趋势相悖。所以研究怎样提高企业的决策管理水平就愈显重要了。一、引言中小企业经

2、营诊断及最优决策这一项目正是着眼于中小企业管理决策上的几种常见弊病，并力求设计一个解决此类问题的适用软件。项目开发从最初的立项、调研，中期的学习、讨论，到后期的制作、检测、分析历时近一年。前期的 调研我们从一些企业的具体情况入手，或与之接触，谋求合作；或查阅资料，统计数据。前后历时两个月，并为以后的工作打好了良好的基础，软件的制作也能有的放矢。中期我们认真组织了学习、讨论。针对调查中发现的问题以及一些常见弊病，我们学习了解决它们的各门知识：线性规划，运筹学，风险理论，对策论，最优化理论等等。并加 强了计算机软件开发能力的学习和训练。真正为软件的开发成功打造了精良的装备。于后期的制作，我们也进行

3、了多轮的讨论。现在的软件也是我们讨论多次才逐渐定下来的，然而还不完善，仍有一些地方须认真讨论。至于测试、 打包各项工作都已陆续完成。二、内容简介我们的软件在设计、制作过程中紧紧围绕着先进的管理思想与缜密的数学理论相结合的宗旨。与同类其他的软件相比，它具有更深厚的理论内涵，且对于一般的中小企业管理决策问题的解决都有一定的指导和启发作用。下面我们将软件的具体内容作一个汇报软件的核心部分分成两大块：企业评价；企业诊治。企业评价包括杜邦财务分析法和企业破产危险预测法两个模块；企业诊治包括层次分析、风险决策、线性规划三个模块。第 2 页 共 26 页1. 杜邦财务分析在这部分的分析中，主要用了杜邦财务分

4、析的方法。杜邦财务分析方法是在对企业的偿债能力，企业资金周转状况，企业获利能力进行综合分析的基础上，按照各比率之间内在的相互制约与影响的关系串联起来，所构成的财务分析体系。具体情况见下图：从上图中我们可以看出，权益报酬率是一个综合性最高的具有代表性的财务比率，他是杜邦财务分析体系的核心和枢纽。它反映了企业财务管理的重要目标，即所有者财富最大化。而权益报酬率的形式及水平取决于资产在各个环节的运作效果。第 3 页 共 26 页进行杜邦财务分析体系的分析，便于我们发现企业财务的运作是在哪个层次的哪个环节出了问题。比如，权益报酬率未达预定目标，可能是总资产报酬率偏低或权益乘数太小或两者兼而有之；若总资

5、产报酬率不低，权益乘数太小则反映出企业财务结构过于保守，进而反映出经营者的风险及进取精神不足；若总资产报酬率为负，权益乘数过大，必会使权益报酬率负向放大。又如，总资产报酬率偏低可能是销售净利润率太低，也可能是资产周转速度太慢，若为总资产周转太慢，则可能是 资产结构不佳所致，等等。究竟是哪个层次的哪个环节出了问题，可以对照杜邦财务分析体系层层分析，找出原因并采取相应措施予以解决。2. 破产危险预测法对于一个经济效益不是很好的企业来讲，进行破产分析，及早的对企业所面临的危机有一个比较清楚的认识是十分必要的。在诸多破产分析方法中，最为简洁，又准确有效的就是阿尔特曼破产判别函数。阿尔特曼判别函数的表达

6、式为：Z=0.012X1+0.014X2+0.033X3+0.006X4+0.999X5这里，X1=流动资本/总资本X2=保留利润/总资产X3=利息及扣除税款前纯利润/总资产X4=企业持股份额的市场价值/总负债的帐簿价值X5=销售额/总资产Z=综合指数 X1 是流动资本和总资产相比所得的比率，是企 业的纯流动资产占全部还原资本的比例。流动资本是流动资产和流动负债的差额。这个比率表现了流动率和规模的特征。一旦营业损失持续下去，流动资产就变小。在流 动性比率中，这个比率最为有效。X2 是表示积累的收益力指标，从前被当作新 东西。比较年轻的企业只能表示低保留利润（法定预备金加剩余金）对总资产的比率。

7、因此用这个指标分析，可以断定年轻企业是不利的。X3 是利息和没扣除税金前的纯利润所占总资产的比例，因此他表示企业真正的生产效率。当总负债超过用资产收益力评估的资产价值引起不能支付的时候，正是企业破产的时候，所以这个比率也是表示破产的重要指标。X4 是企业持股份额 的市场价值和总负债帐簿价值的比率。企业持股份额的市场价值用普通股和优先股合并计算的股份资本的市第 4 页 共 26 页场价值来表示，负债是长短期负债合并计算。这个指标表明，负债超过资产的企业在破产前其资产价值能跌落到什么地步。用这个比率当破产指标，比纯资产对总资产的比率当破产指标更好一些，现在对破产比率的研究，不用总资产市场价值的概念

8、是一个特点。X5 是销售额对总资产的比率，表示总资产的周 转率。但在乘系数的时候，只 这个比率用次数，不带 % 。这个指标是表示企业销售力和竞争力的重要指标。Z 是最后得到的 综合指数，也是判断企业是否面临破产的最主要的参数。在长期的追踪预测结果和对结果的统计分析基础上，得出了综合指数 Z 的临界值是 2。当 Z 小于 2 时，企业面临破产的危机，Z 值越小，这种破产危机越严峻；当 Z 大于 2 时，企业经营状况良好，Z 值 越大，企 业的经营状况越良好。其中，1.81 到 2.67 之间称为交叉地带或无知地带，Z 值在这一区间的企业应对自己的经营状况进行调整，理顺各方面的矛盾问题，早日跳出灰

9、色地带（交叉地带），摆脱破产危机。3. 层次分析法层次分析法（Analytic Hierarchy Process， 简称 AHP）是一种特别适合具有复杂结构的多目标决策分析技术。它的特点是将决策问题的目标,多种层次因素及方案等的分析，构造出层次结构，结合主观判断信息作出定量分析的方案优序排列，它将决策者的思维过程实现数量化，模型化，既简化了问题的系统分析计算， 又有助于使决策者保持其思维过程的一致性。具体步骤简述如下：（1） 明确问题：要明确问题的范围，了解具体的决策目标要求，所包含的因素以及各因素间的关系，解决问题的备选方案或具体措施。同时， 对使用 AHP 是否掌握充分的信息做出判断。（

10、2）建立层次结构根据对问题的上述分析，按各因素间的关系及隶属关系， 将全部因素分成不同层次， 形成最高层次， 若干有关的中间层和最低层的多层次结构模型。最高层：表示解决问题的目的，即决策目标。中间层：表示采用某种对策或措施来实现决策目标所涉及的中间环节。 一般会有策略层，约束层，准 则层等等。最低层：表示解决问题的对策或措施。决策目标第 5 页 共 26 页（3）构造判断矩阵建立层次结构模型后， 进行逐层逐项的两两比较， 即每一层次各个元素， 针对上一 层某元素的相互重要性 给出判断评分数值，开方成判断矩阵。判断矩阵是 AHP 法的关键一步。假定 A 层中元素 aij 与下一层次 B1，B2.

11、，Bn 有联系 比较后得下面形式的判断矩阵。a k B1 B2 B3 Bn B1 b11 b12 b13 b1n B2 b21 b22 b23 b2n Bn bn1 bn2 bn3 bnn其中 bij 表示对于上层 a k 元素而言，Bi 对 Bj 的相对重要性， bij 的判断评分数值，通常 1，2，3，9 及其倒数， 其含义下表说明。准则 1 准则 2 准则 3子准则 1 子准则 2 子准则 3方案 1 方案 2 方案 3第 6 页 共 26 页评分值含 义 1 表示两因素相比， 具有同样重要性3 表示两因素相比，一个因素比另一个因素稍微重要5 表示两因素相比，一个因素比另一个因素明显重要

12、7 表示两因素相比，一个因素比另一个因素强烈重要9 表示两因素相比，一个因素比另一个因素极端重要2468上述两相邻判断的中值倒数如果因素 I 与因素 J 比较得判断 Bij，则因素 J 与因素 I 比较的判断 Bji=1/Bij（I 不等于 J）判断矩阵中的具体数值来自资料或专家意见。若只考虑只有一层标准层时Ak 方案 1 方案 2 方案 n方案 1 b11 b12 B1n方案 2 b21 b22 B2n 方案 n bn1 bn2 Bnn（4）求各因素权重的过程首先， 用两两比较矩阵来求出各方案在 a1,a k， 这 k 个方面的权重，各方案在某一方面的权重组成的列向量称作在 a i这个方面的

13、特征向量（i=1 ，2.k）第一步，先求出两两比较矩阵每一列的总和；第二步，把两两比较矩阵的每一元素除以其系相应列的总和， 所得商所组成的新矩阵称之为标准两两比较矩阵；第三步，计算标准两两矩阵的每一行的平均值，这些平均值就是各方案在 ai 方面的权重。另外， 还应求得每个标准 ai 在总的决策方案里的相对重要的程度，即要取得每个标准相对的权重，即每个标准的特征向量。方法同第 7 页 共 26 页上。（5）利用权数或特征向量求出各方案的方案优劣次序设我们在上面已经求得在 k 个方面的 k 个特征向量为 A1，A2 .AkAi=(a1i a2i ani )*aji 表示第 j 个方案在第 i 个方

14、面的权重设各个标准（方面）在总目标中所占的重要性（权数）的向量为 MM=(m1 m2 mk)* mi 为第 i 个方面的权重所以(A1，A2 .Ak)是一个 nk 阶的矩阵，M 是一个 k1 阶的矩阵。令N=(n1 n2 nk)*=AM 是一个 n1 阶的矩阵，即一个 n 维列向量其中 ni 表示第 i 个方面在 总目标中的总得分。通过比较所知，N 中最大的数对应方案便是最 优方案， 即最后的决策方案。4. 风险决策 不确定情况下的决策有一类决策问题，决策者虽然知道未来所能发生那些自然状态， 但却无法预先估计或预测各种可能状态发生的概率， 这就是未确定型决策问题。 对于这类问题， 因为没有一个

15、最好的标准（虽然已经形成了一个公认准则），而主要取决与决策者的经验和态度。这里主要介绍三种常用的方法，即：乐观法，悲观法和折衷法。a.乐观法乐观法又称最大最大准则，大中取大准则。乐观法的基本思想对客观情况的发生总是抱乐观态度，决策者从最有利的结果去考虑问题。 这种方法的决策原 则是从每一个方案找出最有利的效益值，然后在这些最有利的效益值中，选取一个效益最大的方案作为决策方案。b.悲观法悲观法又称最大最小准则，小中取大准则。悲观法的思想基础与乐观法相反， 即对客 观情况综合保持悲观态度， 决策者从最不利的角度去考虑问题。 这种方法的决策准则是从每一种方案中找出其最小的收益值，然后在这些最小的收益

16、值中，再选取一个收益值最大的方案作为决策方案。c.折衷法第 8 页 共 26 页折衷法又称乐观系数准则，或系数法。此方法为乐观准则和悲观准则之间的折衷。决策对未来发生的情况， 既不乐观也悲观， 而且，决策者根据以往经验，确定一个乐观系数 ，来 计算方案的效益值。 的取值在 0 和 1 之 间，即 01；相应的， 悲观系数就是 1。 决策中，以方案中最为乐观的效益值乘以乐观系数 ，以最悲 观的效益值乘以悲观系数 1， 两项相加，便得到 该方案的效益值。折中法的两个极端分别是乐观法和悲观法，当 =1 时， 即乐观法，而 =0 时，即是悲观法。 风险情况下的决策如果决策者不仅知道所面临的一些自然状态

17、，以及将采用的一些行动方案在各个不同的自然状态下所得的响应的收益值 ，而且，还知道这些自然状态的概率分布，但由于未来自然状态不为决策者所肯定， 仅能依据从以往经验或历史资料中了解的概率做出决策。无论做何选择都可能不如人意，要承担一定风险，故称为风险决策。这里主要介绍风险决策中常用的最大可能准则和期望准则。( 1 )最大可能准则由概率知识可知， 一个事件其概率越大， 其发生的可能性就越大， 在风险 决策中选择一个概率最大的自然状态进行决策， 置其他自然状态于不顾， 这就叫做最大可能准则。利用这个准则，实际上把风险型决策问题变成确定型决策问题。此决策应用较广， 但当在一组自然状态中， 它们发生的概

18、率相差不大，则 不宜采用此准则。( 2 )期望 值 准则期望值准则就是把每个方案在各种自然状态下的收益值看成离散型的随机变量， 我们求出每个方案的收益值的数学期望，加以比较，选取一个收益值的数学期望最大的行动方案为最优方案。5. 线性规划方法我们所采取的这种方法是一种运筹学方法。它是现代科学管理的重要手段之一，也是帮助管理者作出高效决策的一种有效方法。诸如：合理利用线材问题；配料问题；投资决策问题；产品生产计划；劳动力安排；运输问题。这些都是使决策者在一定限制条件下取得最大利益。以上的几类问题我们正是借助线性规划理论在软件中一一实现了。软件中采用了最 50 个变量，最多 50 个约束的线性规划

19、方法，从等式约束到不等式约束都能解决。比作图法，大 M 法，单纯形法更简便易用。下面我们将举例说明之：第 9 页 共 26 页水星糖果公司（Mercury Candy Company）有两家生产工厂，位于新英格兰的（1）和海湾地区的（2）。三个仓库位于东海岸（1），中西部（2）和西海岸（3）三个地区，从两家工厂向三个仓库运输产品的单位成本如表示：每个地区仓库对产品的需求在最下一行，每个工厂可提供的产品列在最右边一列，厂商希望使运费最低。东海岸（1）中西部（2）西海岸（3） 供给新英格兰的（1）20 美元 35 美元 65 美元 2000工厂 海湾地区的（2）25 美元 15 美元 50 美元

20、2500需求 2000 1500 1000我们将之归结为一个线性规划问题来处理。Minf=20x1+35x2+65x3+25x4+15x5+50x6s.t x1+x42000 x2+x51500x3+x61000 x1+x2+x32000x4+x5+x62500利用软件中的线性规划诊治方法的要求输入，即可得出最优的运输问题的方案。所得答案确实是最优解。 （见附录一图（1）线性规划方法的实现是基于单纯形法得到的，详细的算法可参见代码段中的 lp()程序段（见附录二）。软件的基本情况就是这样。三、 检测与举例在检测过程中，我们列举了杜邦财务分析的例子，以及上一部分中水星糖果公司（Mercury C

21、andy Company）的例子以及管理运筹学中的线性规划的实例。结果都令人非常满意。 为了更好的检测软件的性能，这里我们对一个具体的案例进行分析说明。第 10 页 共 26 页在吉林市水泥管厂主管会计师的帮助下，我们对该厂 1999 年和2000 年的财务情况进行了杜邦财务分析。具体情况如下：从该企业 2000 年的“资产负债表”和“利润及利润分配表”中可以找到该企业 1999 年和 2000 年的部分情况。该企业 1999 年的销售收入为 3,362,432.75 元，总成本为3,139,582.97 元，税后净利润为 222,849.78 元，流动资产为47,265,264.39 元，固

22、定资产为 24,443,250.75 元，资产总额为72,956,531.07 元，所有者权益为 11,942,911.67。在根据上图所示的关系可以算出所需各量的大小，如附录一图（2）所示：我们同样可知该企业 2000 年的销售收入为 5,576,954.04 元，总成本为 5,393,523.02 元，税后净利润为 183,431.02 元，流动资产为53,908,135.02 元，固定资产为 25,210,264.28 元，资产总额为80,372,964.23 元，所有者权益为 11,876,622.05。在根据上图所示的关系可以算出所需各量的大小，如附录一图（3）所示：从两图中的数据来

23、分析，总体来说，2000 年的财务状况比照1999 年有所下降。2000 年的资产总额和销售收入相对于 1999 年有所上升，但税后净利润有所下降。并因此造成销售净利润的显著下降。虽然销售收入和资产总额都有所上升，但销售收入的增长速度大于资产总额的增长速度，使得总资产周转率的上升，这说明该企业的决策者不满足于现状，开拓进取精神十分可嘉。但是总资产周转率的增长不及销售净利润下降来的快，所以总资产的报酬率比前一年有所下降，并最终导致权益报酬率这个综合指数的下降。从上述分析可知，虽然该企业的决策者大胆创新，努力开拓，但所取得的效果并不尽人意，所以应该考虑自身能力的加强。由于相关知识的缺乏和经验的不足

24、，我们的软件中还有这样那样的缺点，譬如界面不够友好，容错能力有待加强等，这同时也暴露出我们缺乏经验的一面。对于这些缺点我们会在后期的完善工作中注意改善。就此本项目的工作就基本汇报完毕了，由于个人的课业负担，我们投入到立项上的精力是有限的，同时也由于水平有限，这其中的疏漏和错误在所难免，在这里，我们真诚地恳请老师、同行们不吝指教。您提出的批评和意见，不仅会使我们将受益非浅，更是鞭策我们继续前进的动力。最后，衷心感谢焦宝聪老师，高蓉老师在理论上的悉心指导，工作上的支持帮助！四、参考书目第 11 页 共 26 页1. 韩伯棠编著， 管理运筹学， 北京：高等教育出版社， 20002. 郭仲伟编著， 风

25、险分析与决策，北京：机械工业出版社，19873. （加）钟彼德（Peter C. Bell）著 韩伯棠等 译， 管理科学（运筹学）战略角度的审视，北京：机械工业出版社，20004. （美）詹姆斯 R.麦圭根(James R. McGuigan) R.查尔.莫耶(R.Charles Moyer) 弗雷德里克 H.B.哈里斯(Frederick H. DeB.Harris)著，李国津等译，管理经济学应用、战略与策略，北京：机械工业出版社，20005. 胡玉立 李东贤等编著，市场预测与管理决策，修订本，北京：中国人民大学出版社， 19976. 李宝三主编，企业资源配置学习管理经济学，北京：企业管理出

26、版社，19997. 佳文工作室，VISUAL BASIC 6.0 编程实例教程，北京：电子工业出版社，20018. 吴献东著，企业改造、再生对策初探，北京：国防工业出版社，19959. 刘翼生 刘伊伟 王书成主编，中小企 业经营战略，北京：中国人民大学出版社，199910. 日 末松玄六著，王耀华，李桂香，张钦先，袁守启译，中小企业经营战略，北京，中国经济出版社， 1988附录一第 12 页 共 26 页图（1）第 13 页 共 26 页第 14 页 共 26 页线性规划的核心程序 l p（）：Public Sub lp()Dim strt, strm As StringDim YDim Co

27、ntrolY = 0Control = 30E = 0.00001For i = 1 To NnA0(1, i) = -Pp * A0(1, i)Next iIf mm = 1 Then GoTo 165For i = 2 To mm + 1A0(i, mm + Nn + 1) = A0(i, Nn + 2)A0(i, Nn + 2) = 0If i = 2 Then GoTo 160A0(i, Nn + i - 1) = A0(i, Nn + 1)A0(i, Nn + 1) = 0160: Next i165: R = 1第 15 页 共 26 页For i = 2 To mm + 1L0(

28、i) = Nn + i - 1If A0(i, Nn + i - 1) = 1 Then GoTo 210L0(i) = mm + Nn + 1For j = 1 To Nn + mmA0(mm + 2, j) = A0(mm + 2, j) - A0(i, j)Next jR = mm + 2210: Next i215: t = 1220: For i = 2 To mm + NnIf A0(R, i) - A0(R, t) E Then GoTo 250If A0(R, i) - A0(R, t) -E Then GoTo 250245: t = i250: Next iIf A0(R,

29、 t) E Then GoTo 290Next iR = 1GoTo 215290: For i = 2 To mm + 1If L0(i) E Then GoTo 425305: Next iGoTo 445315: s = 1For i = 2 To mm + 1If A0(i, t) = A0(s, mm + Nn + 1) / A0(s, t) Then GoTo 350345: s = i350: Next iIf s = 1 Then GoTo 435L0(s) = tY = A0(s, t)第 17 页 共 26 页For i = 1 To mm + Nn + 1A0(s, i)

30、 = A0(s, i) / YNext iFor i = 1 To mm + 2If i = s Then GoTo 415Y = A0(i, t)For j = 1 To mm + Nn + 1A0(i, j) = A0(i, j) - Y * A0(s, j)Next j415: Next iGoTo 215425: form14.Text1.text = “无解“GoTo 2000435: form14.Text1.text = “无界“440: GoTo 2000445: For i = 2 To mm + 1If L0(i) Nn Then GoTo 465s = L0(i)X0(s

31、) = A0(i, mm + Nn + 1)465: Next i第 18 页 共 26 页Y = Pp * A0(1, mm + Nn + 1)form14.Text1.text = “最优目标函数值=“ + Str(Y)For i = 1 To Nnstrqq = strqq + “x(“ + Str(i) + “ )=“ + Str(X0(i) + “ “Next istrt = “最优解为:“ + strqqPrintor = “For i = 1 To Len(strt)If i Mod Control = 0 And (Len(strt) - i) = (Len(strt) Mod

32、 Control) Thenstrm = Mid(strt, (i - Control + 1), Control)Printor = Printor + Chr(10) + Chr(13) + strmstrm = “End IfNext iPrintor = Printor + Right(strt, (Len(strt) Mod Control)form14.Text2.text = Printor第 19 页 共 26 页2000: Exit SubEnd Sub层次分析法程序 ：Private Sub Command1_Click()Dim num As IntegerDim num

33、0, num1, num2 As Doublestrline = “fly1 = 1On Error Resume NextFor i = 1 To List_nFor j = 1 To List_nText3(i - 1) * List_n + j).Enabled = TrueNext jNext iFor i = 1 To List_nFor j = i To List_nIf i = j ThenText3(i - 1) * List_n + j).text = “ 1“Else第 20 页 共 26 页num = 1num1 = 1num2 = 1num = InStr(num, T

34、ext3(i - 1) * List_n + j).text, “/“)If num 1 ThenExit Sub第 21 页 共 26 页End IfCall caculation(Combo1.ListIndex + 1, List_n, Text3)If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Thenh = MsgBox(“重新输入新数据吗？“, 3)Select Case hCase 1GoTo opCase 2Exit SubCase 7Exit SubEnd SelectEnd Ifop: Selected(Co

35、mbo1.ListIndex + 1) = Combo1.ListIndex + 1Call check结果说明For i = 1 To List_nNext i第 22 页 共 26 页If fly1 = 1 And fly2 = 1 ThenCommand1.Enabled = FalseCommand2.Enabled = FalseFor i = 1 To List_nftoa(i) = 0For j = 1 To List_mftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)Next jstrline = strline + Str(ftoa(i) +

36、 “ “Next ij = MsgBox(“各方案对目标的权数为：“ + Chr(10) + Chr(13) + strline, 64, “结论“)End IfFor i = 1 To List_nFor j = 1 To List_nText3(i - 1) * List_n + j).Visible = TrueText3(i - 1) * List_n + j).text = “If i j Or i = j Then第 23 页 共 26 页Text3(i - 1) * List_n + j).Enabled = FalseText3(i - 1) * List_n + j).Bac

37、kColor = &H868754End IfNext jNext iEnd Sub项目中的公用程序 ：Function Max_t(A() As Single, sum As Integer, u As Boolean) As SingleDim i, son As IntegerDim maxsum As Singlemaxsum = A(1)son = 1For i = 2 To sumIf A(i) maxsum Thenmaxsum = A(i)son = i第 24 页 共 26 页End IfNext iIf u = True ThenMax_t = maxsumElseMax_

38、t = sonEnd IfEnd FunctionFunction Min_t(A() As Single, sum As Integer, u As Boolean) As SingleDim i, son As IntegerDim minsum As Singleminsum = A(1)son = 1For i = 2 To sumIf A(i) minsum Thenminsum = A(i)son = iEnd IfNext i第 25 页 共 26 页If u = True ThenMin_t = minsumElseMin_t = sonEnd IfEnd FunctionPu

39、blic Sub caculation(Indexcase As Integer, list As Variant, N As Object)Dim tt(7) As DoubleFor i = 1 To listFor j = 1 To listAllsum(i - 1) * list + j) = Val(N(i - 1) * list + j).text)Next jNext icircular on lowFor i = 1 To listtt(i) = 0circular on lineFor j = 1 To list第 26 页 共 26 页tt(i) = tt(i) + Allsum(j - 1) * list + i)Next jFor j = 1 To listAllsum(j - 1) * list + i) = Allsum(j - 1) * list + i) / tt(i)Next jNext iFor i = 1 To listtt(i) = 0For j = 1 To listtt(i) = tt(i) + Allsum(i - 1) * list + j)Next jAAs(Indexcase, i) = tt(i) / listNext iEnd Sub