VB60程序设计上机实验指导精.docx
- 文档编号:10346154
- 上传时间:2023-05-25
- 格式:DOCX
- 页数:90
- 大小:602.58KB
VB60程序设计上机实验指导精.docx
《VB60程序设计上机实验指导精.docx》由会员分享,可在线阅读,更多相关《VB60程序设计上机实验指导精.docx(90页珍藏版)》请在冰点文库上搜索。
VB60程序设计上机实验指导精
VB6.0程序设计上机实验指导
实验一认识VB6.0
[实验目的]
1.掌握VB集成开发环境的启动和退出
2.了解VB集成开发环境的基本组成
3.学会在VB集成开发环境中建立应用程序
[实验内容]
一、VB集成开发环境的启动和退出
1.启动VB集成开发环境
想一想:
可以通过哪些方法启动VB集成开发环境。
2.在“新建工程”对话框中选择“标准EXE”
注意:
在“新建工程”对话框中有几个选项卡?
它们各有什么作用?
在“新建”选项卡中有哪些选项?
3.熟悉VB集成开发环境
4.退出VB集成开发环境
想一想:
可以通过哪些方法退出VB集成开发环境。
二、VB集成开发环境的基本组成
1.指出VB集成环境中各组成部分的名称。
2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口;掌握打开和关闭这些窗口的方法。
想一想:
可以通过哪些方法打开代码窗口。
3.掌握在窗体设计器窗口中添加控件。
4.学会设置窗体、命令按钮、文本框的最常用属性。
5.在代码窗口中找到窗体、命令按钮、文本框的主要事件,学会在对象事件过程中输入代码。
想一想:
窗体、命令按钮、文本框的缺省事件是什么。
三、建立第一个VB应用程序
程序功能:
程序界面见下图,要求当按“显示内容”按钮时,文本框中出现红色的“Hello,VisualBasic!
”的文字,按“清屏”按钮时,文本框中文字消失,按“结束”按钮后,程序结束。
程序中有一个窗体,一个文本框和三个按钮,其属性如下:
对象名称
属性
属性值
窗体
(名称)
Caption
Form1
VB,你好!
文本框
(名称)
Text
Alignment
Font
ForeColor
Text1
2
粗体、14号
红色
命令按钮
(名称)
Caption
Command1
显示内容
命令按钮
(名称)
Caption
Command2
清屏
命令按钮
(名称)
Caption
Command3
结束
事件代码:
PrivateSubCommand1_Click()
Text1.Text="Hello,VisualBasic!
"
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
想一想:
●怎样在窗体中添加控件,怎样改变窗体和控件的大小,怎样改变控件的位置。
如果要使窗体的高度为4000,宽度为5000,可以用什么方法设置?
如果要使文本框的位置为:
左边405,上边405,可以使用什么方法设置?
●怎样在属性窗口中为窗体和控件设置属性,试试在属性窗口中设置窗体的大小属性和文本框的位置属性。
看一下其他控件的大小、位置属性怎样设置?
●如何在窗体或控件的事件过程中加入程序段,本实验在哪些对象(指出对象名称)的哪些事件(指出事件名称)中加入了程序段(指出Sub过程名称),这些程序段分别有什么功能。
●怎样在程序中使用命令设置对象的属性,本实验对哪些对象的哪些属性进行了设置。
试试在窗体的Load事件中设置窗体的大小和文本框的位置。
●怎样保存程序,需要保存哪些文件;怎样运行程序。
●如果将文本框的名称改为“Texthy”,将第一个命令按钮的名称改为“Cmdhy”,将第二个命令按钮的名称改为“Cmdqk”,将第三个命令按钮的名称改为“Cmdtc”,则上述程序要作哪些改动?
[选做实验]
建立程序,功能如下:
程序中有一个窗体,一个文本框和四个按钮,三个按钮分别显示“红色”、“绿色”、“蓝色”字样,一个按钮显示“退出”字样。
当按“红色”按钮时,文本框中出现红色的文字“红色”;当按“绿色”按钮时,文本框中出现绿色的文字“绿色”;当按“蓝色”按钮时,文本框中出现蓝色的文字“蓝色”。
当按“退出”按钮时,结束程序。
程序界面如下图所示。
提示:
●可使用RGB()函数设置颜色。
附:
RGB()函数的使用
功能:
●返回一个Long整数,用来表示一个RGB颜色值。
语法:
RGB(red,green,blue)
参数:
●red必要参数;Variant(Integer)。
数值范围从0到255,表示颜色的红色成份。
●green必要参数;Variant(Integer)。
数值范围从0到255,表示颜色的绿色成份。
●blue必要参数;Variant(Integer)。
数值范围从0到255,表示颜色的蓝色成份。
说明:
●一个RGB颜色值指定红、绿、蓝三原色的相对亮度,生成一个用于显示的特定颜色。
RGB函数可以产生256*256*256种不同的颜色。
任何需要得到颜色的属性都可以通过RGB函数设置。
●传给RGB的任何参数的值,如果超过255,会被当作255。
●下面的表格显示一些常见的标准颜色,以及这些颜色的红、绿、蓝三原色的成份:
颜色
红色值
绿色值
兰色值
黑色
0
0
0
蓝色
0
0
255
绿色
0
255
0
青色
0
255
255
红色
255
0
0
洋红色
255
0
255
黄色
255
255
0
白色
255
255
255
实验二窗体和标准控件
(一)
[实验目的]
1.掌握命令按钮、标签及文本框控件的使用方法
2.掌握复选框、单选按钮及框架控件的使用方法
[实验内容]
一、命令按钮、标签及文本框控件的使用方法
程序1:
在窗体上建立两个标签、两个文本框和两个命令按钮,运行界面如左图所示。
要求在运行时,两个文本框中的内容均不允许用户编辑;如果用户在“原文”的文本框中选定所需的内容,单击“复制”命令按钮,则在“输出”文本框中输出选定的内容,如右图所示;如果单击“结束”命令按钮,则结束程序的运行。
提示:
●文本框中选定内容可以使用文本框的属性SelText(选定文本内容)、SelStart(选定文本起始点)、SelLength(选定文本长度)读取或设置。
属性设置和程序代码见附录。
想一想:
●如果不用鼠标选定文本,而是通过InputBox函数输入所选文本的起始点和长度,怎样修改程序。
●如果第一个文本框中文本没有被选中,则复制全部内容,如何修改程序。
●如果将“复制”功能改为“移动”功能,如何修改程序。
附:
InputBox函数的使用
功能:
●在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的字符串。
语法:
InputBox(prompt[,title][,default])
参数:
●prompt必要,字符串表达式,让对话框显示给用户的一个提示。
prompt的最大长度大约是1024个字符,由所用字符的宽度决定。
如果prompt包含多个行,则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))来分隔。
●title可选,字符串表达式,给对话框指定一个标题。
如果省略title,则把应用程序名放入标题栏中。
●default可选,字符串表达式,显示在文本框中的缺省值。
如果省略default,则文本框为空。
说明:
●如果用户单击OK或按下ENTER,则InputBox函数以字符串类型返回文本框中的内容。
如果用户单击Cancel,则此函数返回一个长度为零的字符串("")。
注意:
●如果还要指定第一个命名参数以外的参数,则必须在表达式中使用InputBox。
如果要省略某些位置参数,则必须加入相应的逗号分界符。
程序2:
建立如下图所示的窗体,要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验(性别只允许输入“男”或“女”,邮政编码必须是6位数字,电话号码必须是8位数字)。
如果输入的数据不符号要求,则清空相应的文本框,并将插入点置于该框中。
所有的校验工作可以在单击“退出”按钮后进行,此时,程序检查所有文本框,如有空白或内容错误,要求继续输入,否则结束程序。
提示:
●在过程中间要退出过程可使用命令“ExitSub”,通过函数Len(字符串)可得到字符串的长度,通过函数IsNumeric(字符串)可检验字符串是否是数值。
属性设置和程序代码见附录。
想一想:
●如果要求在文本框失去焦点时就对文本框的内容进行校验,则如何编程?
●如果输入的数据不符合要求,或者在按“退出”按钮时还有空白的文本框,在作出处理之前要求给出提示信息,如何修改程序。
提示:
●可利用消息框(MsgBox)
附:
Len()函数的使用
功能:
●返回一个长整型数据,其中包含字符串内字符的数目。
语法:
Len(string)
参数:
●string任何有效的字符串表达式。
附:
IsNumeric()函数的使用
功能:
●返回布尔类型数据,指出表达式的运算结果是否为数值。
语法:
IsNumeric(expression)
参数:
●expression参数,必要的,是一个包含数值的表达式或字符串表达式。
说明:
●如果整个expression的运算结果为数字,则IsNumeric返回True;否则返回False。
附:
消息框(Msgbox)的使用
功能:
●在对话框中显示消息,等待用户单击按钮,并返回一个整型数据告诉用户单击了哪一个按钮。
语法:
MsgBox(prompt[,buttons][,title])
参数:
●prompt必要,字符串表达式,作为显示在对话框中的消息。
prompt的最大长度大约为1024个字符,由所用字符的宽度决定。
如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。
●buttons可选,数值表达式,是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。
如果省略,则buttons的缺省值为0。
●title可选,字符串表达式,在对话框标题栏中显示的内容。
如果省略title,则将应用程序名放在标题栏中。
二、复选框、单选按钮及框架控件的使用
程序3:
在窗体中有一个标签,内有若干文字,要求通过窗体中的复选框或单选按钮确定标签中文字的字体(宋体或黑体)、字号(10号或12号)和字形(是否粗体、是否斜体),请建立应用程序。
想一想:
●为了要设置字体、字号和字形,可分别使用复选框或单选按钮,什么时候应使用复选框,什么时候应使用单选按钮。
●在什么时候要根据不同情况执行不同的语句。
提示:
●在程序运行时设置字体属性,可使用FontName、FontSize、FontBold、FontItalic属性等。
●可以使用分支结构语句:
If…Then…Else…EndIf建立分支结构的程序,以使程序可以按不同情况执行不同的语句。
属性设置和程序代码见附录。
附:
FontName、FontSize、FontBold、FontItalic属性的使用
功能:
●FontName属性:
返回或设置在控件中或在运行时画图或打印操作中,显示文本所用的字体。
●FontSize属性:
返回或设置在控件中或在运行时画图或打印操作中,显示文本所用的字体的大小。
●FontBold、FontItalic属性:
按下述格式返回或设置字体样式:
Bold、Italic。
语法:
object.FontName[=font]
object.FontSize[=points]
object.FontBold[=boolean]
object.FontItalic[=boolean]
参数:
●object对象表达式。
●font字符串表达式,指定所用的字体名。
●points数值表达式,用磅为单位指定所用字体的大小。
●boolean布尔表达式,指定字体样式,属性值为True或False两个值之一。
说明:
●FontName属性的缺省值取决于系统,VisualBasic中可用的字体取决于系统的配置、显示设备和打印设备。
与字体相关的属性只能设置为真正存在的字体的值。
●一般来说,用FontSize、FontBold、FontItalic、FontStrikethru和FontUnderline属性来设置大小和样式属性前,要先改变FontName属性。
●用FontSize属性以所要的字体格式化文本。
缺省值由系统决定。
要改变缺省值,以磅为单位指定字体尺寸。
●FontSize的最大值为2160磅。
●可以通过这些字体属性,在设计时用属性窗口或在运行时使用代码来格式化文本。
对于Picturebox控件及Form和Printer对象,设置这些属性不会影响在控件或对象上已经绘出的图片和文本。
对于其它控件,改变字体将会在屏幕上立刻生效。
附:
If…Then…Else…EndIf
功能:
●根据表达式的值有条件地执行一组语句。
语法:
IfconditionThen[statement][Elseelsestatement]
或者
IfconditionThenstatements
[Elseelseifstatements]
EndIf
If...Then...Else语句的语法具有以下几个部分:
●condition必要参数。
一个或多个具有下面类型的表达式:
数值表达式或字符串表达式,其运算结果为True或False。
●statements必要参数。
一条或多条语句,它们在condition为True时执行。
●elsestatements可选参数。
一条或多条语句,它们在前面的condition不为True时执行。
说明:
●可以使用单行形式(第一种语法)来做短小简单的测试。
但是,块形式(第二种语法)则提供了更强的结构化与适应性,并且通常也是比较容易阅读、维护及调试的。
注意:
●在单行形式中,按照If...Then判断的结果也可以执行多条语句。
所有语句必须在同一行上并且以冒号分开,如下面语句所示:
IfA>10ThenA=A+1:
B=B+A:
C=C+B
●在块形式中,If块必须以一个EndIf语句结束。
提示:
●根据单一表达式来执行多种可能的动作时,SelectCase更为有用。
[选做实验]
综合题:
依照“附件”中的计算器,自己编一个计算器。
本实验要求:
可以使用数字按钮输入数值(整数)。
提示:
●将十个数字按钮组成一个按钮数组,统一编程;使用函数CStr(表达式)可以使数值转化成字符串。
附:
CStr()函数的使用
功能:
●强制将一个表达式转换成某种字符型数据类型。
语法:
●CStr(expression)
实验三窗体和标准控件
(二)
[实验目的]
1.掌握列表框和组合框控件的使用方法
2.掌握滚动条和定时器控件的使用方法
[实验内容]
一、列表框和组合框控件的使用
程序1:
编写程序。
要求:
程序运行初期,在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数,单击窗体中“右移”按钮,则左边列表框的10个数移动到右边的列表框中,并由大到小排列,此时“左移”按钮变为有效。
单击“左移”按钮,右边列表框中的数又被移到左边的列表框中。
单击“退出”按钮或按ESC键,可退出程序。
窗体示意图如下。
提示:
●将列表框的Sorted属性设置为True,可使列表框中的项目从小到大排序。
●使用“For循环变量=初值To终值…Next循环变量”可实现循环功能
●可使用语句Randomize和函数Rnd()产生随机数。
●移动列表框中的数,相当于将第一个列表框内容通过列表框的AddItem方法加入到第二个列表框,然后通过列表框的RemoveItem方法将第一个列表框内容删除。
程序代码见附录。
附:
For循环语句的使用
功能:
●以指定次数来重复执行一组语句。
语法:
Forcounter=startToend[Stepstep][statements][ExitFor][statements]
Next[counter]
参数:
●counter必要参数。
用做循环计数器的数值变量。
这个变量不能是Boolean或数组元素。
●start必要参数,counter的初值。
●End必要参数,counter的终值。
●Step可选参数。
counter的步长。
如果没有指定,则step的缺省值为1。
●Statements可选参数。
放在For和Next之间的一条或多条语句,它们将被执行指定的次数。
说明:
●step参数可以是正数或负数。
step参数值决定循环的执行情况,如果step的值为正数或0,则当counter<=end时执行循环;如果step的值为负数,则当counter>=end时执行循环。
●当所有循环中的语句都执行后,step的值会加到counter中。
此时,循环中的语句可能会再次执行(基于循环开始执行时同样的测试),也可能是退出循环并从Next语句之后的语句继续执行。
●循环中可以在任何位置放置任意个ExitFor语句,随时退出循环。
ExitFor经常在条件判断之后使用,例如If...Then,并将控制权转移到紧接在Next之后的语句。
●可以将一个For...Next循环放置在另一个For...Next循环中,组成嵌套循环。
不过在每个循环中的counter要使用不同的变量名。
下面的体系结构是正确的:
ForI=1To10
ForJ=1To10
ForK=1To10
...
NextK
NextJ
NextI
注意:
●应避免在循环中改变counter的值,否则将会使程序代码的阅读和调试变得更加困难。
●如果省略Next语句中的counter,就像counter存在时一样执行。
附:
Rnd()和Randomize()函数的使用
功能:
●Rnd()函数返回一个包含随机数值的Single
●Randomize初始化随机数生成器
语法:
Rnd
Randomize
返回值:
●Rnd生成随机数序列中的下一个随机数。
●Randomize用系统计时器返回的值作为新的种子值。
说明:
●Rnd函数返回小于1但大于或等于0的值。
●对最初给定的种子都会生成相同的数列,因为每一次调用Rnd函数都用数列中的前一个数作为下一个数的种子。
●在调用Rnd之前,先使用无参数的Randomize语句初始化随机数生成器,该生成器具有根据系统计时器得到Rnd的种子的功能。
●为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound-lowerbound+1)*Rnd+lowerbound)
这里,upperbound是随机数范围的上限,而lowerbound则是随机数范围的下限。
注意:
●若想得到重复的随机数序列,在使用Randomize之前直接调用Rnd。
使用Randomize后,Rnd就能得到不重复的随机数序列。
附:
AddItem、RemoveItem方法的使用
功能:
●AddItem方法用于将项目添加到ListBox或ComboBox控件。
●RemoveItem方法用以从ListBox或ComboBox控件中删除一项。
语法:
object.AddItemitem,[index]
object.RemoveItemindex
参数:
●object必需的。
一个对象表达式。
●Item必需的。
字符串表达式,它用来指定添加到该对象的项目。
●Index可选的。
整数表达式,用来指定新项目或者要删除的项目在该对象中的位置。
对于ListBox或ComboBox控件的首项,index为0。
说明:
●如果所给出的index值有效,则AddItem方法会将item放置在object中相应的位置。
如果省略index,当Sorted属性设置为True时,AddItem方法会将item添加到恰当的排序位置,当Sorted属性设置为False时,AddItem方法会将item添加到列表的结尾。
程序2:
建立应用程序,窗体如下图所示,有一个简单组合框、三个命令按钮、一个文本框和一个标签。
要求:
●单击“添加”按钮可将输入的内容添加到组合框中
●单击“删除”按钮可删除组合框中选定的项目
●单击“统计人数”按钮,可将组合框中的项目总数输出到右边的文本框
●单击“退出”或按ESC键退出程序
程序代码见附录。
想一想:
●如果去掉“统计人数”按纽,让统计人数的工作在添加人员或删除人员时自动进行,应如何更改程序?
●为了使用户界面更友好,在设计本程序时在哪些方面需要考虑的?
二、滚动条和定时器控件的使用
程序3:
编写程序,运行时的界面如下图所示。
要求:
无论是拖动滚动条上的滚动框,还是单击滚动箭头(数值递增或递减1)或滚动条(数值递增或递减10),均可以在相应的标签中反映当前数值,并动态计算出均值;单击“Reset”按钮,可将各滚动条上的滚动框复位。
属性设置和程序代码见附录。
想一想:
●滚动条的Change事件和Scroll事件有什么区别?
,本程序应该在什么事件中编程?
程序4:
利用定时器控件设计一个数字式时钟应用程序。
提示:
●可使用Time函数取得系统时间。
属性设置和程序代码见附录。
想一想:
●如果要求程序整时报时,该如何修改程序。
提示:
●可使用下面程序段实现。
IfSecond(Time)<=10AndMinute(Time)=0Then
Beep
EndIf
[选做实验]
1.综合题1:
依照“附件”中的计算器,自己编一个计算器。
本实验要求:
在计算器适当的位置显示系统时间(利用某个事件确定是否开启时间显示)。
2.综合题2:
建立学生档案管理信息系统。
本实验要求:
设计“输入基本资料”窗体界面,在“性别”和“出生年月”输入中,使用组合框;编程,在“邮政编码”和“电话号码”输入中,使用校验。
实验四VB编程基础
(一)
[实验目的]
1.掌握选择语句的使用
2.掌握循环语句的使用
[实验内容]
一、VB编程基础
练习一:
在应用程序的代码窗口中分别输入以下四段代码,当程序运行时在窗体上单击,分别会发生什么情况,为什么?
PrivateSubForm_Click()
I=10
PrintI
EndSub
PrivateSubForm_Click()
DimI%
I=10
PrintI
EndSub
OptionExplicit
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB60 程序设计 上机 实验 指导