vb综合实验报告.docx

vb综合实验报告.docx

《vb综合实验报告.docx》由会员分享，可在线阅读，更多相关《vb综合实验报告.docx（12页珍藏版）》请在冰豆网上搜索。

vb综合实验报告

华北科技学院安全工程学院综合性实验

实验报告

课程名称计算机技术基础（VB）

实验学期2010至2011学年第2学期

学生所在系部安全工程学院

年级大一专业班级采矿B101

学生姓名朱寅学号201010014112

任课教师李芙玲

实验成绩

《计算机技术基础（VB）》课程综合性实验报告

开课实验室：

基础实验室2010年7月6日

实验题目

VisualBasic综合应用程序开发

一、实验目的

1、掌握数组的应用：

（1）数组的定义

（2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。

2、会使用过程编程和字符串操作

（1）sub过程的定义与调用

（2）function过程的定义调用

（3）字符串的大小写转换操作

3、掌握基本控件的使用

包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。

4、掌握菜单和工具栏的使用

二、设备与环境

硬件：

多媒体计算机

软件：

Windows2000以上的操作系统、VisualBasic集成开发环境

三、实验内容

1、先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。

（5％）

2、密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。

（10％）

3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。

（35％，每个按钮功能为5％）。

题目描述如下：

在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：

（1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。

（2）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。

若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。

（3）输入完毕后，“输入”按钮变灰，其他变为可用状态。

（4）按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A

（1）存放最小数）。

（5）单击“清空”按钮将所有文本框清空。

4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。

（25％）

题目描述如下：

在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。

运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。

5、单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。

（25%）

题目描述如下：

在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。

程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。

6、单击“退出”菜单，退出程序运行。

四、实验结果及分析

1.欢迎界面的设置

进入欢迎界面，需要输入密码12345，运行程序。

密码输入必须为数字，否则弹出消息对话框，提示需输入数字。

若密码输入正确，登陆下一界面。

欢迎界面如图：

主要代码为：

PrivateSubCommand1_Click（）

IfText1.Text<>"12345"Then

Text1.SetFocus

Text1.Text=""

MsgBox"请输入正确的密码"

Else

UnloadMe

Form2.Show

EndIf

EndSub

2.主界面的设置

在欢迎界面点击登录后弹出主界面，利用工具——菜单编辑器依次编辑“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，在数组应用下添加“数组操作”子菜单，在过程应用下添加“字符转换”子菜单，二者均链接有快捷键。

当点击数组操作时，主界面关闭，数组操作界面弹出，当点击字符转换时，主界面关闭，字符转换界面弹出。

在主界面窗体上添加了图片，设置命令按钮。

运行界面如图：

主要代码如下：

PrivateSubsc_Click（）

UnloadMe

Form3.Show

EndSub

PrivateSubsxys_Click（）

UnloadMe

Form5.Show

EndSub

PrivateSubtc_Click（）

End

EndSub

PrivateSubzfzh_Click（）

UnloadMe

Form4.Show

EndSub

3.数组操作界面的设置

进入此界面，点击“输入”命令按钮，弹出inputbox对话框，用键盘依次输入10个数，然后“升序排列”“降序排列”、“最大值”、“最小值”等命令按钮均变为可用，“输入”按钮变为不可用，依次点击，实现排序，最值功能。

点击“清空”，“输入”变为可用，可再次应用。

主要代码如下：

PrivateSubCommand2_Click（）

Fori=1To9

imin=i

Forj=i+1To10

Ifa（j）

Nextj

t=a（i）

a（i）=a（imin）

a（imin）=t

Nexti

Fori=1To10

m=Str（a（i））

Text1.Text=Text1.Text+m+""

Nexti

EndSub

PrivateSubCommand1_Click（）

Fori=1To10

m:

a（i）=InputBox（"请输入第"&i&"个数"）

IfNotIsNumeric（a（i））Then

MsgBox"输入必须为数字",,"警告"

GoTom

EndIf

Nexti

Command2.Enabled=True

Command3.Enabled=True

Command4.Enabled=True

Command5.Enabled=True

Command6.Enabled=True

Command1.Enabled=False

Fori=1To10

a（i）=Val（a（i））

Nexti

EndSub

PrivateSubCommand5_Click（）

Min=a

（1）

Fori=2To10

Ifa（i）

Nexti

Text4.Text=Min

EndSub

运行效果如下图：

4.字符转换界面的设置：

在上面文本框中输入字符，选择单选按钮，决定转换的类别，然后点击“转换”命令按钮，转换后的内容在下文本框展现。

点击“返回”，则返回主界面。

在编写代码时应用函数子过程，主要代码如下：

Subdxzh（a）

IfOption2.ValueThena=UCase（Text1.Text）

IfOption3.ValueThena=LCase（Text1.Text）

IfOption1.ValueThen

c=Len（a）

Fori=1Toc

m=Mid（a,i,1）

IfAsc（m）<=Asc（"z"）AndAsc（m）>=Asc（"a"）Then

n=UCase（m）

ElseIfAsc（m）<=Asc（"Z"）AndAsc（m）>=Asc（"A"）Then

n=LCase（m）

EndIf

Text2.Text=Text2.Text+n

Nexti

a=Text2.Text

EndIf

EndSub

PrivateSubCommand1_Click（）

Text2.Text=""

a=Text1.Text

Calldxzh（a）

Text2.Text=a

EndSub

运行界面如下图：

5.数学运算界面的设置：

拉动滚动条，分别选中两个运算数，再选择加减乘除单选按钮，点击“计算”则显示运算式并得出结果。

单击“返回”则退回主界面。

运行效果如下图：

主要代码：

PrivateSubCommand1_Click（）

m=Val（Label5.Caption）

n=Val（Label6.Caption）

IfOption2.ValueThens=m+n:

Label4.Caption=m&"+"&n&"="&s

IfOption4.ValueThens=m-n:

Label4.Caption=m&"-"&n&"="&s

IfOption3.ValueThens=m*n:

Label4.Caption=m&"*"&n&"="&s

IfOption1.ValueThens=m/n:

Label4.Caption=m&"/"&n&"="&s

EndSub

PrivateSubHScroll1_Change（）

Label5.Caption=HScroll1.Value

EndSub

PrivateSubHScroll1_Scroll（）

Label5.Caption=HScroll1.Value

EndSub

PrivateSubHScroll2_Change（）

Label6.Caption=HScroll2.Value

EndSub

PrivateSubHScroll2_Scroll（）

Label6.Caption=HScroll2.Value

EndSub

6.遇到的问题及解决办法：

（1）.在窗体上插入图片时，标签总是覆盖住部分图片。

解决办法：

将标签属性borderstyle改为0。

（2）在试运行时，总会弹出对话框，提示语法错误。

解决本法：

根据提示检查代码编写的合法性，及时纠正。

（3）编写代码时，个别程序不熟练，不能编出。

解决办法：

求教老师，请教同学，在掌握的同时，熟练地编写出来。

7.收获和体会：

（1）通过此次综合实验的编写，发现vb的实用性，对vb产生浓厚的兴趣，鼓励我学好vb。

（2）我觉得不管做什么事会存在问题，关键在于我们发现问题后怎样寻求途径去解决。

在这次试验中，也同样遇到了很多问题，一方面通过自己查阅资料，另一方面请教老师同学，及时地解决了问题。

（3）这次实验所用的时间不短，主要原因是自己平时没能认真学好，学习态度不端正，是到临头，才觉得捉襟见肘，仓促应对，才会花费这么长时间。

通过这次实验，觉得功夫要花在平时。

教师评价

评定项目

A

B

C

D

评定项目

A

B

C

D

算法正确

界面美观，布局合理

程序结构合理

操作熟练

语法、语义正确

解析完整

实验结果正确

文字流畅

报告规范

题解正确

其他：

评价教师签名：

2011年6月30日