vb程序设计实训总结报告.docx
- 文档编号:8509787
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:56
- 大小:1.26MB
vb程序设计实训总结报告.docx
《vb程序设计实训总结报告.docx》由会员分享,可在线阅读,更多相关《vb程序设计实训总结报告.docx(56页珍藏版)》请在冰豆网上搜索。
vb程序设计实训总结报告
安徽机电职业技术学院
《VB程序设计》课程实训
实训汇报
系(部):
经贸管理学系
班级:
电商
姓名:
指导老师:
陈香
~第一学期
实训项目一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元)以上且小于元者,给10%优惠。
(3)总价在元(含元)~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<
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
PrivateSubCommand1_Click()
DimPPAsString,NCAsString,QTAsString
Picture1.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序设计 总结报告