VB程序设计专业：测绘工程班级学号：1102601-33编写人：杨军富指导老师：唐争气日期：2013.12.15实验一：用户登录实验目的和要求设计一个用户登录窗口界面，实现模拟用户登录系统时的各种情况。实验内容及过程1.能够输入用户名和密码；2.原始的用户名和密码用代码编写。3.当单击“登录”按钮后，能够对输入的用户名和密码进行验证，若输入的用户名和密码与编写的代码相符，显示“恭喜你密码正确”；用户名或密码错误时，系统自动提醒“账号密码错误”，并给与三次操作机会，如超过三次，程序自动退出。部分代码PrivateSubCommand1_Click()StaticaAsIntegerIfText1.Text="123"AndText2.Text="123"ThenMsgBox"恭喜你密码正确"ElseMsgBox"帐号密码错误"a=a+1Ifa=3ThenMsgBox"3次出现错误，程序将自动退出"EndEndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text2.PasswordChar="*"Text1.Text=""Text2.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText2.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.Enabled=TrueCommand1.Visible=TrueCommand1.SetFocusEndIfEndSubPrivateSubTimer1_Timer()Labe3.Top=Label3.Top+100EndSub运行界面五．心得体会对vb操作有一个简单的认识，了解了简单的模拟登陆系统。实验二：导线实验目的和要求用vb程序将各点展在窗体上，并连接成导线实验内容及过程先将点的坐标用代码编写出来，应用print语句显示在窗体上，再用line语句将各点连接起来三．部分代码PrivateSubCommand1_Click()CurrentX=1900:CurrentY=2000Print"1"CurrentX=1800:CurrentY=4000Print"2"CurrentX=4000:CurrentY=8000Print"3"CurrentX=8000:CurrentY=2500Print"4"Line(2000,2000)-(2000,4000)Line(2000,4000)-(4000,8000)Line(4000,8000)-(8000,2500)Line(8000,2500)-(2000,2000)CurrentX=1500:CurrentY=3000Print"2000"CurrentX=2300:CurrentY=6000Print"4472.136"CurrentX=6000:CurrentY=5250Print"6800.735"CurrentX=5000:CurrentY=2000Print"6020.797"EndSub运行界面五．心得体会对vb界面的熟悉，更是对测量知识的一个加深记忆，能在vb窗口上进行简单的设计。实验三：度分秒转换一·实验目的和要求角度和弧度之间的换算是测量学中经常用到的计算。由于一般测量仪器观测得到的值都是度分秒形式，而vb的三角函数用弧度进行计算，因此有必要设计角度和弧度换算的程序。在输入时，将度分秒的形式化为弧度表示，为程序计算做准备；在输出时，将弧度换算成度分秒形式，以利于显示输出。实验内容及过程设一个角用角度表示为A（度），弧度表示为R(弧度)，程序需要4个文本框分别输入显示度数、分数、秒数、以及弧度值，相应有5个辅助说明标签，还有2个命令按钮触发角度弧度换算事件。另外设计一个清零按钮和一个退出按钮。部分代码Dima%,b%,c%,d#Constpi=3.14159265PrivateSubCommand1_Click()a=Text1.Textb=Text2.Textc=Text3.Textd=a+b/60+c/3600‘十进制度表示d=d*pi/180‘化为弧度Text4.Text=Format(d,"0.000000")EndSubPrivateSubCommand