《测量程序设计实习指导书》.docVIP

实验1 编程基本知识练习 实验目的：通过该实验课内容的练习，学生应掌握VB编程的基本语法、变量的定义、数组（动态数组）的定义、VB语言中子过程与函数的定义以及文本文件的读写等知识。 实验内容： 1）变量的定义、动态数组的定义与应用； 2）矩阵的加、减、乘运算(定义Sub()子过程或Function()来实现)； 3）数据文件的建立、数据的读取与写入。 实验步骤： 1.1 编程界面打开 （1）.打开VB编程工具，进入编程主界面。 （2）.双击“窗体”进入代码输入界面。 1.2 文本文件的读写 在桌面上新建一“data.txt”文本文件(其路径为“C:\Documents and Settings\Administrator\桌面\练习\data.txt”)，并输入以下内容。 6,7,4,0.005 A,35.418 B,45.712 C,25.270 D,24.678 1.2 在窗体上新建“从文本文件中读入数据”和“输出数据”两个按钮，并读入数据源码和输出数据源码分别拷入到这两个按钮中。 2.用VB编写的源代码 2.1 矩阵基本运算源码 （1）两矩阵相加 ******************************************* Private Function Msum(M As Integer, n As Integer, Matrixsum() As Double, Matrix1() As Double, Matrix2() As Double) 矩阵求和函数 Dim i1 As Integer, i2 As Integer ReDim Matrixsum(1 To M, 1 To n) For i1 = 1 To M For i2 = 1 To n Matrixsum(i1, i2) = Matrix1(i1, i2) + Matrix2(i1, i2) Next i2 Next i1 End Function ******************************************* （2）两矩阵相减 ******************************************* Function Mminus(M As Integer, n As Integer, MatrixMinus() As Double, Matrix1() As Double, Matrix2() As Double) 矩阵求差函数 Dim i1 As Integer, i2 As Integer ReDim MatrixMinus(1 To M, 1 To n) For i1 = 1 To M For i2 = 1 To n MatrixMinus(i1, i2) = Matrix1(i1, i2) - Matrix2(i1, i2) Next i2 Next i1 End Function （3）矩阵转置 **************************************** Function Mchange(M As Integer, n As Integer, Matrixchange() As Double, Matrix1() As Double) 矩阵转置函数 Matrix1(）需转置的矩阵，Matrixchange()为转置后的矩阵 Dim i1 As Integer, i2 As Integer ReDim Matrixchange(1 To n, 1 To M) 动态分配用来存储转置后的矩阵 For i1 = 1 To M For i2 = 1 To n Matrixchange(i2, i1) = Matrix1(i1, i2) Next i2 Next i1 End Function （4）两矩阵相乘 **************************************** 矩阵想乘函数，MatrixMultiply()为存储AB后的矩阵，Matrix1()为A矩阵，Matrix2()为B矩阵,注意矩阵想乘的顺序 Mi为行，Ni为列,i=1,2 ******************************************* Function Mmultiply(M1 As Integer, n1 As Integer, M2 As Integer, n2 As Integer, MatrixMultiply() As Double, M