计算机测绘程序及设计实验报告

计算机测绘程序设计

实验报告

专业：

班级：

姓名：

学号：

实验一角度与弧度的转换

原理

首先获取输入角度的正负号，再取绝对值，通过提取度、分、秒计算出角度总和，利用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# = 3.14159265358979 '定义常量pi

Dim d%, f%, m#, fh%, jdzh%

jd = txt_jd.Text

fh = Sgn(jd) '获取输入角度的正负号

jd = Abs(jd) '取输入角度的绝对值

d = Int(jd) '提取度

f = Int((jd - d) * 100) '提取分

m = ((jd - d) * 100 - f) * 100 '提取秒

jdzh = (d + f / 60 + m / 3600) '得到角度总和，单位为度

hd = Format(jd * pi / 180 * fh, "0.000000") '保留6位小数

txt_hd.Text = hd

End Sub

Private Sub Cmd_hj_Click()

Const pi# = 3.14159265358979 '定义常量pi

Dim d%, f%, m#, fh%

hd = txt_hd.Text

fh = Sgn(hd) '获取输入弧度的正负号

jdzh = Abs(hd) * 180 / pi '将弧度转换为角度，单位为度

d = Int(jdzh) '提取度

f = Int((jdzh - d) * 60) '提取分

m = ((jdzh - d) * 60 - f) * 60 '提取秒

jd = Format((d + f / 100 + m / 10000) * fh, "0.0000") '得到度.分秒并保留四位小数

txt_jd.Text = jd

End Sub

Private Sub Cmd_qk_Click()

txt_jd.Text = ""

txt_hd.Text = ""

End Sub

(4)运行结果

实验二矩阵的加、减、乘、转置、求逆

原理

根据矩阵的运算方法及规则，只有当两个矩阵是同型矩阵时，这两个矩阵才能进行加法和减法运算。只有当第一个矩阵(左矩阵)的列数等于第二个矩阵(右矩阵)的行数时，两个矩阵才能相乘。矩阵的转置是行变列，列变行。矩阵的求逆：。首先提取矩阵中的数据，再利用调用函数完成矩阵运算。

属性设置

窗体、控件属性设置

默认控件名设置的控件名(Name)标题(Caption)Form1frm_jzys矩阵运算(彭思强)Command1Cmd_jiaA+BCommand2Cmd_jianA-BCommand3Cmd_chengA*BCommand4Cmd_zhuanzhiATCommand5Cmd_qiuniA-1Command6Cmd_qc清除Label1Label1ALabel2Label2BLabel3Label3 CText1Txt_a无定义Text2Txt_b无定义Text3Txt_c无定义

程序代码

Option Base 1 '数组从1开始

Dim A() As Double

Dim B() As Double

Dim C() As Double

'矩阵相加运算提取数据

Private Sub Cmd_jia_Click()

Dim i As Integer

Dim j As Integer

Dim m1 As Integer

Dim n1 As Integer

Dim m2 As Integer

Dim n2 As Integer

Dim mystring() As String

Dim l() As String

'提取矩阵A的数据

mystring() = Split(Txt_a.Text, vbCrLf)

m1 = UBound(mystring