VB综合实验报告.docx
- 文档编号:26304305
- 上传时间:2023-06-17
- 格式:DOCX
- 页数:19
- 大小:130.02KB
VB综合实验报告.docx
《VB综合实验报告.docx》由会员分享,可在线阅读,更多相关《VB综合实验报告.docx(19页珍藏版)》请在冰豆网上搜索。
VB综合实验报告
华北科技学院计算机学院综合性实验
实验报告
课程名称程序设计语言(VB)
实验学期2015至2016学年第二学期
学生所在系部安全工程学院
年级2015级班级安卓B151
学生姓名徐艳强学号201510044218
任课教师李冬艳
实验成绩
计算机学院制
《程序设计语言(VB)》课程综合性实验报告
开课实验室:
基础三2016年6月29日
实验题目
VisualBasic综合应用程序开发
一、实验目的
1、掌握数组的应用:
(1)数组的定义
(2)数组的基本操作,包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。
2、会使用过程编程和字符串操作
(1)sub过程的定义与调用
(2)function过程的定义调用
(3)字符串的大小写转换操作
3、掌握基本控件的使用
包括常用标准控件的使用,如标签、按钮、文本框、单选按钮、滚动条等。
4、掌握菜单和工具栏的使用
二、设备与环境
硬件:
多媒体计算机
软件:
Windows7以上的操作系统、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.“过程应用”菜单中包括“字符转换”和“选择器”子菜单。
(1)单击“字符转换”菜单,弹出“字符转换”对话框,如图2所示,要求必须将“大小写转换”功能定义为一个sub过程,通过调用该过程完成大小写转换。
(2)单击“选择器”菜单,弹出“选择器”对话框,在组合框中选择省份,在左侧的列表框中就会出现对应省份的大学,单击“>”按钮,会把左侧列表框中你选择的大学移动到右侧的列表框中,而当你单击“>>”按钮时,会把左侧全部的大学移动到右侧的列表框中;同理但你单击“<”按钮时,会把右侧列表框中你所选择的大学移动到左侧的列表框中,单击“<<”按钮时,会把右侧所有的大学移动到左侧的列表框中。
(25%)
题目描述如下:
(1)在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。
运行时,在text1中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放入text2。
(2)在“选择器”窗体上有一个组合框、两个列表框和四个命令按钮。
运行时,在组合框中选择省份,会在list1中出现相应的学校,单击“>”的时候会将list1中所选中的学校移动到list2中
单击“>>”按钮后,会将list1中全部的学校转移到list2中。
单击“<”的时候会将list2中所选中的学校移动到list1中,单击“<<”按钮后,会将list2中全部的学校转移到list1中。
5.单击“控件应用”菜单,弹出“数学运算”对话框,如图3所示。
(25%)
题目描述如下:
在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮;两个水平滚动条,名称为hs1和hs2,其max属性均为100,min属性为1;四个标签,名称为lab1、lab2、lab3和lab4,标题分别为“运算数1”、“运算数2”、“运算结果”和空白;此外包含四个单选按钮,标题为“+”、“-”、“*”和“/”。
程序运行后,移动两个滚动条中的滚动框,用滚动条的当前值作为运算数,如果选中一个单选按钮,然后单击命令按钮,相应的计算结果将显示在label4中。
6.单击“退出”菜单,退出程序运行。
四.实验结果及分析
1.菜单
(1)功能
主要功能就是把每个小程序串联起来,使其连续、具有整体性。
分为数组应用、控件应用、过程应用、和退出四个一级菜单。
在数组应用一级菜单下有数组操作二级菜单、控件应用一级菜单下有选择器和数学运算两个二级菜单、过程应用一级菜单下有字符转换二级菜单。
其中一级菜单中,单击退出后实现结束程序的目的,二级菜单对应每个程序,单击二级菜单会实现出现对相应的程序窗体。
(2)界面抓取
(3)实现代码
PrivateSub数学运算_Click()
数学运算窗体.Show
EndSub
PrivateSub数组操作_Click()
数组操作窗体.Show
EndSub
PrivateSub退出_Click()
End
EndSub
PrivateSub选择器_Click()
选择器窗体.Show
EndSub
PrivateSub字符转换_Click()
字符转换窗体.Show
EndSub
2.初始界面
(1)功能
人员分工介绍。
(2)界面抓取
(3)实现代码
PrivateSubtxyd(ByValaAsString)
'一个移动图片的子过程
Ifa="yd"Then
Image1.Left=17000
Timer1.Enabled=True
Text1.Visible=False
Timer1.Interval=50
Label6.Visible=False
EndIf
EndSub
PrivateSubCommand1_Click()
登录页面.Show
Unload初始界面
EndSub
PrivateSubForm_Load()
Image1.Left=17000
'把图片框移动到一个看不到的位置的上
Timer1.Enabled=False
Timer1.Interval=50
Text1.Visible=False
EndSub
PrivateSubLabel2_Click()
Image1.Picture=LoadPicture(App.Path+"\xyq.jpg")
Calltxyd("yd")
Text1="徐艳强:
负责串接所有程序、字符转换、菜单的建立和设计、选择器制作。
"
EndSub
PrivateSubLabel3_Click()
Image1.Picture=LoadPicture(App.Path+"\ds.jpg")
Calltxyd("yd")
Text1="丁松:
负责登录页面及首页"
EndSub
PrivateSubLabel4_Click()
Image1.Picture=LoadPicture(App.Path+"\zzz.jpg")
Calltxyd("yd")
Text1="张泽中:
负责数组操作。
"
EndSub
PrivateSubLabel5_Click()
Image1.Picture=LoadPicture(App.Path+"\wll.jpg")
Calltxyd("yd")
Text1="王龙龙:
负责数学运算。
"
EndSub
PrivateSubTimer1_Timer()
Image1.Left=Image1.Left-100
IfImage1.Left=100ThenText1.Visible=True:
Timer1.Enabled=False
EndSub
3.数组应用
(1)功能
开始启动工程时,界面上除“输入”及“返回”按钮之外,其他按钮均不可用(灰色显示)。
单击“输入”按钮之后,利用inputbox让用户连续且必须输入10个整数。
若输入为非数字符号则给出警告“输入数据无效,请重新输入,请输入第n个数”。
输入完毕后,“输入”按钮变灰,其他变为可用状态。
按相应的按钮可分别将输入的数据升序或降序排列,及求最大、最小值,并在右侧对应的文本框中显示(注意用A(10)存放最大数,A
(1)存放最小数)。
单击“清空”按钮将所有文本框清空。
(2)界面抓取
(3)实现代码
Dima(1To10)AsInteger
PrivateSubCommand1_Click()
Text1=""
Fori=1To9
Forj=i+1To10
Ifa(i)>a(j)Then
T=a(i)
a(i)=a(j)
a(j)=T
EndIf
Nextj
Nexti
Fori=1To10
Text1=Text1&""&a(i)
Next
EndSub
PrivateSubCommand2_Click()
Fori=1To9
Forj=i+1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 综合 实验 报告