vb综合实验报告

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

实验报告

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

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

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

年级大一专业班级采矿B101

学生姓名朱寅学号201010014112

任课教师李芙玲

实验成绩

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

开课实验室：基础实验室2010 年7 月6日实验题目Visual Basic综合应用程序开发

一、实验目的

1、掌握数组的应用：

（1）数组的定义

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

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

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

（2）function过程的定义调用

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

3、掌握基本控件的使用

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

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

二、设备与环境

硬件：多媒体计算机

软件：Windows 2000以上的操作系统、Visual Basic集成开发环境

三、实验内容

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，运行程序。密码输入必须为数字，否则弹出消息对话框，提示需输入数字。若密码输入正确，登陆下一界面。欢迎界面如图：

主要代码为：

Private Sub Command1_Click()

If Text1.Text <> "12345" Then

Text1.SetFocus

Text1.Text = ""

MsgBox "请输入正确的密码"

Else

Unload Me

Form2.Show

End If

End Sub

2.主界面的设置

在欢迎界面点击登录后弹出主界面，利用工具——菜单编辑器依次编辑“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，在数组应用下添加“数组操作”子菜单，在过程应用下添加“字符转换”子菜单，二者均链接有快捷键。当点击数组操作时，主界面关闭，数组操作界面弹出，当点击字符转换时，主界面关闭，字符转换界面弹出。在主界面窗体上添加了图片，设置命令按钮。

运行界面如图：

主要代码如下：

Private Sub sc_Click()

Unload Me

Form3.Show

End Sub

Private Sub sxys_Click()

Unload Me

Form5.Show

End Sub

Private Sub tc_Click()

End

End Sub

Private Sub zfzh_Click()

Unload Me

Form4.Show

End Sub

3.数组操作界面的设置

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

主要代码如下：

Private Sub Command2_Click()

For i = 1 To 9

imin = i

For j = i + 1 To 10

If a(j) < a(imin) Then imin = j

Next j

t = a(i)

a(i) = a(imin)

a(imin) = t