VisualBasic程序设计实验指导书09资源采矿.docx
- 文档编号:5062907
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:49
- 大小:2.46MB
VisualBasic程序设计实验指导书09资源采矿.docx
《VisualBasic程序设计实验指导书09资源采矿.docx》由会员分享,可在线阅读,更多相关《VisualBasic程序设计实验指导书09资源采矿.docx(49页珍藏版)》请在冰豆网上搜索。
VisualBasic程序设计实验指导书09资源采矿
《VisualBasic》实验指导书
编制人:
李雯静
资源工程系
二○○七年九月
VisualBasic实验指导书
VisualBasic实验指导书(1
实验一:
VisualBasic简单程序设计及语言基础(4
实验二:
命令按钮、文本框和标签(7
实验三:
表达式、InputBox函数和MsgBox语句(10
实验四:
选择结构(13
实验五:
循环语句的使用(17
实验六:
单选框和复选框的应用(21
实验七:
组合框的应用(24
实验八:
图像框的应用(27
实验九:
定时器(30
实验十:
滚动条(33
实验十一:
数组(36
实验十二:
Function过程(38
实验十三:
Sub过程(40
实验十四:
菜单设计(43
实验十五:
工具栏,状态栏设计(46
实验十六:
绘图程序设计(52
实验十七:
顺序文件操作(56
实验十八:
随机文件操作(59
实验十九:
文件系统控件(62
说明:
实验1-16为实验上机必须完成的实验,其中实验1-13的1个学时在课堂上完成,另外1个学时由学生自行课后补充完成。
实验17-19为选做实验,可根据学生对本课程的学习情况选择是否进行,在课后自行完成。
实验一:
VisualBasic简单程序设计及语言基础
一、实验目的
熟悉VisualBasic6.0集成开发环境;
了解和掌握类、对象以及对象的三要素(属性、方法和事件;
理解并掌握VB程序的执行步骤。
二、实验内容
初步掌握VisualBasic6.0集成开发环境的操作
能够建立一个简单的VB小程序,实现类的抽象,属性、方法和事件的定义和简单的响应
正确理解实验步骤,能够自己动手操作
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.开发一个简单程序
(1新建工程
方法1:
在桌面上双击MicrosoftVisualBasic6.0快捷方式图标,系统进入VisualBasic6.0集成开发环境,并显示“新建工程”对话框,默认选择是建立“标准EXE”(即标准工程。
单击“打开”按钮,VisualBasic6.0进入设计模式。
如图1.1所示。
图1.1新建工程对话框
方法2:
单击“文件”菜单,选择“新建工程”菜单项,也可进入设计模式。
(2设计界面
在系统提供的名为Form1的窗体上进行界面设计。
单击工具箱上的标签(Label控件,在窗体上添加标签的位置处按下鼠标左键,并拖动,调整虚框的大小,松开鼠标,就将标签控件添加到窗体上。
初始界面如图1.2所示。
图1.2初始界面
(3设置属性
如表1.1所示。
表1.1属性设置
设置属性后的界面如图1.3所示。
图1.3设置属性后的界面图1.4第一个程序
(4编写程序代码
PrivateSubForm_Click(
Label1.Caption="床前明月光"
EndSub
(5运行程序
运行VB程序有三种方法:
①单击工具栏上的“启动”按钮;②从“运行”菜单中选择“启动”菜单项;③按F5键。
例如,单击工具栏上的“启动”按钮运行程序后,单击窗体,程序运行效果如图1.4所示。
(6保存程序
单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项,选择合适的保存路径,先保存窗体文件(例如窗体文件名为“实验一.frm”,然后保存工程文件(例如工程文件名为“实验一.vbp”。
2.将VisualBasic工程编译生成可执行文件
单击“文件”菜单中的“生成实验一.exe”菜单项,就可生成可执行的.exe文件。
退出VisualBasic集成开发环境,双击实验一.exe文件,则实验一.exe文件就可直接运行。
六、实验报告要求
格式规范合理,内容包括创建一个简单的VisualBasic窗体程序。
类的创建,类的方法,属性和事件。
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
如何实现现实世界的对象和计算机世界中的类的联系?
实验二:
命令按钮、文本框和标签
一、实验目的
1.掌握命令按钮、文本框和标签常用属性值的设置方法。
2.学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。
3.掌握命令按钮的主要事件的使用。
二、实验要求
利用命令按钮、文本框和标签判断密码是否正确
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.设计界面
在窗体上添加两个标签、一个文本框和两个命令按钮。
初始界面如图2.1所示。
图2.1初始界面
2.设置属性
如表2.1所示
表2.1属性设置
对象属性属性值
Label1Caption请输入密码:
Command1Caption登陆
Command2Caption退出
Label2Caption
Label2BorderStyle1-FixedSingle
Text1Text
Text1MaxLength16
Text1PasswordChar*
Form1Caption登陆界面
设置属性后的界面如图2.2所示
图2.2设置属性后的界面
3.编写程序代码
PrivateSubCommand1_Click(
IfText1.Text=“goodbaby”Then
Label2.Caption=“欢迎使用本系统!
”
Else
Label2.Caption=“密码错误!
请重新输入密码!
”
EndIf
EndSub
PrivateSubCommand2_Click(
End
EndSub
4.运行程序
(1在文本框中输入“goodbaby”,然后单击“登录”命令按钮,则在标签Label2中显示“欢迎使用本系
统!
”。
运行结果如图2.3所示。
图2.3输入的密码正确
2在文本框中输入“abc”,然后单击“登录”命令按钮,则在标签Label2中显示““密码错误!
请重新输入密码!
”。
运行结果如图2.4所示。
图2.4输入的密码错误
六、实验报告要求
格式规范合理,内容包括一个简单的VisualBasic程序,利用命令按钮、文本框和标签判断密码
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
VB程序的窗体设计的一般方法和过程?
实验三:
表达式、InputBox函数和MsgBox语句
一、实验目的
1.掌握表达式的构成和如何求表达式的值。
2.掌握赋值语句的使用。
3.掌握InputBox函数的使用。
4.掌握MsgBox语句的使用。
二、实验内容
设计一个VB程序,利用InputBox函数和MsgBox语句求圆的周长。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.设计界面
在窗体上添加一个命令按钮。
初始界面如图3.1所示。
图3.1初始界面
2.设置属性
如表3.1所示
表3.1属性设置
对象属性属性值
Command1Caption计算圆的周长
Form1CaptionInputBox和MsgBox举
例
设置属性后的界面如图3.2所示
图3.2设置属性后的界面
3.编写程序代码
PrivateSubCommand1_Click(
Constpi=3.14159
DimrAsSingle,sAsString,s2AsString
DimzhouchangAsSingle
s=InputBox("请输入半径","输入半径",1
r=Val(s
zhouchang=2*pi*r
s2="半径="+s+",圆的周长="+Str(zhouchang
MsgBoxs2,64,"确认窗口"
EndSub
4.运行程序
单击工具栏上的“启动”按钮,进入运行模式。
单击“计算圆的周长”命令按钮,在输入框中输入圆的半径(例如,输入“2”,在消息框中输出半径和计算出来的圆的周长,如图3.3所示。
(a单击“计算圆的周长”命令按钮
(b输入圆的半径
(c输出圆的半径和周长
图3.3计算圆的周长
九、实验报告要求
设计VB程序,能够正确的计算结果。
六、实验注意事项
注意机房及计算机使用规范。
七、思考题目
VB控件的使用方法和步骤?
实验四:
选择结构
一、实验目的
1.掌握逻辑表达式的正确书写形式。
2.掌握单分支与双分支条件语句的用法,熟悉If….Then…..Else语句。
3.掌握选择结构中多条件,多分支程序的用法,熟悉SelectCase语句
二、实验内容
1.编写程序,利用文本框检查用户密码。
提示:
可以用文本框的PasswordChar属性来隐蔽用户输入的字符。
提示:
设密码是“123456”,利用文本框的PasswordChar属性可以隐蔽用户输入的字符。
2.输入一个数字(0-6,用中英文显示星期几。
提示:
用多条件多分支选择语句Select
Case来解决。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
(1建立用户界面。
(2设置对象属性。
(3编写事件代码。
PrivateSubText1_KeyPress(KeyAsciiAsInteger
IfKeyAscii=13Then'回车字符的Ascii为13
IfText1.Text="123456"Then
Label1.Caption="欢迎使用本系统!
"
Else
Label1.Caption="对不起,密码错!
"
EndIf
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text
EndIf
EndSub
(4运行程序
程序输出界面如图2-4-1,图2-4-2所示。
图2-4-1验证密码正确图2-4-2验证密码不正确(1建立用户界面。
参考图2-4-3所示。
图2-4-3界面设计
(2设置对象属性。
表2-4-2属性设置
(3编写事件代码。
PrivateSubCommand1_Click(DimnAsInteger,mAsString
n=Val(Text1.Text
SelectCasen
Case1
m="星期一(Monday"
Case2
m="星期二(Tuesday"
Case3
m="星期三(Wednesday"Case4
m="星期四(Thursday"
Case5
m="星期五(Friday"
Case6
m="星期六(Saturday"
Case0
m="星期日(Sunday"
CaseElse
m="重新输入"
EndSelect
Label2.Caption=m
EndSub
程序输出界面如图2-4-4所示。
图2-4-4程序运行结果
六、实验报告要求
建立VB程序,正确实现实验所要求的内容。
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
VB程序的流程控制方法?
实验五:
循环语句的使用
一、实验目的
1.掌握For语句的使用。
2.掌握Do语句的使用。
3.掌握如何控制循环条件,防止死循环或不循环。
二、实验内容
正确掌握循环语句的使用方法。
1.利用For循环求S=1+(1+2+(1+2+3+...+(1+2+3+...+n的值。
提示:
本题是先进行内循环累加,再进行外循环累加,因此需要两个累加器.也可用一个循环来实现.括号内每累加一个数,就往S中累加一次。
2.输入一个正整数,利用“当型”循环判断是否素数。
提示:
“素数”是除了1和该数本身,不能被任何整数整除的数,判断一个自然数是否素数,只要依次2~n用做除数去除n,若n不能被其中任何一个数整除,则n为素数。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
(1建立用户界面。
(2设置对象属性。
参考图2-5-1所示。
图2-5-1属性设置图2-5-2程序运行结果(3编写事件代码。
PrivateSubCommand1_Click(
DimnAsInteger,iAsInteger,jAsInteger,sAsLongn=Val(Text1.Text
j=0:
s=0
Fori=1Ton
j=j+i
s=s+j
Nexti
Label2.Caption="和数S="&Str(s
Text1.SelLength=Len(Text1.Text
EndSub
(4运行程序
程序输出界面如图2-5-2所示。
2.实验内容
(1建立用户界面。
参考图2-5-3所示。
图2-5-3界面设计
(2设置对象属性。
(3编写事件代码。
PrivateSubText1_GotFocus(
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text
EndSub
PrivateSubCommand1_Click(
DimnAsLong
SelectCaseVal(Text1.Text
CaseIs<3
MsgBox"请输入一个大于2的整数",vbInformation+vbOKOnly,"注意"CaseIs>2147483647
MsgBox"该数太大",vbInformation+vbOKOnly,"注意"
CaseElse
n=Val(Text1.Text
s=0
i=2
DoWhilei<=Sqr(nAnds=0
IfnModi=0Then
s=1
Else:
i=i+1
EndIf
Loop
Ifs=0Then
a="是一个素数"
Else
a="不是一个素数"
EndIf
Label1.Caption=Str(n&a
EndSelect
Text1.SetFocus
EndSub
(4运行程序
程序运行结果如图2-5-4所示。
图2-5-4程序运行结果
六、实验报告要求
正确创建VB程序,实现实验要求中的内容。
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
那些情况下会用到循环语句,循环语句与选择语句使用情况的区别。
DO语句和For语句的异同?
实验六:
单选框和复选框的应用
一、实验目的
1.掌握单选框,复选框的定义。
2.掌握单选框,复选框的区别。
二、实验内容
建立一个标准工程实现单选框和复选框的组合应用。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.设计界面
在窗体上添加一个单选框组(包含三个单选框,一个复选框组(包含三个复选框,两个标签框。
初始界面如图2-6-1所示。
图2-6-1初始界面图2-6-2设置属性后的界面
2.设置属性,如表2-6-1所示。
表2-6-1
设置属性后的界面如图2-6-2所示。
3.编写程序代码
PrivateSubCheck1_Click(indexAsInteger
DimkAsString
DimiAsInteger
k=""
Fori=0To2
IfCheck1(i.Value=1Then
k=k&Check1(i.Caption&""
EndIf
Nexti
k="你选择了"&k
Label2.Caption=k
EndSub
PrivateSubOption1_Click(indexAsInteger
DimiAsInteger
Fori=0To2
IfOption1(index.Visible=TrueThen
Label1.Caption="你选择了"&Option1(index.Caption
EndIf
Nexti
EndSub
4.运行程序
分别单选框中的某一项和复选框中的某几项,程序运行效果如图2-6-3所示。
图2-6-3运行结果
六、实验报告要求
建立VB程序,正确实现单选框和复选框的应用
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
哪些情况下会使用单选框,哪些情况会使用复选框?
实验七:
组合框的应用
一、实验目的
1.掌握组合框的常用属性。
2.了解列表框和组合框的区别。
二、实验内容
运用组合框实现内容的添加与删除功能。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.设计界面
在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。
初始界面如图2-7-1所示。
图2-7-1初始界面图2-7-2设置属性后的界面
2.设置属性,如表2-7-1所示。
表2-7-1属性设置
设置属性后的界面如图
3.编写程序代码
PrivateSubCmdAdd_Click(CboMsg.Text=TxtInfor.Text
EndSub
PrivateSubCmdClear_Click(
CboMsg.Clear
EndSub
PrivateSubCmdDel_Click(
DimIntIndexAsInteger
IntIndex=CboMsg.ListIndex
CboMsg.Text=""
CallDel(IntIndex
EndSub
PrivateSubCmdEnd_Click(
End
EndSub
PrivateSubForm_Load(
WithCboMsg
AddItem"武汉大学",0
AddItem"武汉科技大学",1
AddItem"武汉理工大学",2
AddItem"华中科技大学",3
ListIndex=0
EndWith
EndSub
4.运行程序结果如图2-7-3所示
图2-7-3程序运行结果
六、实验报告要求
建立VB程序,正确实现组合框的内容应用。
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
组合框的使用方法和环境。
实验八:
图像框的应用
一、实验目的
1.熟悉图像框与图片框的区别。
2.掌握图像框的属性与特点
二、实验内容
将一个图形文件放到图像框中,改变图像框的大小,观察图形是否随之改变。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.设计界面
在窗体上添加五个命令按钮和一个图像框。
初始界面如图2-8-1所示。
图2-8-1初始界面图2-8-2设置属性后的界面
2.设置属性,如表2-8-1所示。
表2-8-1属性设置
设置属性后的界面如图2-8-2所示。
3.编写程序代码
PrivateSubCommand1_Click(
Image1.Left=Image1.Left-Image1.Width/2
Image1.Width=Image1.Width*2
EndSub
PrivateSubCommand2_Click(
Image1.Top=Image1.Top-Image1.Height/2
Image1.Height=Image1.Height*2
EndSub
PrivateSubCommand3_Click(
Image1.Left=Image1.Left-Image1.Width/2
Image1.Width=Image1.Width*2
Image1.Height=Image1.Height*2
EndSub
PrivateSubCommand4_Click(
Image1.Left=2225
Image1.Top=666
Image1.Height=1515
Image1.Width=1515
EndSub
PrivateSubCommand5_Click(
End
EndSub
4.运行程序
分别单击五个命令按钮,程序运行效果如图2-8-3~2-8-6所示。
图2-8-3改变宽度后运行结果图2-8-4改变高度后运行结果
图2-8-5改变高度和宽度后的运行结果图2-8-6恢复原始尺寸
六、实验报告要求
建立VB程序,正确实现以上内容。
七、实验注意事项
注意机房及计算机使用规范。
八、思考题目
图像框的应用方式和场合。
实验九:
定时器
一、实验目的
1.掌握定时器控键的用法。
2.熟悉定时器控键的属性。
二、实验内容
编写一个程序利用计时器计时。
三、实验仪器、设备及材料
硬件环境:
PC
软件环境:
操作系统Windows系列
VisualBasic6.0
四、实验原理
VB程序开发原理
五、实验步骤
1.设计界面
在窗体上添加四个命令按钮,一个标签,一个计时器控件。
初始界面如图2-9-1所示。
图2-9-1初始界面
2.设置属性,如表2-9-1所示。
表2-9-1属性设置
设置属性后的界面如图2-9-2所示
图2-9-2设置属性后的界面
3.编写程序代码
PrivateSubcommand1_Click(
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click(
Timer1.Enabled=False
EndSub
PrivateSubCommand3_Click(
Label1.Caption="0"
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic 程序设计 实验 指导书 09 资源 采矿