vb矩阵解算及线性方程组求解.doc

控制网平差课程设计 设 计 说 明 书 设计题目 矩阵运算（求逆、相乘、转置等）线性方程解算 姓　名　 　　　 　 　 　　　　 　 　 　 　 指导教师 　　　　　　　　 　 　 　 专　业　 测绘工程　　　　 2011 年 7 月 11 日 学号 小组成员姓名 课程设计具体工作内容 个人得分 个 小组得分 204 刘志龙 Vb程序开发 206 张硕 设计任务书 209 张娜 设计任务书 215 王杰 Matlab例题解算 215 武晓亚 Vb程序开发 运用MATLAB和平差易控制网平差计算部分 (0.3) 题目的难易程度 30 程序总体运行通过 50 运行结果的准确度 20 VB或VC（其它语言）二次开发部分 (0.5) 界面设计友好，用户数据输入及操作自由度高,有测试数据； 20 数据结构设计合理，代码模块化，通用性强； 20 设计思想清晰，代码编写采取逐层递进格式，注释可读性高； 20 程序总体运行通过，各部分功能实现程度高，注重容错处理 40 设计说明书部分 (0.2) 设计报告说明书内容全面，层次清楚、完整程度高 30 设计思路清析、对设计思想、完成情况等重要内容说明表达清晰，总体分析、详细设计、界面设计各部分内容表述清楚 50 数据结构和算法合理，知识点明晰 20 教师评语 测绘工程专业课程设计评分表 目　录 1 课程设计目的 1 1.1 1 1.2 1 1.2.1 1 2 课程设计任务 2 2.1 2 2.2 2 2.2.1 2 2.2.2 2 3 设计主要内容 3 3.1 平差易计算 3 3.1.1 题目简介 3 3.1.2 3 3.2 MatLab计算 3 3.2.1 题目简介 3 3.3 MatLab计算 3 4 4 参考文献 5 课程设计题目 矩阵运算（求逆、相乘、转置等）线性方程解算 课程设计目的 3课程学习和巩固VB程序设计的方法，充分体会VB在程序设计方面的强大功能和独特之处；解开VB开发项目的一般过程，培养运用VB解决实际问题的工作能力。 4.2控件介绍 Form ：装在所有控件 Label ：显示提示性语言 Command：利用click事件触发相关运算 Text：显示输入数据和计算结果 4.3 系统结构流程图 4.4.1加减法流程图 4.4.2 程序代码及其变量名表 表1 变量说明表 变量名 ‘’类型 全局/局部 说明 i 整型 局部变量 循环变量 j 整型 局部变量 循环变量 r 字符串型 局部变量 显示矩阵A s 字符串型 局部变量 显示矩阵B t 字符串型 局部变量 显示运算结果 x 整型 局部变量 矩阵的行数 y 整型 局部变量 矩阵的列数 Private Sub Command1_Click() 加法运算 Text1.Text = Text2.Text = Text3.Text = Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Dim i As Integer Dim j As Integer Dim x As Double Dim y As Double Dim r As String Dim s As String Dim t As String x = Val(InputBox(请输入矩阵A的行数, 提示)) y = Val(InputBox(请输入矩阵A的列数, 提示)) ReDim a(1 To x, 1 To y) As Double For i = 1 To x 输入矩阵A的元素 For j = 1 To y a(i, j) = Val(InputBox(请输入矩阵A( i , j )的数值：, 提示, 0)) Next j Next i For i = 1 To x 输出矩阵A For j = 1 To y s = s Str(a(i, j)) If j = y Then s = s vbCrLf End If Text1.Text = s Next j Next i ReDim B(1 To x, 1 To y) As Double 输入矩B的元素 For i = 1 To x For j = 1 To y B(i