二维插值算法与实现.pptVIP

二维插值算法与实现演示文稿目前一页\总数五十一页\编于十六点

第一个例题

三角形的面积求解2目前二页\总数五十一页\编于十六点

三角形面积求解可以采用一个界面的输入方式，也可采用inputbox的输入方式，但要注意，因为输入的次数为三次，要用定数循环，不能没有条件的循环。3目前三页\总数五十一页\编于十六点

三角形面积求解PrivateSubForm_Load()Text2=EndSubPrivateSubText1_Change(IndexAsInteger)IfNotIsNumeric(Text1(Index).Text)ThenText2.Text=输入的不是数字，请重新输入Text1(Index).SetFocusText1(Index).Text=ElseText2=输入的数字是正确的EndIfEndSub初始化判断输入的数据4目前四页\总数五十一页\编于十六点

三角形面积求解PrivateSubCommand1_Click()‘计算DimA#,B#,C#,S#,Mianji#A=Val(Text1(0).Text)B=Val(Text1(1).Text)C=Val(Text1(2).Text)IfA+BCAndB+CAAndA+CBThenS=(A+B+C)/2Mianji=Sqr(S*(S-A)*(S-B)*(S-C))Text2.Text=Format(Mianji,三角形的面积为0.###)ElseText2.Text=输入的三条边不能构成三角形EndIfEndSub5目前五页\总数五十一页\编于十六点

三角形面积求解方法26目前六页\总数五十一页\编于十六点

三角形面积求解PrivateSubCommand4_Click()OnErrorResumeNextDimAA()AsStringIfText3(0).TextOrText3(1).TextThenIfOption1(0).Value=TrueThenAA=Split(Text3(0).Text,,)IfOption1(1).Value=TrueThenAA=Split(Text3(1).Text,)ElseText4=没有数据输入EndIf下续7目前七页\总数五十一页\编于十六点

三角形面积求解FunctionSplit(ExpressionAsString,[Delimiter],[LimitAsLong=-1],[CompareAsVbCompareMethod=vbBinaryCompare])VBA.Strings的成员Splitastringintoanarray解释：split把一个字符串按分隔符分成一个数组，这个数组须是动态数组。空格分隔容易出现问题，但逗号分隔不会出现问题。例如：8目前八页\总数五十一页\编于十六点

三角形面积求解多加几个空格没有问题，但不能有两个逗号连着多加几个空格出现问题，分解的值有问题9目前九页\总数五十一页\编于十六点

代码续DimA#,B#,C#,S#,Mianji#A=Val(AA(0))B=Val(AA(1))C=Val(AA(2))IfA+BCAndB+CAAndA+CBThenS=(A+B+C)/2Mianji=Sqr(S*(S-A)*(S-B)*(S-C))Text4.Text=三角形的三边分别为a=A,b=B,c=CvbCrLfFormat(Mianji,三角形的面积为0.###)ElseText4.Text=三角形的三边分别为a=A,b=B,c=CvbCrLf输入的三条边不能构成三角形EndIfEndSub10目前十页\总数五十一页\编于十六点

103.75,-1,38,7,15,1;96.75,1,86,52,30,1;420.77,-1,39,18,30,1;208.64,1,62,31,30,1;436.79,1,25,56,30,-1;56.48,-1,87,1,15,-1;98.8,-1,53,22,0,-1;68.62,1,36,38,0,-1;95.1,1,59,29,0,-1;207.41,-1,51,4