VB测量程序设计作业.doc

VB测量程序设计 作业（三） 班级：XXX 姓名：XX 学号：XX练习题（一）1距离相对误差的计算编写命令控件VB程序代码计算距离相对误差。程序运行效果如图1所示。Private Sub Command1_Click() Dim w#, f#, j#, jd#, r# w = text1.Text: f = text2.Text: j = (w + f) / 2 jd = Abs(w - f) r = Int(a * 100 / jd) / 100 text3.Text = Trim(Str(j) text4.Text = Trim(Str(r)End Sub 2圆的周长和面积计算编写命令控件VB程序代码计算距离相对误差。程序运行效果如图2所示。1.2 圆的周长和面积计算Const PI# = 3.1415926535Private Sub Command1_Click() Dim a#, b# a = Text1.Text b = 2 * a * PI Text2.Text = bEnd SubPrivate Sub Command2_Click() Dim a#, c# a = Text1.Text c = a * a * PI Text2.Text = cEnd SubPrivate Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = End Sub3 字符串运算练习字符串的相关函数。输入一个字符串，将它转换成大写、转换成小写、显示其字串长度、显示去掉首尾空格后的长度。运行效果如图3所示。请同学们参照图3所示界面，自行设计本题。Private Sub Command1_Click()Text2.Text = UCase(Text1.Text)End SubPrivate Sub Command2_Click()Text2.Text = LCase(Text1.Text)End SubPrivate Sub Command3_Click()Text3.Text = Len(Text1.Text)Text4.Text = Len(Trim(Text1.Text)End Sub4 初等数学计算练习表达式的正确书写与计算。利用标签、文本框、按钮等控件，计算数学题。运行效果如图4所示。请同学们参照图4所示界面，自行设计本题。Private Sub Command1_Click() Dim r1#, r2#, r3#, jg#r1 = Text1.Text r2 = Text2.Textr3 = Text3.Text jg = Format(1 / (1 / r1 + 1 / r2 + 1 / r3), 0.000000) Print jgEnd Sub练习题（二）1 模拟袖珍计算器编写模拟袖珍计算器的程序，运行界面如图1所示。要求如下：输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。输入的数据进行合法检验，当输入出错时，调用MsgBox()提示。程序运行效果如图1所示。Private Sub Command1_Click()Dim a#, b#a = Text1.Textb = Text2.TextIf c = + ThenText4.Text = a + bElseIf Text3.Text = - ThenText4.Text = a - bElseIf Text3.Text = * ThenText4.Text = a * bElseIf Text3.Text = / ThenText4.Text = a / bEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub Sub2 三角高程测量计算编写命令控件VB程序代码运用三角高程测量计算B点高程。程序运行效果如图2所示。Const PI = 3.14159265Private Sub Command1_Click()Dim a#, b#, c#, d#, e#, f#, du#, fen#, miao#a = Text1.Textb = Text2.Textdu = Fix(dfm)fen = Fix(dfm - du) * 100)miao = Fix(dfm - du) * 100 - fen) * 100)b = (du + fen / 60 + miao / 3600) * PI / 180c = Text3.Textd = Text4.Texte = Text5.TextText6.Text = a - c * Tanb + d - ef = Text6.TextText6.Text = Format(f, 0000.00000)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub3 坐标正反算编写命令控件VB程序代码实现坐标正反算功能。程序运行效果如图3所示。Private Sub Command1_Click() Dim XA#, YA#, XB#, YB#, DAB#, AB# Dim dd%, ff%, ss! XA = Text1.Text YA = Text2.Text DAB = Text3.Text AB = Text4.Text 将度分秒转化为弧度 dd = Fix(AB) ff = Fix(AB - dd) * 100) ss = (AB - dd) * 100 - ff) * 100 AB = (dd + ff / 60 + ss / 3600) * PI / 180 XB = XA + DAB * Cos(AB) YB = YA + DAB * Sin(AB) Text5.Text = Format(XB, 0.000) Text6.Text = Format(YB, 0.000)End SubPrivate Sub Command2_Click() Dim XA#, YA#, XB#, YB#, DAB#, AB# Dim dd%, ff%, ss! XA = Text1.Text YA = Text2.Text XB = Text5.Text YB = Text6.Text DAB = Sqr(XB - XA) 2 + (YB - YA) 2) Text3.Text = Format(DAB, 0.0000) AB = Atn(YB - YA) / (XB - XA) * 180 / PI If XB - XA 0 And YB - YA 0 Then AB = AB + 360 ElseIf XB - XA 0 Then AB = 90 ElseIf XB - XA = 0 And YB - YA 0 Then AB = 270 End If 将度转化为度分秒 dd = Fix(AB) ff = Fix(AB - dd) * 60) ss = (AB - dd) * 60 - ff) * 60 AB = dd + ff / 100 + ss / 10000 Text4.Text = Format(AB, 0.0000)End Sub4 多边形面积及周长计算编写命令控件VB程序代码计算多边形的面积及周长。多边形各顶点坐标如图4所示。Private Sub Command1_Click() Dim x() As Double, y() As Double, k%, c#, s# n = Text1.Text c = 0: s = 0 ReDim x(n + 1) As Double, y(n + 1) As Double For k = 1 To n + 1 x(k) = InputBox(请输入 & k & 点x坐标, 输入框, 0) y(k) = InputBox(请输入 & k & 点y坐标, 输入框, 0) Next For k = 1 To n c = c + Sqr(x(k + 1) - x(k) 2 + (y(k + 1) - y(k) 2) s = s + 0.5 * (x(k + 1) + x(k) * (y(k + 1) - y(k) Next MsgBox c= & c MsgBox s= & sEnd 练习题（三）1 度分秒转换为度1）编写Function子过程完成“度分秒转换为弧度”。Const pi# = 3.1415926535Private Sub Command1_Click()Dim a#a = Text1.TextText2.Text = 度分秒转换弧度(a)End SubPrivate Function 度分秒转换弧度(dfm#)Dim dd#, mm#, ss#dd = Fix(dfm)mm = Fix(dfm - dd) * 100)ss = Fix(dfm - dd) * 100 - mm) * 100)度分秒转换弧度 = Format(dd + mm / 60 + ss / 3600) * pi / 180), 0.0000)End Function2）编写Function子程序完成“度转换为度分秒”。Const PI# = 3.1415926535Private Function 度分秒(HD#) Dim dd#, mm#, ss#, d d = HD * 180 / PI dd = Fix(d) mm = Fix(d - dd) * 60) ss = Fix(d - dd) * 60 - mm) * 60) 度分秒 = Format(dd + mm / 100 + ss / 10000, 0.0000)End FunctionPrivate Sub Command1_Click() Text2.Text = 度分秒(Text1.Text)End Sub2 求两点间的坐标方位角及距离1）编写Function子程序完成“反算坐标方位角”。Private Sub Command1_Click() XA = Text1.Text: YA = Text2.Text XB = Text3.Text: YB = Text4.Text Text5.Text = 反算坐标方位角(Text1.Text, Text2.Text, Text3.Text, Text4.Text)End SubPrivate Function 反算坐标方位角(XA#, YA#, XB#, YB#) Dim dd#, ff#, mm#, hu#, fwj#, du#, hu1# hu = Atn(YA - YB) / (XA - XB) du = hu * 180 / PI dd = Fix(du) ff = Fix(du - dd) * 60) mm = Fix(du - dd) * 60 - ff) * 60) fwj1 = dd + ff / 100 + mm / 10000 If XA - XB 0 And YA - YB 0 Then fwj = fwj1 + 180 End If 反算坐标方位角 = Format(fwj, 0.0000)End Function2）编写Function子程序完成“反算两点间距离”。Private Sub Command1_Click() xa = Text1.Text ya = Text2.Text xb = Text3.Text yb = Text4.Text Text5.Text = 反算两点之间的距离(s)End SubPrivate Function 反算两点之间的距离(s#) Dim xa#, ya#, xb#, yb#, x#, y# x = xa - xb: y = ya - yb 反算两点之间的距离 = Format(Sqr(x * x + y * y), 0.0000)End Function3 编写四舍六入奇进偶舍。编写Function子程序完成“四舍六入奇进偶舍”。Private Sub Command1_Click() Text2.Text = 四舍六入奇进偶舍(Text1.Text, Text3.Text)End SubPrivate Function 四舍六入奇进偶舍(S#, n%) Dim a# a = Fix(S * 10 (n + 1) - Fix(S * 10