VB程序设计.docx
《VB程序设计.docx》由会员分享，可在线阅读，更多相关《VB程序设计.docx（53页珍藏版）》请在冰豆网上搜索。
VB程序设计
安徽机电职业技术学院
《VB程序设计》课程实训
实训报告书
系（部）：
经贸管理学系
班级：
电商3142
姓名：
指导教师：
陈香
2015~2016学年第1学期
摘要
VisualBasic一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。
它简单易学、效率高，且功能强大学会综合运用VB有关的控件、函数和对象的知识，掌握各种控件和对象在系统开发中的实际应用。
想要真正学好它需要花功夫努力去学习、探索。
为此，老师为我们安排了为期两周的实训，希望我们将所学的理论知识付诸实践。
通过这次实训不仅增加了自身能力的锻炼而且提高了专业知识。
我们在这两周的任务主要是在完成老师布置的任务基础上，对自己感兴趣的项目进行深化。
我们的任务主要工作是对所学的熟练掌握VB的菜单设计、工具栏设计、状态栏、多文档界面、ActiveX控件、文件存取、错误处理、帮助信息等方面的知识及相应程序设计方法，了解利用VB进行软件开发和系统设计的基本过程，训练和提高我们VB软件开发的基本技能。
在学会运用VB进行面向对象程序设计步骤和方法的基础上，能够设计其他的实际应用系统，从而达到一定的应用程序设计水平。
在这两个星期的实训里，我根据所学知识认真老师布置的任务，为的是提高自己的动手操作能力。
希望在以后的学习和工作中能更加出色的完成学习以及工作任务。
关键字：
控件对象窗体
实训项目一VisualBasic集成开发环境
一、实训目的
1、能熟练进行VisualBasic的启动与退出；
2、培养VisualBasic的集成开发环境的简单运用。
二、实训内容
实训[1-1]练习VB的启动与退出
（1）启动
启动VisualBasic6.0后,出现如下图所示的新建工程对话框
选择新建选项卡中的标准EXE,单击打开按钮后,就可创建一个新的VisualBasic工程，如下图所示
（2）退出
1单击下图VB主窗口右上角的关闭按钮
2选择文件菜单中的退出命令
3按下快捷键Alt+Q
实训[1-2]熟悉集成开发环境的窗口
（1）主窗口
由标题栏，菜单栏和工具栏组成
（2）窗口设计器窗口
操作练习：
1拖动窗体设计窗口，改变其位置
2拖动窗体设计窗口边框，改变其大小
3拖动窗体设计窗口的最小化按钮，将其缩成图标，双击窗体设计窗体控制菜单图标，恢复其原来大小
（3）属性窗口
属性窗口位于主窗口右侧，所有窗体或控件的属性，如颜色，字体，大小，等都可以通过属性窗口设置以及修改
操作练习：
1单击窗体设计窗口，此时属性窗口显示了当前Form1的所有属性
2选中Caption属性,将Form1改为窗体练习,此时窗体变为窗体练习
（4）资源管理器窗口
操作练习:
1查看代码窗口按钮,显示和编译代码
2查看对象代码按钮,显示窗口上的模块对象
（5）代码窗口
代码窗口是专门进行程序设计的窗口，可在其中显示和编辑代码窗口
（6）工具箱窗口
操作练习:
1选择工程菜单中的部件按钮
2在弹出部件对话框中选择控件选项卡,单击确定按钮,这时工具箱中会出现新的按钮
（7）其他窗口
1）立即窗口:
使用立即窗口可以在中断状态下监视对象属性,变量或表达式的值,也可以在设计时查询表达式的值或命令的执行结果.初学者可以在设计时利用立即窗口练习常用函数,语句和表达式的使用.
2）窗体布局窗口
窗体布局窗口,用于指定程序运行时窗体的初始位置,在窗体布局窗口中有一个模拟显示器,在它的屏幕上直观地显示了本程序中各窗体在实际显示器屏幕中的位置和大小
思考题:
1详细叙述VB6.0各个窗口的主要作用
窗体窗口的作用:
窗体窗口简称窗体.是VB应用程序的主要构成部分,是应用程序最终面向用户的窗口,应用程序的运行结果最终在窗体中体现。
属性窗口:
在VB中,窗体和控件被称为对象,每个对象都可以用一组属性来描述其特征,如大小,字体和颜色等,属性窗口就是用来设置窗体和窗体中的控件属性的.
工程资源管理器窗口：
工程资源管理器窗口中的文件可以分为6类，即窗体文件、程序模块文件、类模块文件、工程文件、工程组文件和资源文件。
工程资源管理器窗口标题栏的下方有3个快捷按钮，分别是查看代码、查看对象和切换文件夹。
代码窗口：
专门用来显示和编辑代码，每个窗体都有一个代码窗口。
工具箱窗口：
工具箱由各种图标组成，这些图标称为对象或控件，利用这些工具图标，用户就可以在窗体上设计各种控件。
立即窗口：
立即窗口是为了调试应用程序提供的。
窗体布局窗口：
窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。
2任意举出一个例子来说明VB应用程序开发的详细步骤
一界面设计
二属性设计
三代码设计
四运行调试
五保存
实训心得
实训项目一结束了,在实训中重温了VB的特点和作用,简单直接介绍了VB的启动和退出的几种方法。
VisualBasic是基于Ｂasic的可视化程序设计语言，它继承了Basic语言简单易懂的特点，采用面相对对象、事件驱动的编程机制，提供了直观的可视化程序设计方法。
VisualBasic是目前面向对象开发的主要语言之一，是最简单、最容易使用的语言，因此它是初学者学习可视化编程语言的最佳选择。
在以Windows操作系统为平台的众多可视化编程工具中，VisualBasic具有易用性、通用性和开发效率高等特点，这使得VisualBasic特别适合于一般应用程序的开发，成为最流行的Windows应用程序开发语言。
VisualBasic6.0现有三种版本：
学习版、专业版和企业版通过这次实训熟练掌握最基本的VB简单设计和各个窗体的作用,工具箱的使用及窗体的属性设计,窗体的合理布局。
实训项目二创建简单的应用程序
一、实训目的和要求
1.VisualBasic对象的属性、方法和事件运用；
2.练习VisualBasic程序开发的一般步骤操作；
3.培养编写简单的应用程序。
二、实训内容
[实训2-1]设计一个窗体，在窗体上添加一个[确定]命令按钮。
运行程序时，单击[确定]按钮，在窗体上显示“你单击了命令按钮”。
若单击窗体，在窗体上显示“你单击了窗体”
一界面设计
二属性设计
三代码设计
四运行调试
五保存
[实训2-2]使用循环语句在窗体上输出有“*”组成的简单图形
一、设计界面
二属性设计
三代码编辑
PrivateSubForm_Click（）
DimnAsInteger,i%,j%
Cls“清屏”
n=Val（Text1.Text）
Fori=1Ton
PrintTab（20）:
Forj=1ToI
Print"*":
Nextj
Print
Nexti
EndSub
四运行调试
五保存
[实训2-3]编写程序，输入年份，判断其是否为闰年
一、设计界面
二属性设计
Text1Text=“”
Text2Text=“”
Command1Caption=“测算”
三代码设计
PrivateSubCommand1_Click（）
DimnAsDate
n=Text1.Text
IfnMod4=oAndnMod100<>0OrnMod400=0Then
Text2.Text="是闰年"
Else
Text2.Text="不是闰年"
EndIf
EndSub
四运行调试
5保存
[实训2-4]解决“百鸡百钱”问题。
鸡翁一，值钱五，鸡母一，值钱三。
鸡雏三。
值钱一，百钱买百鸡，问鸡翁，鸡母，鸡雏各几何？
计算鸡数量的判定式：
x+y+z=100and5x+3y+z/3=100
1、设计界面
2、本题不需要添加控件
3、编写代码
PrivateSubForm_Click（）
Dimx,y,zAsInteger
Forx=1To20
Fory=1To33
z=100-x-y
If（x+y+z）=100And（5*x+3*y+z/3）=100Then
Print"公鸡;";x,"母鸡;";y,"小鸡;";z
EndIf
Nexty
Nextx
EndSub
4运行调试
5保存
[实验2-5]编写一个程序，使得程序运行时，在窗体上显示滚动字幕“欢迎进入奇妙的VB世界！
”，运行效果和属性设置如下图
1、设计界面
2控件属性设计
对象名称
属性
属性值
Form1
名称
Caption
Backcolor
Windowstate
Form1
我的第一个程序
H00FFC0C0
0
Timer1
Enabled
Interval
Ture
100
Lable
Caption
Backstyle
Autosize
Font
Forecolor
欢迎进入奇妙的VB世界
0
Ture
隶书、粗体、四号
H008080FF
3、编写代码
PrivateSubTimer1_Timer（）
Label1.MoveLabel1.Left-20
'判断是否到达窗体左边缘
IfLabel1.Left+Label1.Width<=0Then
Label1.Left=Form1.Width
EndIf
EndSub
4、运行调试
5保存
实训项目三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）属性设计
控件名称属性名属性值
Command1Caption“确定”
Command2Caption“取消”
Text1text“”
（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）属性设计
（3）编写代码
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
（5）运行结果
[实训3-5] 编写程序，通过产生的对话框输入学生的分数，从而判断学生是否及格方法是：
90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分一下为不及格。
1、编写程序代码
Private Sub Form_Click（）
Dim Score As Single
Score = InputBox（"输入分数"）
Select Case Score
Case 90 To 100
Form1.Print "优秀"
Case 80 To 89
Form1.Print "良好"
Case 70 To 79
Form1.Print "中等"
Case 60 To 69
Form1.Print "及格"
Case Else
Form1.Print "不及格"
EndSelect
EndSub
（2）运行结果
实训项目四“科学计数器”设计
一、实训目的与要求
1、进一步熟悉窗体、命令按钮、标签、文本框是哇属性、时间和方法运用
2、学会使用菜单编辑器
3、培养VB基本语句的使用
二、实训内容
[实训4-1]编写程序，设计一个简易的科学计数器，写出详细的设计步骤。
1、页面设置
2代码设计
DimaAsSingle,bAsSingle,zAsInteger,yAsInteger
PrivateSubCommand1_Click（）
z=7
a=Text1.Text
EndSub
PrivateSubCommand10_Click（）
Text1.Text=Val（（Text1.Text）+Str（4））
EndSub
PrivateSubCommand11_Click（）
Text1.Text=Val（（Text1.Text）+Str（5））
EndSub
PrivateSubCommand12_Click（）
Text1.Text=Val（（Text1.Text）+Str（6））
EndSub
PrivateSubCommand13_Click（）
z=2
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand14_Click（）
Text1.Text=Val（（Text1.Text）+Str（7））
EndSub
PrivateSubCommand15_Click（）
Text1.Text=Val（（Text1.Text）+Str（8））
EndSub
PrivateSubCommand16_Click（）
Text1.Text=Val（（Text1.Text）+Str（9））
EndSub
PrivateSubCommand17_Click（）
z=3
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand18_Click（）
Text1.Text=Str（Text1.Text）+"."
EndSub
PrivateSubCommand19_Click（）
Text1.Text=Val（（Text1.Text）+Str（0））
EndSub
PrivateSubCommand2_Click（）
z=6
a=Text1.Text
EndSub
PrivateSubCommand20_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
PrivateSubCommand21_Click（）
z=4
a=Text1.Text
Text1.Text=0
EndSub
PrivateSubCommand3_Click（）
z=6
a=Text1.Text
EndSub
PrivateSubCommand5_Click（）
Text1.Text=0
a=0
b=0
x=0
y=0
EndSub
PrivateSubCommand6_Click（）
Text1.Text=Val（（Text1.Text）+Str
（1））
EndSub
PrivateSubCommand7_Click（）
Text1.Text=Val（（Text1.Text）+Str
（2））
EndSub
PrivateSubCommand8_Click（）
Text1.Text=Val（（Text1.Text）+Str（3））
EndSub
PrivateSubCommand9_Click（）
z=1
a=Text1.Text
Text1.Text=0
EndSub
3运行调试
[实训4-2]设计一个类似于windows操作系统
一界面设计
二属性设计
标题
名称
快捷键
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
三运行
实训项目五 “文本字体”设置
一、实训目的与要求
1、熟悉选择类控件与框架的属性、事件及方法控件的应用
2、熟悉列表类控件的属性、事件和方法以及控件的应用
3、培养运用所学相关知识Windows字体对话框程序对相关文本文字进行设置
一界面设计
二代码设计
Rem字体设计过程代码
PrivateSubOption1_click（IndexAsI
升级会员 