资源描述：
《vb分数类和向量类之间运算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、一scoreclassoperationThemetabolicscoreclassclassmodulePrivate,a,B,membervariablesofthefractionalclassPublicFunctionfgcd(a,b)'forthecommondenominatorDim,C,x,yIfa0Andb0Then<><>X=Abs(a):y=Abs(b)Whiley<>0C二x-y*Int(x/y):x=y:,y=CWendFgcd=xElselfa=0AndB<>0ThenFgcd=Abs(b)Else
2、lfa0AndB<>=0ThenFgcd=Abs(a)Elself,a二0,And,B二0,ThenFgcd二0ElseEndIfEndFunctionPublicSubCSET(x,y)-theconstructorofthefractionalclass1(twointegersconvertedintofractions)A二x:,B二yEndSubPublicFunctioncshow()displaysthescoresIfa*b>0ThenCshow二Abs(a)/fgcd(Abs(a),Abs(b))&//&Abs
3、(b)/fgcd(Abs(a),Abs(b))Elselfa*B<0ThenCshow二"-"-Abs(a)/fgcd(Abs(a),Abs(b))&//&"Abs(b)/fgcd(Abs(a),Abs(b))Elselfa*b=0ThenCshow="0/1〃〃ElseEndIfEndFunctionPublicFunctionre(x)returnsthemembervariableIfx二1ThenRe=aElselfx=2ThenRe二bElseEndIfEndFunctionPublicSubcsetl(s)
4、-theconstructor2ofthefractionalclass(textconvertedtofractions)IfDec(s,Then〈>〃/〃)0A二Vai(dtxt(s,'/1))二b二Vai(dtxt(s,'/',2))ElseA二Vai(s):B二1EndIfEndSubLongformcodePrivateSubCmdys_Click()\commandclickthebuttonDim,I,CL1,As,New,Classi,C12,As,New,Classi,CL3,As,New,Classi,nF
5、or1=0,To,Combo1.ListCount-1If,Combo1.Text二Combo1.List(I),Then,Exit,ForNextII二I+1:,ell.csetl,Textl.Text:,cl2・csetl,Text2.TextIfI二1ThenSetCL3二FADD(CL1,C12):Labell.Caption二cl3.cshowElselfI二2ThenSetCL3二fsub(CL1,C12):Labell.Caption二cl3.cshowElselfI二3ThenSetCL3二FTIM(CL1,C1
6、2):Label1.Caption二cl3.cshowElselfI二4ThenSetCL3二fdiv(CL1,C12):Label1.Caption二cl3.cshowElself1=5ThenN二Vai(Text2.Text):Set,CL3二fpow(CL1,n):Label1.Caption二cl3・cshowElseEndIfEndSubPrivateSubForm_Load()'formloading，DimIFor1=1,To5Combol.Addltem,Choose(I,〃+〃，“一〃，NextIEndSubP
7、ublic,Function,FADD（CL1,As,Classi,C12,As,Classi）,As,Classi,fractionaladdition昏暗的CL新一班电话cl.cset（CLlo再（1）X2o再（2）+CL1。再（2）*（1）C12。再次，CLlo再（2）X2o再（2））设置：设置FADD二CLCL二没有端功能公共功能的多分类器（CL1为Classi,C12为Classi）为classl"分数类减法昏暗的CL新一班电话cl.cset（CLlo再（1）X2o再（2）-CLlo再（2）*（1）C12。再次，CLl
8、o再（2）X2o再（2））设置：设置多分类器二CLCL二没有端功能公共职能马林家庭治疗研究所（CL1为Classi,C12为Classi）为classl”分数类乘法昏暗的CL新一班电话cl.cset(CLlo再(1)*(1)C12o再次，CL1O再(2)X2O再
