VB上机实验辅导讲义.docx
- 文档编号:4956216
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:73
- 大小:503.46KB
VB上机实验辅导讲义.docx
《VB上机实验辅导讲义.docx》由会员分享,可在线阅读,更多相关《VB上机实验辅导讲义.docx(73页珍藏版)》请在冰豆网上搜索。
VB上机实验辅导讲义
VisualBasic程序设计实验指导
主编:
司亚利汪梅婷
副主编:
陈杰李艳秋杨蕊李雪郝宾波刘伟
里仁学院
2015年1月
目录
实验1VB集成环境及简单应用程序的建立1
实验2:
顺序结构程序设计3
实验3:
选择结构程序设计4
实验4:
循环结构程序设计6
实验5:
常用内部控件的程序设计7
实验6:
数组的使用9
实验7:
过程的创建和使用11
附件1各章知识点总结13
附件2模拟题27
实验1VB集成环境及简单应用程序的建立
一、实验目的
熟悉VB启动和退出、集成开发环境的使用、VB文件类型;掌握窗体及基本控件(标签、命令按钮和文本框)的基本使用方法;理解对象及对象三要素(属性、方法、事件);掌握VB应用程序设计思想和基本步骤,能完成简单的程序设计。
二、同学们上机容易出现的问题
1、一道题建立一个工程,做一道题时启动VB,做完后保存,关闭VB。
2、写程序代码时,代码符号要用英文输入法输入。
例如字符串的定界符引号:
form1.caption="程序举例",引号内是文本,可以任意字符。
3、写代码时,一定注意对象的名称是否正确,例如打入label1.后,如果没有VB自动提示,肯定是名称写错了,检查修改。
为避免麻烦,可以把标签等对象名重新命名,例如命名成简单的a、b、c等,即修改name名称属性。
4、保存:
点击保存按钮,或文件→保存工程。
生成可执行程序:
文件→生成.exe
三、实验内容
1、编写一个简单的应用程序,掌握VB程序设计的基本步骤。
要求:
窗体的标题为“第一个VB程序”;在窗体上添加一个标题为“显示”的按钮、一个标题为“欢迎进入VB世界!
”的标签和一个Text属性为空的文本框;这四个对象的名称属性均使用默认值。
程序的功能是:
当单击命令按钮时将标签中的内容在文本框中显示出来。
保存时窗体文件名为a1.frm,工程文件名为a1.vbp,生成可执行程序文件名为a1.exe。
【操作过程】(掌握编程步骤,后面不再赘述)
(1)启动VisualBasic6.0,新建一个工程。
一个VB应用程序就是一个工程。
(2)设计应用程序界面:
向窗体中添加控件主要有两种方法:
一种是双击工具箱中的控件,可直接添加到窗体中;另一种是单击工具箱中的控件,利用鼠标拖动在窗体上画出。
利用以上两种方法之一,在窗体上添加一个标签,一个文本框,和一个命令按钮。
将标签、文本框、命令按钮全部选中(按下shift键,用鼠标点击每个控件),点击“格式”菜单——“对齐”——“左对齐”命令,令三者左对齐。
(3)在属性窗口中设置各对象的属性。
如表1所示:
表1属性设置
对象
属性
属性值
说明
Form1
Caption
第一个VB程序
窗体的标题
Label1
Caption
欢迎进入VB世界
标签的标题
Text1
Text
初始时文本框内容为空
Command1
Caption
显示
命令按钮的标题
(4)双击命令按钮(或在工程管理器窗口中点击“查看代码”按钮)进入代码窗口。
这一步有两个关键,首先需搞清楚是何对象的何种事件;其次需清楚该事件被触发时完成的功能是什么。
在代码窗口中,选择对象Command1,选择事件Click,自动生成单击Command1事件代码的头和尾,在之间书写代码即可:
Text1.Text=Label1.Caption
(5)点击“运行”菜单中的“启动”命令,或工具栏上的“启动”按钮,运行程序。
(6)点击“文件”菜单中的“保存工程”命令,或用工具栏上的“保存工程”按钮,打开“文件另存为”对话框,先保存窗体文件,选择要存储的位置,取名为a1,类型为.frm;保存后,出现“工程另存为”对话框,选择存储的位置,取名为a1,类型为.vbp,保存即可。
文件→生成.exe,保存a1.exe。
【附加要求】在上题的窗体中再添加两个命令按钮,名称分别为C2和C3,标题分别为“放大”和“移动”。
单击“放大”按钮,文本框中的字号放大一号,单击“移动”按钮,令文本框向左移动100Twip。
执行效果下图所示。
提示关键代码:
Text1.FontSize=Text1.FontSize+1Text1.Left=Text1.Left-100
2、新建一个工程,其中窗体的名称为“a”,标题为“我的窗体”;在窗体上添加一个名为“b”的标签,标签不显示任何内容;一个名为“c”的标题为“画圆”的按钮、一个名为“d”的标题为“清除”的按钮。
要求程序运行后(如图所示),单击“画圆”按钮,窗体中能出现一个以(2300,1600)为圆心,以800为半径的圆,标签显示“请单击“清除”按钮清除圆!
”(显示内容中清除的双引号和叹号是中文的符号),“画圆”按钮不可用,“清除”按钮可用;单击“清除”按钮,能清除窗体中的圆,标签显示“请单击“画圆”按钮画一个圆!
”(显示内容中画圆的双引号和叹号是中文的符号),“清除”按钮不可用,“画圆”按钮可用。
保存时窗体文件名为a2.frm,工程文件名为a2.vbp,生成可执行程序文件名为a2.exe。
提示:
方法的使用格式对象名.方法名[参数]属性格式c.Enabled=False
画圆方法circle(2300,1600),800清除方法cls可用属性Enabled
3、单击Form1中的命令按钮,使Form2显示Form1隐藏;Form2加载时,大小为屏幕大小的一半,居中显示;Form2中,有一个文本框,一个没有显示任何内容的文本框,一个标题为“右移文本框”的按钮,一个标题为“计算”的按钮。
单击Form2,文本框中输出“单击窗体”;双击Form2,文本框中输出“双击窗体”;单击“右移文本框”按钮,文本框能右移200;单击“计算”按钮,在窗体中输出系统的日期(date)、系统的时间(time)、系统的日期和时间(now)、输出
的结果,输出1~6之间的随机整数。
保存时窗体文件名为a31.frm和a32.frm,工程文件名为a3.vbp,生成可执行程序文件名为a3.exe。
提示:
Form2.Width=Screen.Width/2Form2.Top=(Screen.Height-Form2.Height)/2
Text1.Left=Text1.Left+200:
Print(-3+Sqr(5*5+4*2*7))/(2+1):
randomize:
PrintInt((6*Rnd)+1)
实验2:
顺序结构程序设计
一、实验目的
练习顺序结构程序设计,学会正确、熟练使用定义、输入、赋值、输出的实现方法。
二、同学们上机容易出现的问题
1、要清楚每一句代码的含义,读懂程序,自己能正确写出程序的运行结果。
2、注释不用写在程序代码里,注释不被执行,可以简单写一个注释看看效果。
三、实验内容
1、让用户输入半径r,求圆的周长、圆面积、圆球表面积、圆球体积,并且输出。
保存时窗体文件名为b1.frm,工程文件名为b1.vbp,生成可执行程序文件名为b1.exe。
提示:
输入、输出方法任选,尝试用不同的方法实现。
注意类型转换,val()函数的使用。
练习符号常量的使用,把π定义成符号常量。
圆周长:
2πr圆面积:
πr2圆球表面积:
4πr圆球体积:
πr3
2、新建工程,在窗体Form1上添加三个文本框控件,Text属性设置为空;添加两个标签,分别显示为“-”和“=”;添加三个命令按钮,显示文本分别为“生成随机数”、“计算”、“交换”。
程序功能是当点击“生成随机数”按钮时,在前两个文本框中分别出现一个[10,99]之间的随机整数;当点击“计算”按钮时,对这两个随机整数进行减法运算,结果在第三个文本框中显示;当点击“交换”按钮时,将这两个随机整数进行互换,同时清除第三个文本框的内容。
执行效果如下图所示。
保存时窗体文件名为b2.frm,工程文件名为b2.vbp,生成可执行程序文件名为b2.exe。
提示:
掌握交换思想、随机函数。
OptionExplicit
Dimx%,y%,z%'模块级变量,下面都能使用
PrivateSubCommand1_Click()
Randomize
x=Int(Rnd*90)+10
y=Int(Rnd*90)+10
Text1.Text=x:
Text2.Text=y:
Text3.Text=""'Text3里的内容是空,清空
EndSub
单击Command2事件代码:
z=x–y:
Text3.Text=z
单击Command3事件:
Dimt%
t=x:
x=y:
y=t:
Text1.Text=x:
Text2.Text=y:
Text3.Text=""
3、新建工程,在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2,标题分别为“输入”和“连接”的命令按钮。
要求程序运行后,单击“输入”按钮,可通过输入对话框输入两个字符串,分别存入字符串变量a、b中(a、b应定义为窗体变量,即模块级变量),如果单击“连接”按钮,则把两个字符串连接为一个字符串(顺序不限)并在信息框中显示出来(在程序中不得使用任何其他变量)。
按照下图所示的效果编程。
保存时窗体文件名为b3.frm,工程文件名为b3.vbp,生成可执行程序文件名为b3.exe。
提示:
掌握输入对话框(InputBox函数)与输出信息框(MsgBox函数)的使用。
实验3:
选择结构程序设计
一、实验目的
掌握If…Then(单分支控制语句)、If…Then…Else(双分支控制语句)两种控制语句的单行书写格式、块结构书写格式,elseif多分支结构、IIF函数、Selectcase(多分支控制语句),学会正确、熟练使用选择结构的方法解决问题。
二、同学们上机容易出现的问题
1、选择结构的格式必须要牢牢掌握,不要在这方面出现低级错误。
2、关键是自己会解决选择问题,可以不用书上提示的方法或代码实现。
3、每道题尝试用多种方法解决,便真正掌握了所学知识。
三、实验内容
1、在窗体上添加一个命令按钮,Caption属性设置为“退出”。
程序功能是,当单击窗体时,弹出输入对话框,要求输入一个整数,并对输入的数据进行奇偶判断,将判断的结果用信息框输出。
当点击“退出”按钮或窗体的“关闭”按钮(窗体右上角的×)时,弹出信息对话框,进行退出确认,“确定”则结束程序运行,“取消”则继续程序的运行。
执行效果如下图所示。
保存时窗体文件名为c1.frm,工程文件名为c1.vbp,生成可执行程序文件名为c1.exe。
部分关键代码提示:
UnloadMe
x=Val(InputBox("请输入一个整数","判断奇偶数",0))
IfxMod2=0Then
MsgBoxx&"是偶数!
",,"判定奇偶数"
Else
MsgBoxx&"是奇数!
",,"判定奇偶数"
EndIf
x=MsgBox("确定到退出吗?
",vbOKCancel+vbQuestion,"确认退出")
Ifx<>vbOKThenCancel=1ElseCancel=0
2、用户输入百分制成绩mark,首先判断用户输入的成绩是否合法,如果不合法用MsgBox给出提示,如果合法则转换成优、良、中、及格、不及格5个等级,并在窗体上显示出来。
要求至少用3种方法实现。
保存时窗体文件名为c2.frm,工程文件名为c2.vbp,生成可执行程序文件名为c2.exe。
等级划分标准如下:
优mark>=90提示:
良80≤mark<90方法一:
从最大的条件开始判断
等级=中70≤mark<80ifmark>=90then
及格60≤mark<70print"优"
不及格mark<60elseif……
方法二:
从最小的条件开始判断方法三:
用selectcase中的is<关系运算符><表达式>判断
ifmark<60thencaseis>=90
print"不及格"print"优"
elseif……
方法四:
用selectcase中的<表达式1>to<表达式2>判断方法五:
循环的嵌套
case90to100
print"优"
3、新建工程,设计一个简易的计算器程序。
界面要求如下图所示。
程序运行后,在第一个和第三个文本框中输入数据,在第二个文本框中输入算术运算符号(+、-、*、/),点击“计算”按钮时根据所输入的运算符号进行相应运算,并将结果显示在第四个文本框中,如果在第二个文本框中输入的不是四则运算之一的符号,则弹出信息框提示,并要求重新输入运算符,此时第四个文本框不显示任何数据;点击“清除”按钮则将四个文本框清空;点击“退出”按钮进行退出确认的信息框显示,确认后方可结束程序运行。
保存时窗体文件名为c3.frm,工程文件名为c3.vbp,生成可执行程序文件名为c3.exe。
部分关键代码提示:
op=Text2.Text
SelectCaseop
Case"+"
z=x+y
Case"-"
z=x-y
Case"*"
z=x*y
Case"/"
z=x/y
CaseElse
MsgBox"错误的运算符号(+、-、*、/),请重新输入!
"
Text4.Text="":
ExitSub
EndSelect
实验4:
循环结构程序设计
一、实验目的
掌握For...Next循环、Do...While/Until循环和DoWhile/Until...Loop循环,注意区分两种循环、掌握如何利用循环条件来控制循环,防止死循环和不循环、掌握退出循环结构的语句:
ExitFor;ExitDo、理解多重循环控制,能够设计出较复杂的循环结构程序。
二、实验内容
1、新建工程,程序的功能是:
当单击窗体时,生成输入框,要求输入一个数字n,之后计算n!
并在窗体上显示出来。
分别使用For…Next、DoWhile/Until...Loop、Do...While/Until结构完成。
保存时窗体文件名为d1.frm,工程文件名为d1.vbp,生成可执行程序文件名为d1.exe。
注意:
求阶乘非常重要,必须自己会做。
运行程序,验证结果时,如果存放阶乘结果的变量类型是Long,当输入的n值太大时,会产生溢出错误,所以验证时输入的n值要小于13。
2、新建工程,界面如左图所示。
程序的功能是:
在文本框中输入初值、终值后,点击“运行”按钮,则在窗体下方的标签中显示10个在此指定范围内的随机整数,并指出这些整数中最大数和最小数。
点击“清除”按钮时将文本框与标签中的文本清除。
执行效果如下图所示。
保存时窗体文件名为d2.frm,工程文件名为d2.vbp,生成可执行程序文件名为d2.exe。
3、界面上不添加任何控件,程序执行时,单击窗体,则在窗体上输出下图所示的图形。
利用双重循环编写程序。
保存时窗体文件名为d3.frm,工程文件名为d3.vbp,生成可执行程序文件名为d3.exe。
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
Cls
Print:
Fori=8To1Step-1
PrintTab(20-i);
Forj=1To2*i-1
Print"*";
Nextj
Next
EndSub
代码说明:
(1)打印二维图形可利用双重循环。
通常以外重循环次数控制图形的行数,可以令外重循环变量值由大到小变化;也可以令外重循环变量值由小到大变化;以内重循环次数控制每行的字符数,注意当前行字符数与外重循环控制变量值的关系。
(2)首先观察要求输出图形的行数,共8行,则外重循环的执行次数应为8次,循环次数已知,最好选用For…Next结构控制,而如何指定循环控制变量的变化规律,则要看每行需打印的字符个数是否与行数相关。
其次观察每行字符数,第一行15个,第二行13个,第三行11个…第八行1个,可看出如果另i的变化规律由8到1,则每行字符个数j=2*i-1。
最后观察每行字符的起始位置,每行比上一行向右移动一个字符位置,即每行输出的起始位置逐步增1,而i的值是逐步减1,因而使用PrintTab(20-i);语句可以达到要求,其中的Tab函数对输出结果进行定位,通常配合Print方法使用,20是一个大概的数值,也可以是其它数字。
(3)为了每次单击窗体时重新打印图形,可在输出之前先使用Cls方法清除窗体上输出的信息,两个Print语句是为了先输出两行空白。
4、百元买百鸡。
假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案。
保存时窗体文件名为d4.frm,工程文件名为d4.vbp,生成可执行程序文件名为d4.exe。
提示:
设母鸡、公鸡、小鸡各为x、y、z,列出方程为:
x+y+z=1003x+2y+0.5z=100
三个未知数,两个方程,此题求若干个整数解。
forx=0to33
fory=0to50
z=100-x-y
if3*x+2*y+z/2=100then
printx,y,z
endif
nexty
nextx
实验5:
常用内部控件的程序设计
一、实验目的
学会正确、熟练使用框架、单选按钮、复选框;列表框;组合框;图片框、图像框;计时器;滚动条。
必须掌握各个控件的常用属性、方法、事件。
二、实验内容
1、单选按钮、复选框的单击事件例子:
实现下图所示的程序,保存窗体文件,工程文件,生成可执行程序文件。
保存时窗体文件名为e1.frm,工程文件名为e1.vbp,生成可执行程序文件名为e1.exe。
提示:
编写各个单选按钮和复选框的单击事件
PrivateSubOption1_Click()
a.FontName="隶书"'"仿宋""楷体"
EndSub
PrivateSubCheck1_Click()
a.FontBold=Check1.Value'a.FontBold=nota.FontBold粗体的设置
EndSub
注意:
如果这道题界面中多一个“设置”按钮,要求点击按钮才生效,如何编写代码?
在单击按钮事件中写程序。
IfOption1.Value=TrueThena.ForeColor=RGB(255,0,0)'设置红色
IfCheck1.Value=1Then
a.FontBold=True'加粗。
斜体:
a.FontItalic下划线:
a.FontUnderline
Else
a.FontBold=False
EndIf
红色:
RGB(255,0,0)绿色:
RGB(0,255,0)蓝色:
RGB(0,0,255)
也可以是红色:
vbRed绿色:
vbGreen蓝色:
vbBlue删除线:
a.FontStrikethru
2、列表框例子:
要求将已有字段换成1~100之间能够被7整除的数。
单击“>”按钮,在已有字段中选择的多个项目添加到选择字段中,同时在已有字段中删除;单击“>>”按钮,在已有字段中所有项目添加到选择字段中,同时把已有字段清空;单击“<”按钮和“<<”按钮,执行效果相反。
保存时窗体文件名为e2.frm,工程文件名为e2.vbp,生成可执行程序文件名为e2.exe。
提示:
在窗体载入事件中,往列表框里面添加1~100之间能够被7整除的数。
PrivateSubForm_Load()
Fori=1To100
IfiMod7=0Then
List1.AddItemi
EndIf
Next
EndSub
3、组合框编程:
在窗体上放置3个不同类型的组合框,通过设置属性添加“北京”、“上海”、“天津”、“重庆”四项,选中或修改各自的内容后,将内容显示在对应的文本框中,执行效果下图所示。
窗体文件名为e3.frm,工程文件名为e3.vbp,生成可执行程序文件e3.exe。
提示:
Text1.Text=Combo1.Text
'把组合框中的内容赋值给文本框显示
Text2=Combo2.Text'文本框的默认属性是Text
Style=0是默认值,下拉式组合框,可选择,可输入。
Style=1是简单组合框,可选择,可输入。
在设计时应适当调整组合框的大小。
Style=2是下拉列表组合框,可选择,不可输入。
4、图片框和图像框编程:
按照下图的效果,单击各个按钮实现相应的功能。
在窗体上添加二个图片框PictureBox和一个图像框Image,单击“装载图片”按钮,在Picture1中装载计算机中的任意一个图片;单击“显示文字”按钮,在Picture1中显示文字“图片框和图像框编程”;单击“复制图片和文字”按钮,把Picture1中的图片和文字复制到Picture2中;单击“复制图片”按钮,只把Picture1中的图片复制到Picture2中;单击“清除内容”按钮,把Picture2中的内容清除;单击“装载Picture1中的图片”按钮,把Picture1中的图片(不是所有内容)复制到图像框Image1中;单击“放大图片”按钮,Image1实现放大功能;单击“原始图片”按钮,Image1中显示原来图片。
窗体文件名为e4.frm,工程文件名为e4.vbp,可执行程序文件e4.exe。
提示:
Picture1.Picture=LoadPicture("C:
\WINDOWS\system32\oobe\images\merlin.gif")
Picture1.Print"图片框和图像框编程"
Picture2.Picture=Picture1.Image
Picture2.Picture=Picture1.Picture
Picture2.Picture=LoadPicture("")
Image1.Picture=Picture1.Picture
Image1.Width=2000'图像框放大
Image1.Height=2000
Image1.Stretch=True'图形改变大小,使图形自动调整大小,以便填满图像框
Image1.Stretch=False'图形大小不变,图像框自动调整大小以适应图形
5、计时器控件编程:
设计一个秒表计时器,启动时文本框中显示“0”,字体大小为40,居中显示,用户不可以编辑文本框。
当用户单击“开始计时”按钮时,在文本框中开始计时,同时按钮标题变为“停止计时”,“清零”按钮无效;单击“停止计时”按钮时,计时停止,并保留计时结果,按钮恢复为“开始计时”,“清零”按钮有效;再次单击“开始计时”,能接着上次结果继续计时;单击“清零”按钮,文本框清零。
执行效果如下图所示。
窗体文件名为e5.frm,工程文件名为e5.vbp,可执
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 上机 实验 辅导 讲义