资源描述：
《VB测量程序设计作业》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB测量程序设计——作业（三）班级：XXX姓名：XX学号：XX练习题（一）1距离相对误差的计算编写命令控件VB程序代码计算距离相对误差。程序运行效果如图1所示。PrivateSubCommand1_Click()Dimw#,f#,j#,jd#,r#w=text1.Text:f=text2.Text:j=(w+f)/2jd=Abs(w-f)r=Int(a*100/jd)/100text3.Text=Trim(Str(j))text4.Text=Trim(Str(r))EndSub2圆的周长和面积计算编写命令控件VB程序代码计算距离相对误差。程序运行效果如图2所示。1
2、.2圆的周长和面积计算ConstPI#=3.1415926535PrivateSubCommand1_Click()Dima#,b#a=Text1.Textb=2*a*PIText2.Text=bEndSubPrivateSubCommand2_Click()Dima#,c#a=Text1.Textc=a*a*PIText2.Text=cEndSubPrivateSubCommand3_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSub3字符串运算练习字符串的相关函数。输入一个字符串，将它转换成大写、转换成小写
3、、显示其字串长度、显示去掉首尾空格后的长度。运行效果如图3所示。请同学们参照图3所示界面，自行设计本题。PrivateSubCommand1_Click()Text2.Text=UCase(Text1.Text)EndSubPrivateSubCommand2_Click()Text2.Text=LCase(Text1.Text)EndSubPrivateSubCommand3_Click()Text3.Text=Len(Text1.Text)Text4.Text=Len(Trim(Text1.Text))EndSub4初等数学计算练习表达式的正确书写与计算。利用
4、标签、文本框、按钮等控件，计算数学题。运行效果如图4所示。请同学们参照图4所示界面，自行设计本题。PrivateSubCommand1_Click()Dimr1#,r2#,r3#,jg#r1=Text1.Textr2=Text2.Textr3=Text3.Textjg=Format(1/(1/r1+1/r2+1/r3),"0.000000")PrintjgEndSub练习题（二）1模拟袖珍计算器编写模拟袖珍计算器的程序，运行界面如图1所示。要求如下：⑴输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。⑵输入的数据进行合法检验，当输入出错时，调用MsgB
5、ox()提示。程序运行效果如图1所示。PrivateSubCommand1_Click()Dima#,b#a=Text1.Textb=Text2.TextIfc="+"ThenText4.Text=a+bElseIfText3.Text="-"ThenText4.Text=a-bElseIfText3.Text="*"ThenText4.Text=a*bElseIfText3.Text="/"ThenText4.Text=a/bEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.
6、Text=""Text4.Text=""EndSubSub2三角高程测量计算编写命令控件VB程序代码运用三角高程测量计算B点高程。程序运行效果如图2所示。ConstPI=3.14159265PrivateSubCommand1_Click()Dima#,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.Tex
7、td=Text4.Texte=Text5.TextText6.Text=a-c*Tanb+d-ef=Text6.TextText6.Text=Format(f,"0000.00000")EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""EndSub2坐标正反算编写命令控件VB程序代码实现坐标正反算功能。程序运行效果如图3所示。PrivateSubCommand1_Click()DimXA#,YA#
8、,XB#,
