VB教案.docx
- 文档编号:29691469
- 上传时间:2023-07-26
- 格式:DOCX
- 页数:53
- 大小:617.36KB
VB教案.docx
《VB教案.docx》由会员分享,可在线阅读,更多相关《VB教案.docx(53页珍藏版)》请在冰豆网上搜索。
VB教案
VB
实验一VisualBasic环境和简单应用程序设计
一、实验目的及要求
1、了解VisualBasic系统对计算机软件、硬件的要求。
2、掌握启动与退出VisualBasic的方法。
3、熟悉VisualBasic的集成开发环境(IDE)。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。
二、实验内容
1、启动VisualBasic6.0,熟悉其集成开发环境。
2、请按图所示在标题为“第一个应用程序”的窗体Forml上添加两个标题分别为“欢迎使用VisualBasic”和“请输入您的姓名“的表签(Label1和Label2),Label1的字体为隶书,并且能根据文本大小自动调整尺寸,Label2的字型为倾斜,然后再添加一个初始文本为空的文本框Text1。
操作如下:
3、请按图所示在标题为“命令按钮设置“的窗体Forml上添加三个标题为”禁止用C3”、“允许用3”和“C3”的命令按钮。
运行时,如果单击“禁止用C3”按钮,则C3按钮无效,如果单击“允许用3”按钮,则C3按钮有效。
操作如下:
代码如下:
PrivateSubCommand1_Click()
Command3.Enabled=False
EndSub
PrivateSubCommand2_Click()
Command3.Enabled=True
EndSub
4、请按图所示在标题为“文本复制”的窗体Forml上添加两个文本框,其初始文本为空,设置适当的属性是文本框Text2可以显示多行文本,有一个垂直滚动条,而且Text2不可编辑文本。
运行时,在文本框Text1中输入一个字符串,单击窗体,则将Text1的文本复制到Text2中。
操作如下:
代码如下:
PrivateSubForm_Click()
Text2.Text=Text1.Text
EndSub
5、请按图所示在标题为“标题内容显示“的窗体Forml1上添加一个标题为空、带有单边框的标签Label1,再添加两个标题分别为“显示”和“清空”的命令按钮。
运行时,单击“显示”按钮,则再Label1中显示“欢迎使用VisualBasic6.0!
”;单击“清空”按钮,则在Label1的标题为空。
操作如下:
代码如下:
PrivateSubCommand1_Click()
Label1.Caption="欢迎使用VisualBasic6.0!
"
EndSub
PrivateSubCommand2_Click()
Label1.Caption=""
EndSub
三、总结
通过本次实验熟悉了VisualBasic的集成开发环境(IDE)。
掌握在窗体上添加控件的各种方法。
掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。
第二章顺序结构程序设计
一、实验目的和要求
1.掌握常用内部函数的使用
2.掌握表达式 赋值语句的正确书写规则
3.掌握InpueBox和MsgBox的使用
二、实验内容和原理
1、设计图所示的窗体Forml,其标题为“Print”方法。
运行时,自动在窗体上显示图所示图。
代码如下:
PrivateSubForm_Activate()
PrintTab(10);"※"'输出第一行※号
PrintTab(10);"※※"'输出第二行※号
PrintTab(10);"※";Spc
(2);"※"'输出第三行※号
PrintTab(10);"※";Spc(4);"※"'输出第四行※号
PrintTab(10);"※";Spc(6);"※"'输出第五行※号
PrintTab(10);"※";Spc(8);"※"'输出第六行※号
PrintTab(10);"※";Spc(10);"※"'输出第七行※号
PrintTab(10);"※";Spc(12);"※"'输出第八行※号
PrintTab(10);"※※※※※※※※※"'输出第九行※号
EndSub
2、请按图所示在窗体Forml上创建一个初始文本为“VisualBasic”的文本框Text1以及两个标题分别为“放大”和“还原”的命令按钮。
运行时,单击“放大”按钮,将文本框显示的字符串放大2倍或3倍(随机数);单击“还原”按钮,则文本框中显示的字符串大小还原。
代码如下:
DimxAsInteger
Dimy
PrivateSubCommand1_Click()
y=Text1.FontSize'保存原来的字号
x=Int(Rnd*2+2)'随即产生2或3
Text1.FontSize=x*y'放大字体
EndSub
PrivateSubCommand2_Click()
Text1.FontSize=y
EndSub
3、按图所示在标题为“日期时间函数应用”的窗体上添加两个标题分别为“当前日期”“当前星期”的标签,两个初始文本为空的文本框,再添加两个标题分别为“确定”“退出命令按钮。
运行时,单击“确定”,则在Text1和Text2中分别显示当前系统日期和当前星期;单击“退出”,则结束程序运行。
代码如下:
PrivateSubCommand1_Click()
Text1.Text=Format(Now,"ddddd")
Text2.Text=Weekday(Now)
SelectCaseWeekday(Now)
Case1
Text2.Text="日"
Case2
Text2.Text="一"
Case3
Text2.Text="二"
Case4
Text2.Text="三"
Case5
Text2.Text="四"
Case6
Text2.Text="五"
Case7
Text2.Text="六"
EndSelect
EndSub
PrivateSubCommand2_Click()
End
EndSub
4、如图在标题“计算”的窗体上添加三个标题分别为“半径”“周长”“面积”的标签,一个标题为空的标签Lr,添加两个初始文本为空的文本框,两个标题分别为“输入半径”“计算”的命令按钮。
运行时,单击“输入半径”,则出现图所示的输入框,输入半径并按“确定”按钮,则在标签Lr中显示刚才输入的半径;单击“计算”按钮,则计算圆的周长和面积,并分别在Text1和Text2中显示
代码如下:
Dimr!
c!
s!
'定义半径、周长、面积分别为单精度r、c、s
PrivateSubCommand1_Click()
r=InputBox("请输入圆的半径","圆半径",3)'输入圆的半径
Lr.Caption=r'在标签Lr中显示输入放入半径
EndSub
PrivateSubCommand2_Click()
c=2*3.1415*r'计算圆的周长
s=3.1415*r^2'计算圆的面积
Text1.Text=c'输出圆的周长
Text2.Text=s'输出圆的面积
EndSub
第三章选择结构程序设计
一、实验目的和要求
1、掌握If条件语句的使用。
2、掌握情况语句的使用,以及情况语句与多分支条件语句的使用区别。
二、实验内容和原理
1、按图早窗体Form1上添加两个标题分别为“行李重量”“应付款”的标签,两个初始文本为空的文本框,两个标题分别为“计算”“清楚”的命令按钮。
运行时,在Text1中输入行李重量,单击计算,计算出应付的行李费(行李费的收费标准是50Kg以内(包括50kg)为0.20元每千克,超过部分为0.50元每千克),并在Text2中显示计算结果;单击“清除”按钮,将文本框Text1,Text2文本清空
代码如下
PrivateSubCommand1_Click()
Dimb!
p!
'定义行李重量和应付款分别为单精度b和p
b=Text1.Text'把行李重量存储于变量b中
Ifb<=50Then'如果行李重量不超过50kg,
p=0.2*b'按公式0.2*b计算
Else
p=0.2*50+0.5*(b-50)'若行李重量超过50kg,则按公式0.2*50+(b-50)*0.5计算
EndIf
Text2.Text=Format(p,"00.00")'将计算结果p在文本框2显示
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
EndSub
2、在窗体上添加两个标题分别为“百分制”“五分制”的标签,两个初始文本为空的文本框以及两个标题分别为“鉴定”“退出”的命令按钮。
运行时,在Text1中输入百分制成绩,单击“鉴定”按钮,将百分制成绩转化为五分制,并在Text2中显示结果;单击“退出”,则结束程序运行。
PrivateSubCommand1_Click()
Dimb!
b=Text1.Text
SelectCaseb
Case90To100
Text2.Text="优秀"'90-100分为优秀
Case80To89
Text2.Text="良好"'80-89分为良好
Case70To79
Text2.Text="中等"'70-79分为中等
Case60To69
Text2.Text="及格"'60-69分为及格
CaseElse
Text2.Text="不及格"'少于60分为不及格
EndSelect
EndSub
PrivateSubCommand2_Click()
End
EndSub
3、在标题为“成绩查询”的窗体上添加两个标题分别为“请输入您的成绩”“总分”的标签,以及一个标题为空的标签,三个初始文本为空的文本框,一个标题为“请查询”的命令按钮。
运行时,在文本框1,2,3中输入成绩,单击“请查询”按钮,根据输入的成绩,通过输出对话框显示奖励情况。
条件:
三门总分不低于270分(含270分)为特等奖;三门总分在240分(含240)——270(不含270)之间的为优秀奖;总分低于240,但某一科成绩不低于95分为特等奖。
代码如下:
PrivateSubCommand1_Click()
Dima!
b!
c!
s!
'定义三科成绩和总分分别为单精度a,b,c,s
a=Text1.Text'存储三科成绩
b=Text2.Text
c=Text3.Text
s=a+b+c'计算总分
Label3.Caption=s'总分在标签3上显示
Ifs>=270Then'根据输入成绩,显示奖励情况
MsgBox"您获得特等奖",0+48,"获奖通知"
ElseIfs>=240Ands<270Then
MsgBox"您获得优秀奖",0+48,"获奖通知"
ElseIfs<240Anda>=95Orb>=95Orc>=95Then
MsgBox"您获得特别奖",0+48,"获奖通知"
EndIf
EndSub
4、.在标题为“简易计算器”的窗体上添加五个标题分别为“操作数1”“操作符”“操作数2”“计算结果”“=”的标签,四个初始文本为空的文本框,两个标题分别为“计算”“结束”的命令按钮。
运行后,在文本框1,3输入两个操作数,在文本框2输入操作符,单击“计算”,则根据操作符对操作数1和操作数2进行+,-,*,/四种运算,并将计算结果显示在文本框4中,且具有基本的数据合法性和运算符合法性检验报错能力;单击“结束”,则结束程序运行。
代码如下:
PrivateSubCommand1_Click()
Dima!
b!
c!
f$'把输入数值定义为单精度,输入符号定义为字符
a=Text1.Text
b=Text3.Text
f=Text2.Text
SelectCasef'计算符号为加号
CaseIs="+"
c=a+b
CaseIs="-"'计算符号为减号
c=a-b
CaseIs="*"'计算符号为乘号
c=a*b
CaseIs="/"'计算符号为除号
Ifb=0Then
MsgBox"除数为0,出错",5+16,"停止消息"'提示错误
Else
c=a/b
EndIf
EndSelect
Text4.Text=c'计算结果在文本框4中显示
EndSub
PrivateSubCommand2_Click()
End
EndSub
实验四循环结构程序设计及数组的运用
一、实验目的和要求
1、掌握FOR语句的使用。
2、掌握DO语句的各种形式的使用。
3、掌握如何控循环条件,防止死循环或不循环。
二、实验内容和原理
1、在窗体上添加一个标题为“请输入N的值”的标签,一个标题为“N!
=”的命令按钮,两个初始文本为空的文本框。
运行时,在Text1中输入一个自然数,单击“N!
=”按钮,求出该自然数的阶乘,并在Text2中显示。
代码如下:
PrivateSubCommand1_Click()
Dimn%,j!
k%'定义输入值为整型n,计算结果为单精度j,循环变量为整型k
n=val(Text1.Text)
j=1
Fork=1Ton'计算阶乘
j=j*k
Nextk
Text2.Text=j'将计算结果显示在文本框2中
EndSub
2、在标题为“最大公约数求解”的窗体上添加三个标题分别为“整数M”“整数N”“最大公约数”的标签,三个初始文本为空的文本框,一个标题为“求解”的命令按钮。
运行时,在文本框1,2中输入两个正整数,单击“求解”按钮,求出这两个数的最大公约数,并在Text3中显示。
代码如下:
PrivateSubCommand1_Click()
Dima%,b%,c%,max%,min%'定义整数M整数N公约数为a,b,c
a=Text1.Text
b=Text2.Text
max=a'求a,b中的最大值和最小值
min=b
Ifa max=b min=a EndIf c=maxModmin DoWhilec<>0'用辗转相除法求出最大公约数 max=min min=c c=maxModmin Loop Text3.Text=min'最大公约数在文本框3中显示 EndSub 3、.在标题为“问题求解”窗体上添加一个标题为“求值”的命令按钮,一个标题为空,带有边框的标签。 运行后,单击求值,计算S=1+1/2+1/4+1/7+1/11……,直到第i项的值小于0.0001为止,并将计算结果显示在标签1 代码如下: PrivateSubCommand1_Click() Dimk%,m%,s#'定义式中有分母的项为整型k,第k项的分母为m,和为双精度s s=1'和的初值为1 k=1'k的初值为1 m=1'm的初值为1 DoWhile1/m>=10^-4'[计算s的值 m=m+k s=s+1/m k=k+1 Loop Label1.Caption=s'在标签1中显示结果 EndSub4 实验五数组 一、实验目的 1、掌握数组的声明以及数组元素的引用; 2、掌握静态数组和动态数组的使用差别; 3、掌握与数组有关的常用算法。 二、实验内容 1、在标题为“最值求解”的窗体Form1上添加两个标题分别为“最大值”和“最小值”标签,两个初始文本为空的文本框,以及一个标题为“确定”的命令按钮。 运行时,单击确定按钮,将生成10个10~99的随机数并存储在数组a中,求出这10个整数的最大值和最小值,并在文本框中显示结果。 代码如下 PrivateSubCommand1_Click() Dima(1To10)AsInteger,tAsInteger,max%,min% Fort=1To10'产生随机数存储于数组a中 a(t)=Int(Rnd*90)+10 Nextt max=a (1)'假定最大值为数组中的第一个数 Fort=2To10'逐一比较找出最大值
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 教案