vb综合实验报告.doc
华北科技学院采矿工程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、 单击“退出”菜单,退出程序运行。
四、实验结果及
分析
定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析
1.欢迎界面的设置
进入欢迎界面,需要输入密码12345,运行程序。密码输入必须为数字,否则弹出消息对话框,提示需输入数字。若密码输入正确,登陆下一界面。欢迎界面如图:
主要代码为:
Private Sub Command1_Click()
If Text1.Text <> "12345" Then
Text1.SetFocus
Text1.Text = ""
MsgBox "请输入正确的密码"
第 3 页 共 11 页
华北科技学院采矿工程vb综合实验报告
Else
Unload Me
Form2.Show
End If
End Sub
2.主界面的设置
在欢迎界面点击登录后弹出主界面,利用工具——菜单编辑器依次编辑“数组应用”、“过程应用”、“控件应用”和“退出”等菜单,在数组应用下添加“数组操作”子菜单,在过程应用下添加“字符转换”子菜单,二者均链接有快捷键。当点击数组操作时,主界面关闭,数组操作界面弹出,当点击字符转换时,主界面关闭,字符转换界面弹出。在主界面窗体上添加了图片,设置命令按钮。
运行界面如图:
主要代码如下:
第 4 页 共 11 页
华北科技学院采矿工程vb综合实验报告
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
第 5 页 共 11 页
华北科技学院采矿工程vb综合实验报告
Next i
For i = 1 To 10
m = Str(a(i))
Text1.Text = Text1.Text + m + " "
Next i
End Sub
Private Sub Command1_Click()
For i = 1 To 10
m: a(i) = InputBox("请输入第" & i & "个数")
If Not IsNumeric(a(i)) Then
MsgBox "输入必须为数字", , "警告"
GoTo m
End If
Next i
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command1.Enabled = False
For i = 1 To 10
a(i) = Val(a(i))
Next i
End Sub
Private Sub Command5_Click()
Min = a(1)
For i = 2 To 10
If a(i) < Min Then Min = a(i)
Next i
第 6 页 共 11 页
华北科技学院采矿工程vb综合实验报告
Text4.Text = Min
End Sub
运行效果如下图:
4.字符转换界面的设置:
在上面文本框中输入字符,选择单选按钮,决定转换的类别,然后点击“转换”命令按钮,转换后的内容在
下文本框展现。点击“返回”,则返回主界面。
在编写代码时应用
函
关于工期滞后的函关于工程严重滞后的函关于工程进度滞后的回复函关于征求同志党风廉政意见的函关于征求廉洁自律情况的复函
数子过程,主要代码如下: Sub dxzh(a)
If Option2.Value Then a = UCase(Text1.Text)
If Option3.Value Then a = LCase(Text1.Text)
If Option1.Value Then
c = Len(a)
For i = 1 To c
m = Mid(a, i, 1)
If Asc(m) <= Asc("z") And Asc(m) >= Asc("a") Then
第 7 页 共 11 页
华北科技学院采矿工程vb综合实验报告
n = UCase(m)
ElseIf Asc(m) <= Asc("Z") And Asc(m) >= Asc("A") Then
n = LCase(m)
End If
Text2.Text = Text2.Text + n
Next i
a = Text2.Text
End If
End Sub
Private Sub Command1_Click()
Text2.Text = ""
a = Text1.Text
Call dxzh(a)
Text2.Text = a
End Sub
运行界面如下图:
5.数学运算界面的设置:
第 8 页 共 11 页
华北科技学院采矿工程vb综合实验报告 拉动滚动条,分别选中两个运算数,再选择加减乘除单选按钮,点击“计算”则显示运算式并得出结果。单
击“返回”则退回主界面。
运行效果如下图:
主要代码:
Private Sub Command1_Click()
m = Val(Label5.Caption)
n = Val(Label6.Caption)
If Option2.Value Then s = m + n: Label4.Caption = m & "+" & n & "=" & s
If Option4.Value Then s = m - n: Label4.Caption = m & "-" & n & "=" & s
If Option3.Value Then s = m * n: Label4.Caption = m & "*" & n & "=" & s
If Option1.Value Then s = m / n: Label4.Caption = m & "/" & n & "=" & s End Sub
Private Sub HScroll1_Change()
Label5.Caption = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
第 9 页 共 11 页
华北科技学院采矿工程vb综合实验报告
Label5.Caption = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Label6.Caption = HScroll2.Value
End Sub
Private Sub HScroll2_Scroll()
Label6.Caption = HScroll2.Value
End Sub
6.遇到的问题及解决办法:
(1).在窗体上插入图片时,标签总是覆盖住部分图片。
解决办法:将标签属性borderstyle改为0。
(2)在试运行时,总会弹出对话框,提示语法错误。
解决本法:根据提示检查代码编写的合法性,及时纠正。
(3)编写代码时,个别程序不熟练,不能编出。
解决办法:求教老师,请教同学,在掌握的同时,熟练地编写出来。
7.收获和体会:
(1)通过此次综合实验的编写,发现vb的实用性,对vb产生浓厚的兴趣,鼓励我学好vb。 (2)我觉得不管做什么事会存在问题,关键在于我们发现问题后怎样寻求途径去解决。在这次试验中,也同样遇到了很多问题,一方面通过自己查阅资料,另一方面请教老师同学,及时地解决了问题。 (3)这次实验所用的时间不短,主要原因是自己平时没能认真学好,学习态度不端正,是到临头,才觉得捉襟见肘,仓促应对,才会花费这么长时间。通过这次实验,觉得功夫要花在平时。
第 10 页 共 11 页
华北科技学院采矿工程vb综合实验报告
评定项目 A B C D 评定项目 A B C D
算法正确 界面美观~布局合理
程序结构合理 操作熟练
语法、语义正确 解析完整
实验结果正确 文字流畅 教 报告
规范
编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载
题解正确 师 其他:
评
价
评价教师签名:
2011年6月 30日
第 11 页 共 11 页