测绘软件开发实习报告.docxVIP

西南林业大学《测绘软件开发与应用》实验报告

第PAGE1页

PAGE

西南林业大学

《测绘软件开发与应用》

实验报告

实验学期

2014-2015学年第2学期

学院

土木工程学院

专业

测绘工程

学号

XXX

学生姓名

XXX

任课教师

XXX

测绘工程系制

实验一开发平台常用部件的使用

实验日期_2015年5月3日_

得分_____________

1.1实验项目

在窗体上放置一个标签、一个文本框和一个命令按钮，单击命令按钮，则在标签上显示“大家好！”，在文本框显示“欢迎来到这里！”。

1.1.1界面设计

1、界面设计截图

2、界面设计属性表

窗体名

控件名

属性表

属性值

Form1

Form1

Caption

我的第一个VB从程序

Label1

Caption

空

Text1

Text

空

Command1

Caption

显示

1.1.2算法描述及代码

Command1的单击事件进行编程，输入如下代码：

PrivateSubCommand1_Click()’更改文本框内容

Label1.Caption=大家好！

Label1.FontName=宋体

Label1.FontSize=15

Label1.FontBold=True

Text1.Text=欢迎来到这里！’更改文本框内容

Text1.FontName=黑体’设置文本框字体

Text1.FontSize=16’设置文本框字体大小

Text1.FontBold=True

EndSub

1.1.3调试过程及实验结果

1、实验结果截图如下：

1.1.4总结

本次实验主要练习了标签、文本框和命令按钮的显示，本次实验比较简单，用时也较短，中间没有出现什么问题。通过本程序，掌握了利用VB进行程序设计的整个流程。本次实验附件包括：程序源代码、可执行文件。

1.2实验项目

熟悉新建工程和窗体

1.2.1界面设计

实验结果截图如下：

1.2.2用三种除法运算（/,\,mod）做计算

实验结果截图如下：

Dim?beichushu,?chushu?As?Single

beichushu?=?Val(Text1.Text)

chushu?=?Val(Text2.Text)

Text3.Text?=?beichushu?/?chushu

Text4.Text?=?beichushu?\?chushu

Text5.Text?=?beichushu?Mod?chushu

1.2.2熟悉多窗体的操作

实验结果截图如下：

PrivateSubCmdexit_Click()

UnloadMe

EndSub

PrivateSubCmdok_Click()

Iftxtname.Text=lxAndtxtpassword.Text=1234Then

Form2.Show

Me.Hide

Else

Form3.Show

UnloadMe

EndIf

EndSub

PrivateSubCommand1_Click()

Form1.Show

Unload.Show

EndSub

PrivateSubText1_Change()

Text1.Text=软件资源vbCrLf软件资源

EndSub

PrivateSubForm_Load()

UnloadMe

EndSub

1.2.4简易计算器的程序设计

实验结果截图如下：

PrivateSubCommand1_Click()

Dimnum1,num2,resultAsSingle

DimopAsString

num1=Val(Text1.Text)

num2=Val(Text3.Text)

op=Trim(Text2.Text)

SelectCaseop

Case+

result=num1+num2

Case-

result=num1-num2

Case*

result=num1*num2

Case/

Ifnum2=0Then

MsgBox(运算符不能为0，请重新输入第二个数)

Text3.Text=

Text4.Text=

Text3.SetFocus

ExitSub

Else

result=num1/n