上机实验五：矩阵的计算--1202602-36江纯 测绘程序设计与应用上机实验报告.docVIP

湖南城市学院 上 机 实 验 报 告 课程名称：测量程序设计与应用 专 业：测 绘 工 程 班级学号： 1202602-36 姓 名： 江 纯 任课教师： 唐 争 气 2014-2015学年第一学期上机实验一：角度与弧度互化程序 一、实验目的与要求 1.目的 设计一个矩阵计算器，实现矩阵的一些基本运算，包括矩阵转置、矩阵相加、矩阵相减、矩阵相乘以及求矩阵的逆，用VB编写，是其使用方便和便捷。 2.要求 对矩阵的运算进行分类，加减法、乘法、转置、求逆编码在一个框架内，实现其所需要的功能，输出结果，并对其进行完善和修改。 二、实验安排 实验安排两课时，每人一组完成任务，成功完成程序的设计并顺利运行。星期日晚上完成了矩阵的加减法、乘法以及矩阵的转置，然后星期一上完课后根据上课所讲的列选主元Guass消元法以及课本上关于这个的程序代码，进行对矩阵的求逆过程的实现。 三、实验原理和过程 1.原理 当两个矩阵式同型矩阵（行数和列数分别相同）时，可以进行加减法运算；矩阵的转置即是把矩阵A=（aij））））Form1 Caption 矩阵的计算 Form1 Name Frmmain Frame1 Caption 输入矩阵 Frame2 Caption 矩阵运算 Frame3 Caption 运算结果 ———— ———— ———— a.“输入矩阵”框架上的控件属性设置 对象 属性 值 对象 属性 值 Label1 Caption 第一个矩阵的大小： Label2 Caption 行数： Label3 Caption 列数： Label4 Caption 第二个矩阵的大小： Label5 Caption 行数： Label6 Caption 列数： Text1 Text 2 Text1 Name txtR1 Text2 Text 3 Text2 Name txtC1 Text3 Text 2 Text3 Name txtR2 Text4 Text 3 Text4 Name txtC2 Command1 Caption 输入 Command1 Name cmdInput1 Command2 Caption 输入 Command2 name cmdInput2 b.Frame2上的控件属性设置 对象 属性 值 对象 属性 值 Command3 Caption 矩阵相加 Command3 Name cmdPlus Command4 Caption 矩阵相减 Command4 Name cmdPlus Command5 Caption 矩阵转置 Command5 Name cmdTrans Command6 Caption 矩阵相乘 Command6 Name cmdMulti c.Frame3上的控件属性设置 对象 属性 值 对象 属性 值 Text5 Text Text5 Name txtResult Text5 MultiLine True Text5 ScrollBars 3-Both Command7 Caption 清空 Command7 Name cmdClear Command8 Caption 退出 Command8 Name cmdExit 2.设置完主窗体（Frmmain）后，在工程中添加一个窗体作为输入窗体（FrmInput）Form1 Caption 输入矩阵 Form1 Name FrmInput Text1 Text Text1 Index 0 Label1 Caption 确定 Label1 Index 0 设计界面结果如下： 四、程序代码 1.变量声明代码部分 Public R1%, R2%, C1%, C2% Public m%, n%, s% Public IsFirstMOperated As Boolean Public a() As Double, b() As Double, c() As Double 2.输入界面（FrmInput）代码部分 （1）输入界面初始化代码部分 Private Sub Form_Load() Dim i%, j%, k% For i = 1 To m For j = 1 To n k = (i - 1) * n + j: Load Text1(k): Text1(k).Visible = True Text1(k).Left = Text1(0).Left + (j -