【正文】 plit(, vbCrLf)m1 = UBound(mystring, 1) LBound(mystring, 1) + 1 39。重新定義矩陣ATCall mtrans(A, AT) 39。獲取列數(shù) For j = 1 To n1 A(i, j) = l(j 1) 39。獲取列數(shù)ReDim A(m1, n1) 39。獲取行數(shù)l() = Split(mystring(0), ) 39。調用矩陣相乘的函數(shù)For i = 1 To m1 For j = 1 To n2 = + Str(C(i, j)) + Next j = + vbCrLfNext iEnd Sub39。獲取矩陣B Next jNext iReDim C(m1, n2) 39。重新定義矩陣BFor i = 1 To m2 l() = Split(mystring(i 1), ) n2 = UBound(l, 1) LBound(l, 1) + 1 39。第一行數(shù)據(jù)n2 = UBound(l, 1) LBound(l, 1) + 1 39。獲取矩陣A Next jNext imystring() = Split(, vbCrLf)m2 = UBound(mystring, 1) LBound(mystring, 1) + 1 39。重新定義矩陣AFor i = 1 To m1 l() = Split(mystring(i 1), ) n1 = UBound(l, 1) LBound(l, 1) + 1 39。第一行數(shù)據(jù)n1 = UBound(l, 1) LBound(l, 1) + 1 39。矩陣相乘運算提取數(shù)據(jù)Private Sub Cmd_cheng_Click()Dim i As IntegerDim j As IntegerDim m1 As IntegerDim n1 As IntegerDim m2 As IntegerDim n2 As IntegerDim mystring() As StringDim l() As Stringmystring() = Split(, vbCrLf)m1 = UBound(mystring, 1) LBound(mystring, 1) + 1 39。重新定義矩陣CCall mcut(A, B, C) 39。獲取列數(shù) For j = 1 To n2 B(i, j) = l(j 1) 39。獲取列數(shù)ReDim B(m2, n2) 39。獲取行數(shù)l() = Split(mystring(0), ) 39。獲取列數(shù) For j = 1 To n1 A(i, j) = l(j 1) 39。獲取列數(shù)ReDim A(m1, n1) 39。獲取行數(shù)l() = Split(mystring(0), ) 39。調用矩陣相加的函數(shù) = For i = 1 To m1 For j = 1 To n1 = + Str(C(i, j)) + Next j = + vbCrLfNext iEnd Sub39。獲取矩陣B Next jNext iReDim C(m1, n1) 39。重新定義矩陣BFor i = 1 To m2 l() = Split(mystring(i 1), ) n2 = UBound(l, 1) LBound(l, 1) + 1 39。第一行數(shù)據(jù)n2 = UBound(l, 1) LBound(l, 1) + 1 39。提取矩陣B的數(shù)據(jù)mystring() = Split(, vbCrLf)m2 = UBound(mystring, 1) LBound(mystring, 1) + 1 39。重新定義矩陣AFor i = 1 To m1 l() = Split(mystring(i 1), ) n1 = UBound(l, 1) LBound(l, 1) + 1 39。第一行數(shù)據(jù)n1 = UBound(l, 1) LBound(l, 1) + 1 39。提取矩陣A的數(shù)據(jù)mystring() = Split(, vbCrLf)m1 = UBound(mystring, 1) LBound(mystring, 1) + 1 39。數(shù)組從1開始Dim A() As DoubleDim B() As DoubleDim C() As Double39。首先提取矩陣中的數(shù)據(jù)，再利用調用函數(shù)完成矩陣運算。矩陣的轉置是行變列，列變行。 = jdEnd SubPrivate Sub Cmd_qk_Click() = = End Sub（4）運行結果實驗二 矩陣的加、減、乘、轉置、求逆（1） 原理根據(jù)矩陣的運算方法及規(guī)則，只有當兩個矩陣是同型矩陣時，這兩個矩陣才能進行加法和減法運算。提取分m = ((jdzh d) * 60 f) * 60 39。將弧度轉換為角度，單位為度d = Int(jdzh) 39。定義常量piDim d%, f%, m, fh%hd = fh = Sgn(hd) 39。得到角度總和，單位為度hd = Format(jd * pi / 180 * fh, ) 39。提取分m = ((jd d) * 100 f) * 100 39。取輸入角度的絕對值d = Int(jd) 39。定義常量piDim d%, f%, m, fh%, jdzh%jd = fh = Sgn(jd) 39。計算機測繪程序設計實驗報告專業(yè)：班級：姓名：學號：實驗一 角度與弧度的轉換（1） 原理首先獲取輸入角度的正負號，再取絕對值，通過提取度、分、秒計算出角度總和，利用1度=π/180弧度求出弧度；首先獲取輸入弧度的正負號，再取絕對值，利用1弧度=180/π度將弧度轉換為角度，單位為度，通過提取度、分、。（2）屬性設置窗體、控件屬性設置默認控件名設置的控件名（Name）標題（Caption)Form1frm_jdhdzh角度與弧度轉換（彭思強）Command1Cmd_jh角度→弧度Command2Cmd_hj弧度→角度Command3Cmd_qk清空Label1Label1角度：Label2Label2弧度：Text1txt_jd無定義Text2txt_hd無定義（3）程序代碼Private Sub Cmd_jh_Click()Const pi = 39。獲取輸入角度的正負號jd = Abs(jd) 39。提取度f = Int((jd d) * 100) 39。提取秒jdzh = (d + f / 60 + m / 3600) 39。保留6位小數(shù) = hdEnd SubPrivate Sub Cmd_hj_Click()Const pi = 39。獲取輸入弧度的正負號jdzh = Abs(hd) * 180 / pi 39。提取度f = Int((jdzh d) * 60) 39。提取秒jd = Format((d + f / 100 + m / 10000) * fh, ) 39。只有當?shù)谝粋€矩陣（左矩陣）的列數(shù)等于第二個矩陣（右矩陣）的行數(shù)時，兩個矩陣才能相乘。矩陣的求逆：。（2） 屬性設置窗體、控件屬性設置默認控件名設置的控件名（Name）標題（Caption)Form1frm_jzys矩陣運算（彭思強）Command1Cmd_jiaA+BCommand2Cmd_jianABCommand3Cmd_chengA*BCommand4Cmd_zhuanzhiATCommand5Cmd_qiuniA1Command6Cmd_qc清除Label1Label1ALabel2Label2BLabel3Label3 CText1Txt_a無定義Text2Txt_b無定義Text3Txt_c無定義（3） 程序代碼Option Base 1 39。矩陣相加運算提取數(shù)據(jù)Private Sub Cmd_jia_Click()Dim i As IntegerDim j As IntegerDim m1 As IntegerDim n1 As IntegerDim m2 As IntegerDim n2 As IntegerDim mystring() As StringDim l() As String 39。獲取行數(shù)l() = Split(mystring(0), ) 39。獲取列數(shù)ReDim A(m1, n1) 39。獲取列數(shù) For j = 1 To n1 A(i, j) = l(j 1) Next jNext i 39。獲取行數(shù)l() = Split(mystring(0), ) 39。獲取列數(shù)ReDim B(m2, n2) 39。獲取列數(shù) For j = 1 To n2 B(i, j) = l(j 1) 39。重新定義矩陣CCall madd(A, B, C) 39。矩陣相減運算提取數(shù)據(jù)Private Sub Cmd_jian_Click()Dim i As IntegerDim j As IntegerDim m1 As Intege