vb程序设计实训报告.docx
- 文档编号:29191773
- 上传时间:2023-07-21
- 格式:DOCX
- 页数:61
- 大小:1.25MB
vb程序设计实训报告.docx
《vb程序设计实训报告.docx》由会员分享,可在线阅读,更多相关《vb程序设计实训报告.docx(61页珍藏版)》请在冰豆网上搜索。
vb程序设计实训报告
安徽机电职业技术学院
《VB程序设计》课程实训
实训报告
系(部):
经贸管理学系
班级:
电商
姓名:
指导教师:
陈香
2015~2016学年第一学期
实训项目一vb集成开发环境
一、实训目的与要求
1、能进行VisualBasic的启动与推出
2、培养VisualBasic的集成开发环境的简单应用
二、实训内容
实训1-1练习vb6.0的启动与退出
(1)启动
(2)退出
1单击vb主窗口右上角的按钮
2选择“文件”菜单中的“退出”命令
3按快捷键Alt+Q
实训1-2熟悉集成开发环境的窗口
(1)主窗口
(2)窗体设计器窗口
①拖动窗体设计窗口,改变其位置
②拖动窗体设计窗口边框,改变其大小
③拖动窗体设计窗口的最小化按钮,将其缩成图标双击窗体设计窗口控制菜单图标,恢复其原来大小
(3)属性窗口
(4)工程资源管理器窗口
(5)代码窗口
(6)、工具箱窗口
(7)、其他窗口
①立即窗口
②窗体布局窗口
思考题
1、详细叙述VB6.0各个窗口的主要作用
(1)、主窗口:
由标题栏、菜单栏和工具栏组成
(2)、窗体窗口:
是VB应用程序的主要构成部分,是应用程序最终面向用户的窗口,应用程序的运行结果最终在窗体中体现。
(3)、属性窗口:
设计窗体和窗体中的控件属性
(4)、工程资源管理器窗口:
以树形结构方式列出当前工程中所有文件
(5)、代码窗口:
编写代码
(6)、工具箱窗口:
工具箱由各种图标组成,利用这些工具图标,用户可以在窗体上设计各种控件
(7)、其他窗口:
包括立即窗口和窗体布局窗口,立即窗口是为调试应用程序提供的,窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。
2、任意举一个例子来说明VB应用程序开发的详细步骤
(1)、建立可视用户界面的对象
(2)、编写事件驱动的代码
PrivateSubCommand1_Click()
Text1.Text="我爱vb"
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
EndSub
(3)、运行和调试
实训项目二创建简单的应用程序
一、实训目的和要求
1、VisualBasic对象的属性、方法和时间作用
2、练习VisualBasic程序开发的一般步骤操作
3、培养编写简单的应用程序
二、实训内容
实训2-1
设计一个窗体,在窗体上添加一个【确定】命令按钮,运行程序时,单击确定按钮,在窗体上显示“你单击了命令按钮”,若单击窗体,在窗体上显示“你单击了窗体”,运行结果如下图所示
1、设计思路:
添加一个命令按钮,两个标签并设置其属性
2、页面设置
3、编写代码
PrivateSubCommand1_Click()
Print"你单击了命令按钮"
EndSub
PrivateSubForm_Click()
Print"你单击了窗体"
EndSub
4、运行结果
实训2-2
使用循环语句在窗体上输出由“*”组成的简单图形,运行效果如下图所示
1、页面设置
2、编写代码
PrivateSubForm_Click()
DimnAsInteger,i%,j%
Cls
n=Val(Text1.Text)
Fori=1Ton
PrintTab(20);
Forj=1Toi
Print"*";
Nextj
Nexti
EndSub
3、运行结果
实训2-3
编写程序,输入年份,判断其是否为闰年,并写出具体的设计步骤
(1)分析:
设N为年份,N为闰年的条件是:
能被4整除但不能被100整除;或能被400整除,写出闰年N用VB表达式。
(2)具体思路:
建立两个文本框TextBox和一个命令按钮(CommandButton),在Text中输入任一年份,点击命令按钮,则在Text2中则会显示:
“是闰年”或“不是闰年”
(3)页面设置:
(4)编写代码
PrivateSubCommand1_Click()
DimnAsDate
n=Text1.Text
IfnMod4=oAndnMod100<>0OrnMod400=0Then
Text2.Text="是闰年"
Else
Text2.Text="不是闰年"
EndIf
EndSub
(5)运行结果
实训2-4
解决“白鸡百钱”问题。
“鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一;百钱买买白鸡,问鸡翁、鸡母、鸡雏各几何?
”编写程序,给出结果。
1、设计思路:
设x、y、z分别表示鸡翁、鸡母、鸡雏的数目,根据题意,100钱最多买鸡翁20只、买鸡母33只鸡雏数为100—鸡翁数—鸡母数。
写出计算鸡数量的判定式为:
2、编写代码:
PrivateSubForm_Click()
Dimx,y,zAsInteger
Forx=1To20
Fory=1To33
z=100-x-y
If(x+y+z=100)And(5*x+3*y+z/3=100)Then
Print"公鸡,母鸡,小鸡的数目分别:
"
Printx,y,z
EndIf
Nexty
Nextx
EndSub
3、运行结果
实训2-5
编写一个程序,使得程序运行时,在窗体上显示滚动字幕“欢迎进入奇妙的VB世界!
”,运行效果和属性设置分别见下图所示,并写出详细设计步骤。
1、设置页面,添加一个标签和Timer并设置属性
2、编写程序代码
PrivateSubTimer1_Timer()
Label1.MoveLabel1.Left-20
IfLabel1.Left+Label1.Width<=0Then
Label1.Left=Form1.Width
EndIf
EndSub
3、运行结果
实训项目三VisualBasic语言基础
一、实训目的与要求
1、掌握VB中基本数据类型和常用内部函数的使用
2、正确使用VB的运算符合表达式在编程中的应用
3、熟悉常用的输入和输出方法的运用
二、实训内容
实训3-1
编写一个程序,程序运行后单击窗体,则会在窗体上显示当前的日期和时间,具体界面如下图所示。
1、编写程序代码
PrivateSubForm_Click()
t=Now
PrintFormat(t,"今天是:
"&"dddddd"&"hh:
mm:
ss")
EndSub
2、运行结果
实训3-2
编写一个程序,在程序中使用数值格式符,当程序运行后单击窗体,则会在窗体上显示结果如下图所示
1、编写程序代码
PrivateSubForm_Click()
DimxAsSingle
x=1234.5678
PrintFormat(x,"####.##")
PrintFormat(x,"000000.0000")
PrintFormat(x,"########%")
PrintFormat(x,"+##,###.###$")
PrintFormat(x,"#.######E+")
PrintFormat(x,"####.###\美金")
EndSub
2、运行结果
实训3-3
编写一个程序,具体为当用户输入客户姓名后,单击输入框的“确定”按钮所输入内容赋值给变量guest。
若用户单击输入框的“取消”按钮,则变量guest的值为空。
设计思路:
使用InputBox函数输入客户姓名。
(1)界面设计。
在窗体上画出1个文本框、2个命令按钮。
(2)属性设置
控件名称
属性名
属性值
Command1
Caption
”确定”
Command2
Caption
”取消”
Text1
text
“”
(3)填写代码
PrivateSubForm_Click()
DimslAsString,s2AsString,s3AsString,guestAsString
s1=InputBox("请输入客户姓名")
s2=InputBox("输入后按回车键")
s3=InputBox("或单击确定按钮")
guest=InputBox(s1+Chr(13)+s2+Chr(10)+s3,"输入客户姓名","张玉生")
EndSub
(4)运行结果显示
实训3-4
编写一个购物打折程序!
要求:
程序运行后当输入购物金额时,自动计算出折后金额!
题目自拟,打折规则自拟,并写出详细的设计步骤。
商场举办庆“十一”购物促销活动,根据购买武平总价格的不同,可以获得不同的优惠条件。
其活动如下:
(1)总价格在500元一下不享受优惠
(2)总价在500元(含500元)以上且小于2000元者,给予10%的优惠。
(3)总价在2000元(含2000元)~4000元者,给予12%的优惠。
(4)总价在4000元(含4000元)~6000元者,给予14%的优惠。
(5)总价在6000元(含6000元)以上者,给予15%的优惠。
1、页面设置
2、编写代码
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimPriceAsSingle
Price=Val(Text1.Text)
IfKeyAscii=13Then
SelectCasePrice
CaseIs<500
Text2.Text=Price
Text3.Text=0
CaseIs<2000
Text2.Text=Price*0.9
Text3.Text=Price*(1-0.9)
CaseIs<4000
Text2.Text=Price*0.88
Text3.Text=Price*(1-0.88)
CaseIs<6000
Text2.Text=Price*0.86
Text3.Text=Price*(1-0.86)
CaseElse
Text2.Text=Price*0.85
Text3.Text=Price*(1-0.85)
EndSelect
EndIf
EndSub
3、属性设置
Label1
Caption=购物总金额
Label2
Caption=打折后应付金额
Label3
Caption=用户节约金额
Text1
Text=“”
Text2
Text=“”
Text3
Text=“”
4、运行结果
实训3-5
编写程序,通过产生的对话框输入学生的分数,从而判断学生是否及格。
方法是:
90~100分为“优秀”,80~89分为“良好”,70~79分为“中等”,60~69分为“及格”,60分一下为不及格。
1、编写程序代码
PrivateSubForm_Click()
DimScoreAsSingle
Score=InputBox("输入分数")
SelectCaseScore
Case90To100
Form1.Print"优秀"
Case80To89
Form1.Print"良好"
Case70To79
Form1.Print"中等"
Case60To69
Form1.Print"及格"
CaseElse
Form1.Print"不及格"
EndSelect
EndSub
2、运行结果
实训项目四“科学计数器”设计
一、实训目的与要求
1、进一步熟悉窗体、命令按钮、标签、文本框是哇属性、时间和方法运用
2、学会使用菜单编辑器
3、培养VB基本语句的使用
二、实训内容
实训4-1
编写程序,设计一个简易的科学计数器,写出详细的设计步骤。
从键盘上输入每个学生的姓名和3门课程的考试成绩。
计算并输出么个学生的总分。
1、页面设置
2、编写代码
DimaAsSingle,bAsSingle,zAsInteger,yAsInteger
PrivateSubCommand1_Click()
Text1.Text=Val((Text1.Text)+Str
(1))
EndSub
PrivateSubCommand10_Click()
z=1
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand11_Click()
z=2
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand12_Click()
z=3
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand13_Click()
z=4
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand14_Click()
Text1.Text=Val((Text1.Text)+Str(7))
EndSub
PrivateSubCommand15_Click()
Text1.Text=0
a=0
b=0
x=0
y=0
EndSub
PrivateSubCommand16_Click()
Text1.Text=Val((Text1.Text)+Str(4))
EndSub
PrivateSubCommand17_Click()
b=Text1.Text
Ifz=1ThenText1.Text=a+b
Ifz=2ThenText1.Text=a-b
Ifz=3ThenText1.Text=a*b
Ifz=4Andb<>0ThenText1.Text=a/b
Ifz=6ThenText1.Text=Sin(a)
Ifz=7ThenText1.Text=Tan(a)
Ifz=8ThenText1.Text=Cos(a)
Ifz=9ThenText1.Text=Hex(Text1.Text)
EndSub
PrivateSubCommand18_Click()
Text1.Text=Left$(Text1.Text,Len(Text1.Text)-1)
IfLen(Text1.Text)<1Then
Text1.Text=0
EndIf
EndSub
PrivateSubCommand19_Click()
z=6
a=Text1.Text
EndSub
PrivateSubCommand2_Click()
Text1.Text=Val((Text1.Text)+Str
(2))
EndSub
PrivateSubCommand20_Click()
z=7
a=Text1.Text
EndSub
PrivateSubCommand21_Click()
z=8
a=Text1.Text
EndSub
PrivateSubCommand3_Click()
Text1.Text=Val((Text1.Text)+Str(5))
EndSub
PrivateSubCommand4_Click()
Text1.Text=Val((Text1.Text)+Str(8))
EndSub
PrivateSubCommand5_Click()
Text1.Text=Val((Text1.Text)+Str(0))
EndSub
PrivateSubCommand6_Click()
Text1.Text=Val((Text1.Text)+Str(3))
EndSub
PrivateSubCommand7_Click()
Text1.Text=Val((Text1.Text)+Str(6))
EndSub
PrivateSubCommand8_Click()
Text1.Text=Val((Text1.Text)+Str(9))
EndSub
PrivateSubCommand9_Click()
Text1.Text=Str(Text1.Text)+"."
EndSub
3、运行结果
实训4-2
设计一个类似于Windows操作系统附件中“记事本”功能,写出详细的设计步骤。
1.设置可视用户界面:
2.设置代码属性:
标题
名称
快捷键
Visible属性
Enable属性
文件(&F)
MNFILE
True
True
…新建(&N)
FILENEW
Ctrl+N
True
True
…打开(&O)
FILEOPEN
Ctrl+O
True
True
…保存(&S)
FILESAVE
CTRL+S
True
FALSE
…另保存(&A)
FILESAVEAS
True
FALSE
…关闭(&C)
FILECOLSE
True
FALSE
….打印(&p)
FILEPRINT
CTRL+P
True
FALSE
…退出(&X)
MNEXIT
True
True
编辑(&E)
EDIT
True
True
…剪切(&U)
EITCUT
CTRL+X
True
FALSE
…复制(&C)
EDITCOPY
CTRL+C
True
FALSE
…粘贴(&P)
EDITPASTE
CTRL+V
True
FALSE
…查找与替换(&F)
EDITFOUND
True
FALSE
…块写文件(&w)
EDITWRITE
CTRL+W
True
FALSE
…插入文件(&R)
EDITREAD
CTRL+R
True
True
格式(&S)
MNUF
True
True
…字体
FONT
CTRL+F
True
True
…段落
PARAG
True
True
工具(&T)
TOOL
True
True
...统计
TOOL_VIEW
复选属性为TRUE
…工具栏
TOOL_BAR
复选属性为TRUE
…状态栏
TOOL_STATU
True
True
…选项
TOOL_OPT
True
True
窗口(&W)
WIND
只能有一个窗口列表菜单
…排列窗口
ARANGE
True
True
…重叠窗口
OVERLAY
True
True
帮助(&H)
HELP
True
True
…帮助主题
HELPTOPIC
CTRL+H
True
True
…关于记事本…
HELPABOUT
True
True
3.运行和调试程序:
实训项目五“文本字体”设置
一、实训目的与要求
1、熟悉选择类控件与框架的属性、事件及方法控件的应用
2、熟悉列表类控件的属性、事件和方法以及控件的应用
3、培养运用所学相关知识Windows字体对话框程序对相关文本文字进行设置
二、实训内容
实训5-1
完成课本例题7.1,并写出详细步骤
1、设计思路:
在窗体上添加1个文本框、3个框架、6个单选按钮和3个复选框,并进行相应的属性设置。
2、界面设置
3、编写程序代码
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.FontName="黑体"
Case1
Text1.FontName="宋体"
Case2
Text1.FontName="幼圆"
EndSelect
EndSub
PrivateSubCheck1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.FontItalic=NotText1.FontItalic
Case1
Text1.FontBold=NotText1.FontBold
Case2
Text1.FontUnderline=NotText1.FontUnderline
EndSelect
EndSub
PrivateSubOption2_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.FontSize=18
Case1
Text1.FontSize=24
Case2
Text1.FontSize=28
EndSelect
EndSub
属性设置
控件名称
属性及属性值
空间名称
属性及属性值
Text1
VB6.0程序设计基础
Frame2
Caption=字号
Frame1
Caption=字体
Option1
Caption=黑体
Frame2
Caption=字型
Option2
Caption=宋体
Option3
Caption=幼圆
Check2
Caption=加粗
Check1
Caption=斜体
Check3
Caption=下划线
Option5
Caption=18
Option6
Caption=24
Option7
Caption=28
4、运行结果
实训5-2
完成课本例题7.2.并写出详细步骤。
1、设计思路:
在上面的例7-1中,框架内的单选按钮和复选框使用的是控件数组。
本例将使用普通控件的方式。
2、界面设置
3、编写代码
PrivateSubCheck1_Click()
Option6.Enabled=NotOption6.Enabled
Option7.Enabled=NotOption7.Enabled
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序设计 报告