1二维插值算法与实现课件.pptVIP

几个算例华东交通大学教师：赵秀绍1二维插值算法与实现 第一个例题三角形的面积求解1二维插值算法与实现 三角形面积求解可以采用一个界面的输入方式，也可采用inputbox的输入方式，但要注意，因为输入的次数为三次，要用定数循环，不能没有条件的循环。1二维插值算法与实现 三角形面积求解Private Sub Form_Load()Text2 = End SubPrivate Sub Text1_Change(Index As Integer)If Not IsNumeric(Text1(Index).Text) Then Text2.Text = 输入的不是数字，请重新输入 Text1(Index).SetFocus Text1(Index).Text = Else Text2 = 输入的数字是正确的End IfEnd Sub初始化判断输入的数据1二维插值算法与实现 三角形面积求解Private Sub Command1_Click()‘计算Dim A#, B#, C#, S#, Mianji#A = Val(Text1(0).Text)B = Val(Text1(1).Text)C = Val(Text1(2).Text)If A + B C And B + C A And A + C B Then S = (A + B + C) / 2 Mianji = Sqr(S * (S - A) * (S - B) * (S - C)) Text2.Text = Format(Mianji, 三角形的面积为0.###)Else Text2.Text = 输入的三条边不能构成三角形End IfEnd Sub1二维插值算法与实现 三角形面积求解方法21二维插值算法与实现 三角形面积求解Private Sub Command4_Click()On Error Resume NextDim AA() As StringIf Text3(0).Text Or Text3(1).Text Then If Option1(0).Value = True Then AA = Split(Text3(0).Text, ,) If Option1(1).Value = True Then AA = Split(Text3(1).Text, )Else Text4 = 没有数据输入End If下续1二维插值算法与实现 三角形面积求解Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) VBA.Strings 的成员 Split a string into an array解释：split把一个字符串按分隔符分成一个数组，这个数组须是动态数组。空格分隔容易出现问题，但逗号分隔不会出现问题。例如：1二维插值算法与实现 三角形面积求解多加几个空格没有问题，但不能有两个逗号连着多加几个空格出现问题，分解的值有问题1二维插值算法与实现 代码续Dim A#, B#, C#, S#, Mianji#A = Val(AA(0))B = Val(AA(1))C = Val(AA(2))If A + B C And B + C A And A + C B Then S = (A + B + C) / 2 Mianji = Sqr(S * (S - A) * (S - B) * (S - C)) Text4.Text = 三角形的三边分别为a= A ,b= B ,c= C vbCrLf Format(Mianji, 三角形的面积为0.###)Else Text4.Text = 三角形的三边分别为a= A ,b= B ,c= C vbCrLf 输入的三条边不能构成三角形End IfEnd Sub1二维插值算法与实现 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,40,45,-11二维插值算法与实现 Public Sub StrtoShuzhu(ByVal Str1 As String, A() As Double)D