华北科技学院采矿工程vb综合实验报告
华北科技学院安全工程学院综合性实验
实 验 报 告
课程名称 计算机技术基础（VB） 实验学期 2010 至 2011 学年 第 2 学期 学生所在系部 安全工程学院 年级 大一 专业班级 采矿B101 学生姓名 朱寅 学号 201010014112 任课教师 李芙玲 实验成绩
第 1 页 共 11 页
华北科技学院采矿工程vb综合实验报告
《 计算机技术基础（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、标题为“计算”的命令按钮；两个水平滚动
第 2 页 共 11 页
华北科技学院采矿工程vb综合实验报告
条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。
6、 单击“退出”菜单，退出程序运行。
四、实验结果及分析
1.欢迎界面的设置
进入欢迎界面，需要输入密码12345，运行程序。密码输入必须为数字，否则弹出消息对话框，提示需输入数字。若密码输入正确，登陆下一界面。欢迎界面如图：
主要代码为：
Private Sub Command1_Click() If Text1.Text <> \ Text1.SetFocus Text1.Text = \
MsgBox \请输入正确的密码\
第 3 页 共 11 页