测绘程序设计与应用上机实验报告 朱维平.doc

湖南城市学院 上 机 实 验 报 告 课程名称：测量程序设计与应用 专 业：测绘工程 班级学号：1202602-08 姓 名：朱维平 任课教师：唐争气 2014-2015学年第一学期上机实验五：矩阵基本运算 一、实验目的与要求 1熟悉矩阵的定义与以三元数组形式输入 2学会矩阵的加法运算乘法运算以及转置运算 3掌握用矩阵形式输出 二、实验安排 课时安排2小时 三、实验原理和过程 1原理及过程 1本实验中的输入以三个三元组形式输入的矩阵 2本矩阵以矩阵的形式输出结果 3程序能够完成对输入的矩阵实行转置相加并输出运算结果后输出矩阵，将输入的举证进行乘法运算然后输出结果 2 矩阵基本运算程序窗体及控件属性设置 3设计窗体 四、程序代码 1输入代码 Option Explicit Private Sub Form_Load() Dim i%, j%, k% For i = 1 To m For j = 1 To n k = (i - 1) * n + j Load txt(k) txt(k).Visible = True txt(k).Left = txt(0).Left + (j - 1) * (txt(0).Width + 100) txt(k).Top = txt(0).Top + (i - 1) * (txt(0).Height + 80) Next j Next i For i = 1 To n Load Label1(i) Label1(i).Caption = Str(i) Label1(i).Visible = True Label1(i).Left = txt(i).Left + txt(i).Width - Label1(i).Width Label1(i).Top = Label1(0).Top Next i For j = 1 To m Load Label1(j + n) Label1(j + n).Caption = Str(j) Label1(j + n).Visible = True Label1(j + n).Left = Label1(0).Left Label1(j + n).Top = txt((j - 1) * n + 1).Top + txt((j - 1) * n + 1).Height - Label1(0).Height Next j frmInput.Width = (txt(0).Width + 100) * n + 600 frmInput.Height = (txt(0).Height + 80) * m + 880 End Sub Private Sub Label1_Click(Index As Integer) If Index = 0 Then Call GetMatrix Unload Me End If End Sub 2计算代码 Option Explicit Private Sub cmdClear_Click() txtResult.Text = End Sub Private Sub cmdExit_Click() End End Sub Private Sub cmdInput1_Click() R1 = Val(txtR1.Text) C1 = Val(txtC1.Text) m = R1: n = C1 IsFirstMOperated = True ReDim a(1 To R1, 1 To C1) As Double frmInput.Show End Sub Private Sub cmdInput2_Click() R2 = Val(txtR2.Text) C2 = Val(txtC2.Text) m = R2: n = C2 IsFirstMOperated = False ReDim b(1 To R2, 1 To C2) As Double frmInput.Show End Sub Private Sub cmdMinus