可拓策略生成的vba程序设计new

《可拓策略生成的vba程序设计new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、维普资讯http://www.cqvip.com第23卷第3期吉林化工学院学报V01．23No．32006年6月j0URNA1OFJ1I．ININSTITUTE0FCHEMICALTECHNOLOGYJun．2006文章编号：1007．2853(2006)03—0077．04可拓策略生成的VBA程序设计陈巨龙，罗传义2，孙吉逊(1．吉林化工学院数学系，吉林吉林132022；2．吉林化工学院化学工程系．吉林吉林132022；3．中油设计总公司东北分公司，吉林吉林132022)摘要：将可拓决策理论中的增加变换用VBA程序设计语言描述出来，为可拓策略生成

2、原理的计算机自动生成工作奠定了初步基础．关键词：可拓决策；可拓策略生成原理；VBA；基元变换；电子表格中图分类号：TP3l1．1文献标识码：A可拓决策作为可拓学的分支，经历了二十年策略生成原理中的增加变换提出应用程序设计方的研究历程，其核心内容之一的可拓策略生成问法，目的在于将可拓策略的生成过程用VBA语言题一直备受关注，尤其是如何选择适当的计算机描述出来，并验证VBA的使用效果．程序设计语言实现可拓策略的生成方法。是经常被专家和学者们所讨论的话题¨j．作者在可拓假设二维物元R：『，。，v1的两个c2，Jp策略生成原理的研究工作中发现，利用VBA语

3、言特征cl与c2之间存在着矛盾(也可以理解为物J7v描述可拓变换是一个不错的想法，如果假以时日，关于它的特征c。与c2所取的量值Ⅳ与P之间的有可能形成可拓策略生成的整套程序设计成果，矛盾)，根据物元的一物多征性，可以将R发散为；将会为用计算机处理具有矛盾前提的决策问题开，，，，，R：辟出一片广阔的应用空间_4J．1VBA简介R—R=通常将MicrosoftWordVisualBasic、Mi—crosoftExcelVisualBasic、MicrosoftAccessVisualBasic、MicrosoftPowerPointVisualBas

4、ic统称为VisualBasicforApplications，简称为VBA．VBA在R的同征物元中，具有与特征c。与c2相是一种面向对象的计算机高级语言，对程序设计容的物元：经验不足的同志比较适合，只需较短的学习时间R一{R=(J7vi，C，)li=l，2，3，4，5，便可以初步掌握，并可能开发出具有一定价值的⋯}应用程序．该语言除了具有VB的大部分优点外，考虑到某些约束条件的影响，将其收敛为物还有简单、方便、实用等特点．VBA可以与Excel元集：应用程序完美地结合，它不只是附加在Excel中，￡(R)={R=(N，c4，t74)li=2，3，

5、4，而且可以直接访问Excel，在使用VBA应用程序5，6，7}时，信息的输入界面和输出界面都可以在Excel使矛盾问题得以解决．在这里通过两个变换lR的工作簿的工作表中实现j．=R和2R=￡(R)，即2lR=￡(R)，产生了解决矛盾问题的策略集．其中，变换．是对2用VBA实现可拓策略的生成过程物元R的特征的增加变换：由于篇幅所限，本文只是对物元的发散性与收稿日期：2006—05—06作者简介：陈巨龙(1963一)，男，吉林省吉林市人，吉林化工学院副教授，硕士，主要从事数字可拓学方面的研究维普资讯http://www.cqvip.com78吉林化工

6、学院学报20o6文件钽)拣辑毽)拽图鬯)煎入∞格式电)增加，b．，工具辽)投鬟趣)冒口遭l帮助．X畸t羹宋体·12，B，

7、!羹b2，Tl：∞63，变换2是对物元尺’的同征物元的增加变换：增加，bl尺b，口(尺)T2：bRo口(R)图2用VBA描述可拓策略生成过程的输出界面从而对尺所生成的策略为2jR：￡(尺)．3VBA应用设计程序上述可拓策略的生成过程用VBA语言描述如图1和图2．图1和图2由本文的VBA程序主程序：确定．Sub可拓()Sheets(输出界面)．SelectRange(A4：G100)，SelectSelection，ClearCa

8、ll删除格线Sheets(输入界面)．Range(”B7：E8)．Copy．Shets(”输出界面)．Range(IM：E5)Shets(”输入界面”)．Range(B19：E20)．Copy．Shets(”输出界面”)．Range(”B8：E9)Shets(输入界面”)．Range(”A26：C26)．Copy．Shets(”输出界面”)．Range(A10")Range(C8：E9”)，SelectSelection，CopyRange(”C12：El3”)．SelectActiveSheet．PasteRange(”D13)，SelectC=

9、[C10]Z=ll+C[Bl1]=”一物多征：”图1用VBA描述可拓策略生成过程的输入界面R=Int(12+(C／2))维