VB实验指导书1.docx
- 文档编号:17658978
- 上传时间:2023-07-27
- 格式:DOCX
- 页数:48
- 大小:400.12KB
VB实验指导书1.docx
《VB实验指导书1.docx》由会员分享,可在线阅读,更多相关《VB实验指导书1.docx(48页珍藏版)》请在冰点文库上搜索。
VB实验指导书1
《VB程序设计》实验指导书
江西应用技术职业学院
前言
本实验指导书以VisualBasic6.0为语言背景,主要内容包括VB语言基础,输入输出,分支程序设计,循环程序设计,数组,过程,数据文件的存取,程序的调试、综合应用等。
主要是培养学生基本的编程思路和掌握简单的算法及实际应用能力,了解VB开发小型应用程序的整个过程。
目录
实验1VisualBasic操作基础
实验2程序设计基础1
实验3程序设计基础2
实验4窗体、标签、文本框和按钮
实验5框架、选项按钮、列表框和组合框
实验6菜单与工具栏
实验7过程与函数
实验8数据库功能
实验9图形与图像
实验10文件管理
实验1VisualBasic操作基础
一、目的和要求
∙熟练掌握VisualBasic6.0的启动方法。
∙熟悉VB的开发环境。
∙熟悉常用菜单,使用菜单和工具栏创建工程,保存工程生成exe文件。
∙学会向窗体中放置控件和使用属性窗口。
∙学会建立一个简单界面的应用程序,在代码编辑窗口中添加代码。
∙掌握启动工程和结束工程的方法。
二、内容和步骤
㈠基础级
学习用VB编程,必须先熟悉VB的集成开发环境。
VB的集成开发环境包括标题栏,菜单栏,控件箱和窗体。
1.启动与退出VB
启动VB如下图所示,选择“标准EXE”图标,单击“打开”按钮,新建一个“标准EXE”工程。
2.创建界面
创建第一章【例一】的界面,熟悉控件的使用。
(1)创建控件
·在控件箱中双击选定的控件,该控件自动出现在窗体中间。
·在控件箱中单击选定的控件,将变成十字线的鼠标指针放在窗体上,拖动十字线画出合适的控件大小。
(2)选择控件
·单击某个控件,当控件四周出现尺寸柄时表示控件被选中。
·用,,,方向键在不同的控件中切换。
·按Shift键,依次单击几个控件则同时选中几个控件。
·按Ctrl键,在依次单击几个控件,可以同时选中几个控件。
·在控件的外围拖出一个选择框,则在框内的所有控件同时选中。
(3)移动控件
·先用鼠标选择控件,在把窗体上的控件拖到一个新位置。
·先选择控件,然后在“属性”窗口中改变“Top”和“Left”属性。
·先选择控件,用Ctrl+方向键调整控件位置。
(4)调整控件大小
·先选择某控件,然后拖动尺寸柄向各个方向调整大小。
·先选择某控件,然后在“属性”窗口中改变“Width”和“Height”属性。
·先选择控件,用Shift+方向键调整控件位置。
(5)安排控件位置
·为使控件在窗体中的位置整齐统一,使用同时选中多个控件的方法。
如,同时选中控件Command1和Text1,通过“格式”菜单中的“对齐”“统一尺寸”等安排控件的位置和大小。
(6)删除控件
·选中某控件,按Del键则删除该控件。
(7)琐定控件
(8)·先选择控件,单击“格式”菜单选取“琐定控件”命令。
·先选择控件,用鼠标右键单击“窗体编辑器”在快捷菜单中单击“锁定控件”命令。
·锁定控件是将窗体上所有的控件锁定在当前位置,防止已经处于理想位置的控件因不小心而被移动。
3.设置属性
设置属性先选中控件或窗体的,在属性窗口中修改各属性的值。
(1)将文本框Text1和命令按钮Command!
的属性窗口的“名字”属性改变成txtYou和cmdRun
(2)将文本框txtYou的属性窗口中的“BackColor”和“ForColor”属性分别改变成黄色和蓝色。
(3)修改文本框txtYou的属性窗口中的“Font”属性,单击按钮
出现字体属性页。
分别将“字体”和“大小”改变成“粗体”和“小二”。
(4)用窗体“Form1”属性窗口改变“Icon”属性,改变窗体的图标;单击“Icon”属性后的按钮
,选择另一个图标。
通过设置窗体的Icon属性,换一个能够说明窗体或应用程序的具体用途的图标,使它们在窗体最小化时出现。
(5)设置窗体“Form1”属性窗口改变“Caption”属性改为“你好”。
(6)修改txtYou的属性“Text1”为“你好”。
4.改变代码
修改事件cmdRun_Click的代码,使按下按钮后由“txtYou”变成消失
PrivateSubCmdRun_Click()
TxtYou.Visible=False
EndSub
5.保存工程
保存工程可在工具栏中单击“保存”按钮,或选择“文件”菜单,单击“保存”命令。
先后出现“文件另存为”和“工程另存为”两个对话框,默认将窗体文件保存为“Form1.frm”,将工程保存为“工程1.vbp”文件。
6.运行程序
运行程序的方法有三种:
·直接按“F5”键。
·在工具栏中单击按钮。
·选择“运行”(RUN)菜单,单击“运行”命令。
㈡提高级
1.设置窗体和工程的“属性和文件名”
分别在窗体和工程的属性窗口中,将“名称”属性设置为“frmHello”和“Hello”;
然后选择“文件”菜单的“另存为”命令,分别将窗体文件保存为“frmHello.frm”,将工程文件保存为“ExHello.vbp”文件。
2.生成可执行文件
为使程序脱离VB环境直接运行,可将程序编译成可执行文件(.exe文件)。
选择“文件”菜单,单击“生成exe”命令,打开“生成工程”对话框,输入文件名,单击“确定”按钮
3.学会使用帮助
VB与大多数其他的应用软件一样,提供了大量详细的帮助信息,使用帮助菜单便是得
到这些帮助信息的最有效和最主要的途径。
点击“帮助”下拉菜单中的“内容”、“索
引”或“搜索”命令,VB将直接打开“MSDNLibraryVisualStudio6.0”界面,“MSDN
LibraryVisualStudio6.0”是微软公司的帮助资源库。
三、思考题
(1)将窗本的标题改为“我的第一个应用程序”。
(2)在增加一个命令按钮,一个显示文本、另一个隐藏文本,。
(3)将单击改为双击显示“又击了命令按钮”。
实验2程序设计基础1
一、目的和要求
∙掌握VB的常量、变量、数组和表达式的定义。
∙熟练掌握VB简单的语句书写。
∙掌握分支结构的使用。
∙掌握循环结构的使用。
∙掌握各种常用函数的使用。
二、内容和步骤
㈠基础级
1.电路图的计算
计算如图T2.1所按示电路图中的电流I,已知电路图中电阻R1=200Ω,R2=300Ω,R3=600Ω。
根据欧姆定律有:
R=R1+R3*R2/(R3+R2),I=U/R。
通过文本框txtInput输入电压,单击按钮“计算”(cmdStart)开始运算,在文本框txtOutput中输出计算出的电流I。
(1)新建一个“标准EXE”工程;出现一个新的Form窗口。
(2)设置属性
在窗口中放置两个Lable控件,两个TextBox控件和一个CommandButton控件,界面安排如图T2.2所示。
T2.1
T2.2
对控件的取名采用前缀部分和控件名组合,如txtInput,cmdStart,labOutput等,属性设置如下表所示:
表T2.1属性设置
对象
控件名称
属性名称
属性值
Lable
labInput
Caption
输入电压
labOutput
Caption
输出电压
TextBox
txtInput
Text
空
txtOutput
Text
空
CommandButton
cmdStart
Caption
计算
(3)添加代码
双击Form窗口或单击“工程资源管理器”窗口中的“查看代码”按钮,打开代码编辑器。
在单击按钮cmdStart的过程中添加代码;单击代码编辑器的对象列表框下拉按钮,选择cmdStart;如图(a)单击代码窗口的过程列表框下拉按钮,选择Click过程。
如图(b)
T2.3(a)T2.3(b)
程序代码如下:
PrivateSubcmaStart_Click()
DimR1,R2,R3,RAsSingle
DimUAsSingle
DimIAsSingle
R1=200:
R2=300:
R3=600
U=Val(txtInput.Text)
R=R1+R2*R3/(R2+R3)
I=U/R
txtOutput.Text=I
EndSub
·程序代码中运算的变量R1,R2,R3,R,U和I都为单精度型变量。
·文本框txtInput的属性是字符型的,因此在计算时必须用Val()函数进行转换。
(4)保存工程
单击“文件”菜单,选择“保存工程”命令,将窗口保存为“frmExe0401.frm”,工程保存
为“Exe0401.vbp”。
(5)运行
单击“运行”菜单,选择“启动”命令,或单击工具栏的“启动”按钮;在窗体的文本框输入电压值,然后单击“计算”按钮,则出现运行结果,如图T2.4所示。
T2.4
2.逆序存放
将一个数组中的值按逆序重新存放。
原来:
8,6,5,4,1;改为1,4,5,6,8。
功能要求:
在单击窗体时进行逆序排序,并用Print语句打印结果。
(1)新建一个“标准EXE”工程;
出现一个新的Form窗口。
(2)添加代码
单击Form1窗口时运算,因此在单击窗体的事件的过程中添加代码。
单击代码窗口的对象列表框下拉按钮,选择Form,如图T2.3(a)所示。
然后单击代码窗口的过程列表框下拉按钮,选择Click过程,在“PrivateSubForm_Click”过程中添加代码。
·输入数组各数据并且显示,用符号常数N表示数组元素的个数:
PrivateSubForm_Click()
ConstN=5
Dima(N),i,TempAsInteger
a(0)=8:
a
(1)=6:
a
(2)=5:
a(3)=4:
a(4)=1
Print"显示a数组"
Fori=0ToN-1
Printa(i);Spc
(1);
Nexti
EndSub
·将数组逆序,逆序的方法是将第i个元素和第N-1-i个元素交换采用循环,直到中间的位置,共循环Int(N/2)次。
在“EndSub”前添加如下代码:
Fori=0ToInt(N/2)
Temp=a(i)
a(i)=a(N-i-1)
a(N-i-1)=Temp
Nexti
Print"显示逆序排的a数组"
Fori=0ToN-1
Printa(i);Spc
(1);
Nexti
(3)保存工程:
单击“文件”菜单,选择“保存工程”命令。
(4)运行:
单击“运行”菜单,选择“启动”命令,单击出现的窗体则出现运行的结果,如图T2.5所示。
3.杨辉三角形
打印出以下的杨辉三角形(要求打印出10行)
1
杨辉三角形的第一列和对角线元素为1,其他元素为上一行相邻两元素的和。
必须采用二维数组来实现,单击窗体时开始计算,用Print语句输出到窗体上。
11
121
1331
14641
......
(1)新建一个“标准EXE”工程;出现一个新的Form窗口。
(2)添加代码
·在单击窗体的事件中添加代码,第一列和对角线上的元素为1:
PrivateSubForm_Click()
ConstN=10
Dimi,j,a(N,N)AsInteger
Fori=0ToN-1'第一列和对角线元素为1:
a(i,i)=1
a(i,0)=1
Nexti
EndSub
·计算中间元素值:
a(i,j)=a(i-1,j-1)+a(i-1,j)。
在“EndSub”前添加如下的代码。
Fori=2ToN–1‘其他中间元素的运算
Forj=1Toi-1
a(i,j)=a(i-1,j-1)+a(i-1,j)
Nextj
Nexti
·使用Print语句输出数组的值;用“;”号是连接数据,换行用无参数的Print语句。
在“EndSub”前添加如下的代码。
Print"显示杨辉三角形"
Fori=0ToN-1
Forj=0Toi
Printa(i,j);
Nextj
Next
练习:
若要打15行如何修改程序?
若要把程序中的ForNext循环的步长改为Step-1,则程序如何修改
(3)保存窗体
(4)运行结果单击窗体,运行结果如图T2.6。
㈡提高级
1.一句多行和一行多句
·用“:
”将“杨辉三角形”程序“a(i,i)=1”和“a(i,0)=1”两句放在一行上。
a(i,i)=1:
a(i,0)=1
·将“a(i,j)=a(i-1,j-1)+a(i-1,j)”放在两行上。
a(i,j)=a(i-1,j-1)+_
a(i-1,j)
2.将“杨辉三角形”中的显示数据对齐
将“杨辉三角形”中的数据每列对齐,可以使用Tab(n)函数,将光标移动到第n列,
如图T2.7所示。
将程序代码“Printa(i,j);”修改为“Printa(i,j);Tab((j+1)*5);”
实验3程序设计基础2
一、目的和要求
∙熟练掌握常用函数的使用。
∙熟练掌握分支结构的使用。
∙熟练掌握循环结构的使用。
∙掌握常用简单算法的编程。
二、内容和步骤
㈠基础级
1.用筛选法求素数
用筛选法求100以内的素数。
素数是指一个数除了1和它本身,不能被其他任何整数整除。
算法:
将100以内的每个数都被2到√X的数除,若出现能被整除的数就不是素数;如果到最后仍然不能被整除,则该数就是素数。
用筛选法求素数必须采用双循环来实现,单击窗体时进行计算。
(1)新建一个“标准EXE”工程;
出现一个新的Form窗口。
(2)添加代码
·在单击窗体的事件过程中添加代码,置数组元素值为0到100。
PrivateSubForm_Click()
ConstN=100
Dimi,j,Line,a(N)AsInteger
Fori=0ToN-1'设置初值
a(i)=i
Nexti
EndSub
·判断素数;当数能被整除时,就将该数赋值为0;通过判断是否为0,确定是否是素数。
程序中Sqr函数为求平方根,Mod函数为求余数。
在“EndSub”前添加如下代码:
Fori=2ToSqr(N)
Forj=i+1ToN
Ifa(i)<>0Anda(j)<>0Then
Ifa(j)Moda(i)=0Thena(j)=0'整除就赋值0
EndIf
Nextj
Nexti
·显示数组值,每行显示10个数,每个数之间空一格。
在“EndSub”前添加如下代码:
Print"显示输出100以内的素数"
Fori=2ToN-1
Ifa(i)<>0Then
Printa(i);Spc
(1);
Line=Line+1
EndIf
IfLine<>0AndLineMod10=0ThenPrint
Nexti
(3)保存工程
(4)运行
单击窗体,运行结果如图T3.1所示
T3.1
思考与练习:
·从窗体输入一个整数,判断是否为素数,界面和程序将如何修改?
·画出程序流程图。
2.用选择法排序
将数组中的元素一轮一轮地进行比较,第一轮两两比较找出最小数,然后与第一元素a[0]对换;第二轮将从a[1]开始的数中找出最小的数,与a[1]对换;……每比较一轮找出未经排序的数中的最小的一个进行对换;直到剩下最后一个元素为止。
采用双重循环来实现,数组元素的个数从键盘输入,通过随机函数产生数组元素,然后对数组元素进行排序。
(1)新建一个“标准EXE”工程;出现一个新的Form窗口。
(2)添加代码
·单击在窗体的事件过程中添加代码,用InputBox函数输入数组元素的个数;InputBox函数返回的字符数据,必须用Val()函数转换为数值型。
数组在运行时才能确定元素的个数,因此采用动态数组。
Int(Rnd*100)+1语句用于产生1到100间的随机整数。
(1)新建一个“标准EXE”工程;
出现一个新的Form窗口。
(2)添加代码
PrivateSubForm_Click()
Dimi,j,Min,Temp,a()AsInteger
DimNAsInteger
N=Val(InputBox("请输入数组元素个数:
","输入"))
ReDima(N)
Print"显示排序前的a元素"
Fori=0ToN-1
a(i)=Int(Rnd*100)+1'产生1到100间的随机整数
Printa(i);
Nexti
EndSub
·比较交换数组元素,进行排序。
变量Min用来记录在比较中较小的数在数组中的位置j(下标),最后得出最小数的下标。
在“EndSub”前添加如下代码:
Fori=0ToN-2
Min=i
Forj=i+1ToN-1
Ifa(Min)>a(j)Then
Min=j
Temp=a(i)'交换数据
a(i)=a(Min)
a(Min)=Temp
EndIf
Nextj
Nexti
Print"显示排序后的a元素"
Fori=0ToN-1
Printa(i);
Nexti
T3.2InputBox输入框T3.3选择法排序
思考与练习:
·变量Temp有没有必要?
如果不使用Temp能否交换数据?
·在内循环中,如果用一个变量记录查找的最小数,则程序应如何修改?
㈡提高级
1.调试“选择排序程序”程序
·调试程序,用单步运行查看i和j变化时a(i)和a(Min)的变化。
·调试程序,在语句“Ifa(Min)>a(j)Then”处设置断点,查看程序运行过程中
a(i,j)的变化。
·调试程序,在监视窗口中添加变量i,j,a(i)和a(Min),观察其变化。
2.InputBox的函数值
在InputBox输入框中如果单击“取消”按钮或输入负数或0时,用MsgBox显示出错信息,如图T3.4所示。
当在图T3.4中选择“是”按钮,则从InputBox输入框中重新输入;如果选择“否”则终止程序。
输入数据元素的各个部分,添加到选择法排序程序的“ReDima(N)”语句前:
DimResponseAsInteger
DimAnswerAsBoolean
Answer=False
Do
N=Val(InputBox("请输入数组元素个数:
","输入"))
IfN<=0Then
Response=MsgBox("是否重新输入?
",vbOKCancel,"输入错误")
IfResponse=1Then
Answer=False
Else
End
EndIf
Else
Answer=Ture
EndIf
LoopWhileAnswer=False
实验4窗体、标签、文本框和按钮
一、目的和要求
∙学会添加多个窗体。
∙掌握启动窗体和切换窗体。
∙掌握为窗体添加事件代码。
∙掌握标签的属性和事件代码。
∙掌握文本框的属性和事件代码。
∙掌握按钮的事件代码
∙学会使用对象浏览器
二、内容和步骤
㈠基础级
窗体和控件是创建界面的基本构造模块,也是创建应用程序所使用的对象。
1.创建三个窗体
创建一个工程,由三个窗体组成。
Form1用于输入用户名和口令,当输入正确时单击“确定”按钮显示Form2,当输入错误则显示Form3,单击退出按钮结束程序;Form2中用文本框显示系统信息,单击“返回”按钮回到Form1;Form3为退出窗体,单击窗体则结束程序。
新建一个工程,窗体为Form1,然后选择“工程”菜单的“添加窗体”命令,添加两个窗体,窗体的名称按添加的顺序分别为Form2和Form3。
这样,工程就由三个窗体组成。
2.设置启动窗体
本程序的启动窗体是Form1。
① 选择“工程”菜单的“工程1属性”命令。
②在弹出的对话框中选择“通用”选项卡。
3单击“启动对象”列表框的下拉箭头,从中选择“Form1”,如图T4.1所示。
4单击“确定”按钮。
图T4.1工程1属性
思考与练习:
修改启动窗口为“Form2”,运行后会发生什么?
3.创建控件
·窗体Form1上有三个标签,两个文本框,两。
文本框txtName用于输入用户的名,文本框txtPassWord用于输入用户的口令。
如图T4.2。
窗体控件的属性如表T4.1所示。
控件名
属性名
属性值
Label1
Caption
欢迎使用本系统
Alignment
2-Center
Font
宋体,小三,粗体
Label2
Caption
请输入用户名:
Label3
Caption
请输入口令:
txtPassWord
Text
空
PasswrdChar
*
txtName
Text
空
cmdOK
Caption
确定
cmdExit
Caption
退出
图T4.2Form1表T4.1Form1的属性
·窗体Form2上有一个标签、一个文本框和一个按钮,文本框采用多行显示,具有垂直滚动条,锁定文本框不能编辑;窗体Form3上有一个标签;如表T42所示、Form2如图T4.3所示Form3如图T4.4所示。
窗体名
控件名
属性名
属性值
Form2
Label1
Caption
系统信息:
Text1
Multiline
True
L
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 指导书