vb程序设计实训报告样本.doc

安徽机电职业技术学院
《VB程序设计》 课程实训

实训报告

系 （部）： 经贸管理学系
班 级： 电商
姓 名：
指引教师： 陈 香

~ 第一学期

实训项目一 vb集成开发环境 2
实训1-1 3
实训1-2 4

实训项目二 创立简朴应用程序 10
实训2-1 10
实训2-2 12
实训2-3 13
实训2-4 15
实训2-5 16

实训项目三 Visual Basic 语言基本 17
实训3-1 17
实训3-2 18
实训3-3 19
实训3-4 20
实训3-5 22

实训项目四 “科学计数器”设计 23
实训4-1 23
实训4-2 27

实训项目五 “文本字体”设立 29
实训5-1 29
实训5-2 31
实训5-3 33
实训5-4 35
实训5-5 37

实训项目六 图形设计 40
实训6-1 41
实训6-2 42
实训6-3 44
实训6-4 46
实训6-5 47

实训项目一 vb集成开发环境
一、 实训目与规定
1、能进行Visual Basic 启动与推出
2、培养Visual Basic集成开发环境简朴应用
二、实训内容
实训1-1 练习vb6.0启动与退出
（1） 启动

（2） 退出
① 单击vb主窗口右上角按钮

② 选取“文献”菜单中“退出”命令

③ 按快捷键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）、编写事件驱动代码
Private Sub Command1_Click()
Text1.Text = "我爱vb"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub
（3）、运营和调试
实训项目二 创立简朴应用程序
一、实训目和规定
1、Visual Basic 对象属性、办法和时间作用
2、练习Visual Basic程序开发普通环节操作
3、培养编写简朴应用程序

二、实训内容
实训2-1
设计一种窗体，在窗体上添加一种【拟定】命令按钮，运营程序时，单击拟定按钮，在窗体上显示“你单击了命令按钮”，若单击窗体，在窗体上显示“你单击了窗体”，运营成果如下图所示
1、设计思路：添加一种命令按钮，两个标签并设立其属性
2、页面设立

3、编写代码
Private Sub Command1_Click()
Print "你单击了命令按钮"
End Sub

Private Sub Form_Click()
Print "你单击了窗体"
End Sub
4、运营成果

实训2-2
使用循环语句在窗体上输出由“*”构成简朴图形，运营效果如下图所示
1、页面设立

2、编写代码
Private Sub Form_Click()
Dim n As Integer，i%，j%
Cls
n = Val(Text1.Text)
For i = 1 To n
Print Tab(20);
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub
3、运营成果

实训2-3
编写程序，输入年份，判断其与否为闰年，并写出详细设计环节
（1）分析：设N为年份，N为闰年条件是：能被4整除但不能被100整除；或能被400整除，写出闰年N用VB表达式。
（2）详细思路：建立两个文本框TextBox和一种命令按钮(CommandButton)，在Text中输入任一年份，点击命令按钮，则在Text2中则会显示：“是闰年”或“不是闰年”
（3）页面设立：

（4）编写代码
Private Sub Command1_Click()
Dim n As Date
n = Text1.Text
If n Mod 4 = o And n Mod 100 <> 0 Or n Mod 400 = 0 Then
Text2.Text = "是闰年"
Else
Text2.Text = "不是闰年"
End If
End Sub
（5）运营成果

实训2-4
解决“白鸡百钱”问题。“鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一；百钱买买白鸡，问鸡翁、鸡母、鸡雏各几何？”编写程序，给出成果。
1、设计思路：设x、y、z分别表达鸡翁、鸡母、鸡雏数目，依照题意，100钱最多买鸡翁20只、买鸡母33只鸡雏数为100—鸡翁数—鸡母数。写出计算鸡数量鉴定式为：
2、编写代码：
Private Sub Form_Click()
Dim x，y，z As Integer
For x = 1 To 20
For y = 1 To 33
z = 100 - x - y
If (x + y + z = 100) And (5 * x + 3 * y + z / 3 = 100) Then
Print "公鸡，母鸡，小鸡数目分别:"
Print x，y，z
End If
Next y
Next x
End Sub
3、运营成果

实训2-5
编写一种程序，使得程序运营时，在窗体上显示滚动字幕“欢迎进入奇妙VB世界！”，运营效果和属性设立分别见下图所示，并写出详细设计环节。
1、设立页面，添加一种标签和Timer并设立属性

2、编写程序代码
Private Sub Timer1_Timer()
Label1.Move Label1.Left - 20
If Label1.Left + Label1.Width <= 0 Then
Label1.Left = Form1.Width
End If
End Sub
3、运营成果

实训项目三 Visual Basic 语言基本
一、实训目与规定
1、掌握VB中基本数据类型和惯用内部函数使用
2、对的使用VB运算符合表达式在编程中应用
3、熟悉惯用输入和输出办法运用
二、实训内容
实训3-1
编写一种程序，程序运营后单击窗体，则会在窗体上显示当前日期和时间，详细界面如下图所示。
1、编写程序代码
Private Sub Form_Click()
t = Now
Print Format(t，"今天是:" & "dddddd" & "hh:mm:ss")
End Sub
2、运营成果

实训3-2
编写一种程序，在程序中使用数值格式符，当程序运营后单击窗体，则会在窗体上显示成果如下图所示
1、编写程序代码
Private Sub Form_Click()
Dim x As Single
x = 1234.5678
Print Format(x，"####.##")
Print Format(x，"000000.0000")
Print Format(x，"########%")
Print Format(x，"+##,###.###$")
Print Format(x，"#.######E+")
Print Format(x，"####.###\美金")
End Sub
2、运营成果

实训3-3
编写一种程序，详细为当顾客输入客户姓名后，单击输入框“拟定”按钮所输入内容赋值给变量guest。若顾客单击输入框“取消”按钮，则变量guest值为空。
设计思路：使用InputBox函数输入客户姓名。
（1）界面设计。在窗体上画出1个文本框、2个命令按钮。

（2）属性设立
控件名称
属性名
属性值
Command1
Caption
”拟定”
Command2
Caption
”取消”
Text1
text
“”
（3）填写代码
Private Sub Form_Click()
Dim sl As String，s2 As String，s3 As String，guest As String
s1 = InputBox("请输入客户姓名")
s2 = InputBox("输入后按回车键")
s3 = InputBox("或单击拟定按钮")
guest = InputBox(s1 + Chr(13) + s2 + Chr(10) + s3，"输入客户姓名"，"张玉生")
End Sub
（4）运营成果显示

实训3-4
编写一种购物打折程序！规定：程序运营后当输入购物金额时，自动计算出折后金额！题目自拟，打折规则自拟，并写出详细设计环节。
商场举办庆“十一”购物促销活动，依照购买武平总价格不同，可以获得不同优惠条件。其活动如下：
（1）总价格在500元一下不享有优惠
（2）总价在500元（含500元）以上且不大于元者，予以10%优惠。
（3）总价在元（含元）~4000元者，予以12%优惠。
（4）总价在4000元（含4000元）~6000元者，予以14%优惠。
（5）总价在6000元（含6000元）以上者，予以15%优惠。
1、页面设立

2、编写代码
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Price As Single
Price = Val(Text1.Text)
If KeyAscii = 13 Then
Select Case Price
Case Is < 500
Text2.Text = Price
Text3.Text = 0
Case Is <
Text2.Text = Price * 0.9
Text3.Text = Price * (1 - 0.9)
Case Is < 4000
Text2.Text = Price * 0.88
Text3.Text = Price * (1 - 0.88)
Case Is < 6000
Text2.Text = Price * 0.86
Text3.Text = Price * (1 - 0.86)
Case Else
Text2.Text = Price * 0.85
Text3.Text = Price * (1 - 0.85)
End Select
End If
End Sub

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、编写程序代码
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 "不及格"
End Select
End Sub
2、运营成果

实训项目四 “科学计数器”设计
一、实训目与规定
1、进一步熟悉窗体、命令按钮、标签、文本框是哇属性、时间和办法运用
2、学会使用菜单编辑器
3、培养VB基本语句使用
二、实训内容
实训4-1
编写程序，设计一种简易科学计数器，写出详细设计环节。
从键盘上输入每个学生姓名和3门课程考试成绩。计算并输出么个学生总分。
1、页面设立

2、编写代码
Dim a As Single，b As Single，z As Integer，y As Integer
Private Sub Command1_Click()
Text1.Text = Val((Text1.Text) + Str(1))
End Sub

Private Sub Command10_Click()
z = 1
a = Text1.Text
Text1.Text = 0
End Sub

Private Sub Command11_Click()
z = 2
a = Text1.Text
Text1.Text = 0
End Sub

Private Sub Command12_Click()
z = 3
a = Text1.Text
Text1.Text = 0
End Sub

Private Sub Command13_Click()
z = 4
a = Text1.Text
Text1.Text = 0
End Sub

Private Sub Command14_Click()
Text1.Text = Val((Text1.Text) + Str(7))
End Sub

Private Sub Command15_Click()
Text1.Text = 0
a = 0
b = 0
x = 0
y = 0

End Sub

Private Sub Command16_Click()
Text1.Text = Val((Text1.Text) + Str(4))
End Sub

Private Sub Command17_Click()
b = Text1.Text
If z = 1 Then Text1.Text = a + b
If z = 2 Then Text1.Text = a - b
If z = 3 Then Text1.Text = a * b
If z = 4 And b <> 0 Then Text1.Text = a / b
If z = 6 Then Text1.Text = Sin(a)
If z = 7 Then Text1.Text = Tan(a)
If z = 8 Then Text1.Text = Cos(a)
If z = 9 Then Text1.Text = Hex(Text1.Text)

End Sub

Private Sub Command18_Click()
Text1.Text = Left$(Text1.Text，Len(Text1.Text) - 1)
If Len(Text1.Text) < 1 Then
Text1.Text = 0
End If

End Sub

Private Sub Command19_Click()
z = 6
a = Text1.Text
End Sub

Private Sub Command2_Click()
Text1.Text = Val((Text1.Text) + Str(2))
End Sub

Private Sub Command20_Click()
z = 7
a = Text1.Text

End Sub

Private Sub Command21_Click()
z = 8
a = Text1.Text

End Sub

Private Sub Command3_Click()
Text1.Text = Val((Text1.Text) + Str(5))
End Sub

Private Sub Command4_Click()
Text1.Text = Val((Text1.Text) + Str(8))
End Sub

Private Sub Command5_Click()
Text1.Text = Val((Text1.Text) + Str(0))

End Sub

Private Sub Command6_Click()
Text1.Text = Val((Text1.Text) + Str(3))
End Sub

Private Sub Command7_Click()
Text1.Text = Val((Text1.Text) + Str(6))
End Sub

Private Sub Command8_Click()
Text1.Text = Val((Text1.Text) + Str(9))
End Sub

Private Sub Command9_Click()
Text1.Text = Str(Text1.Text) + "."
End Sub

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、编写程序代码
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontName = "黑体"
Case 1
Text1.FontName = "宋体"
Case 2
Text1.FontName = "幼圆"
End Select

End Sub

Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontItalic = Not Text1.FontItalic
Case 1
Text1.FontBold = Not Text1.FontBold
Case 2
Text1.FontUnderline = Not Text1.FontUnderline
End Select
End Sub
Private Sub Option2_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontSize = 18
Case 1
Text1.FontSize = 24
Case 2
Text1.FontSize = 28
End Select
End Sub
属性设立
控件名称
属性及属性值
空间名称
属性及属性值
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、编写代码
Private Sub Check1_Click()
Option6.Enabled = Not Option6.Enabled
Option7.Enabled = Not Option7.Enabled
End Sub

Private Sub Command1_Click()
Dim PP As String，NC As String，QT As String
Picture1.Cls
If Option1 Then
PP = "方正"
ElseIf Option2.Value = True Then
PP = "联想"
Else
PP = "惠普"
End If
If Option4 Then
NC = "1G"
Else
NC = "2G"
End If
If Check1.Value = 1 Then
If Option6 Then
QT = "无线网卡"
Else
QT = "无线鼠标"
End If
End If
Picture1.Print PP；NC；QT
End Sub

Private Sub Form_Load()
Option6.Enabled = False
Option7.Enabled = False
End Sub

4、运营成果

实训5-3
完毕课本例题7.5，并写出详细环节
1、设计思路：
这题是列表框和组合框综合应用。在窗体上添加相应控件并设立其属性。
2、界面设立

3、编写代码
Private Sub Check1_Click()
Option1.Enabled = Not Option1.Enabled
Option2.Enabled = Not Option2.Enabled
End Sub

Private Sub Command1_Click()
List1.Clear
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
If Check1.Value = 1 Then
If Option1.Value = True Then
List1.AddItem Option1.Caption
End If
If Option2 Then
List1.AddItem Option2.Caption
End If
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "联想"
Combo1.AddItem "IBM"
Combo1.AddItem "戴尔"
Combo1.AddItem "惠普"
Combo1.ListIndex = 0
Combo2.AddItem "50"
Combo2.AddItem "80"
Combo2.AddItem "100"
Combo2.ListIndex = 0
Option1.Enabled = False
Option2.Enabled = False
End Sub
4、运营成果

实训5-4
完毕课本例题7.6，并写出详细环节
1、设计思路：
这题需要设计一种调色板程序，运用滚动条作为红、绿、蓝3种基色输入控件，然后将合成颜色作为文本框前景色或背景色。
2、界面设立

3、编写代码
Dim red，green，blue As Long
Private Sub Command1_Click()
Text2.ForeColor = Text1.BackColor
End Sub
Private Sub Command2_Click()
Text2.BackColor = Text1.BackColor
End Sub
Private Sub HScroll1_Change()
red = HScroll1.Value
green = HScroll2.Value
blue = HScroll3.Value
Text1.BackColor = RGB(red，green，blue)
End Sub
Private Sub HScroll2_Change()
red = HScroll1.Value
green = HScroll2.Value
blue = HScroll3.Value
Text1.BackColor = RGB(red，green，blue)
End Sub
Private Sub HScroll3_Change()
red = HScroll1.Value
green = HScroll2.Value
blue = HScroll3.Value
Text1.BackColor = RGB(red，green，blue)
End Sub

4、运营成果

实训5-5
编写程序，模仿Windows字体对话框程序对有关文本文字进行设立，可以设立有关文字字体、字形、字号、字效、前景颜色、背景颜色等。
1、设计思路：
（1）在窗体上添加一种列表框，来显示各种屏幕字体，供顾客选取
（2）在窗体上添加一种组合列表框，来显示各种字形，供顾客选取
（3）创立一种单选按钮控件数组来显示各种字号，供顾客选取
（4）创立一种复选框控件数组来显示各种效果，供顾客选取
（5）创立一种滚动条空间数组来显示红、绿、蓝三种基色，通过顾客选取三种基色值，再运用RGB函数来调和生成前景色，再创立一种滚动条控件数组来显示红、绿、蓝三种基色，通过顾客选取设立三种基色值，用RGB函数来调和生成背景色
（6）在窗体上添加一种标签，来显示顾客设立后文字效果
（7）用七个框架对列表框、组合框、单选按钮控件数组、复选框控件数组、滚动条控件数组、标签等控件进行分组（8）分别对列表框、组合框、单选按钮控件数组、复选框控件数组、滚动条控件数组等控件编写单击事件过程、来详细实现文字效果设立。
2、设立界面

3、编写代码
Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Label3.FontUnderline = True
Else
Label3.FontUnderline = False
End If
If Check1(1).Value = 1 Then
Label3.FontStrikethru = True
Else
Label3.FontStrikethru = False
End If
End Sub
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "常规"
Label3.FontBold = False
Label3.FontItalic = False
Case "倾斜"
Label3.FontBold = False
Label3.FontItalic = True
Case "加粗"
Label3.FontBold = True
Label3.FontItalic = False
Case "加粗倾斜"
Label3.FontBold = True
Label3.FontItalic = True
End Select
End Sub
Private Sub Form_Load()
Dim I%
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
Combo1.AddItem "常规"
Combo1.AddItem "倾斜"
Combo1.AddItem "加粗"
Combo1.AddItem "加粗倾斜"
Option1(0).Value = True
End Sub
Private Sub HScroll1_Change(Index As Integer)
Label3.ForeColor = RGB(HScroll1(0).Value，HScroll1(1).Value，HScroll1(2).Value)
End Sub
Private Sub HScroll2_Change(Index As Integer)
Label3.BackColor = RGB(HScroll2(0).Value，HScroll2(1).Value，HScroll2(2).Value)
End Sub
Private Sub List1_Click()
Label3.FontName = List1.Text
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label3.FontSize = 10
Case 1
Label3.FontSize = 20
Case 2
Label3.FontSize = 30
Case 3
Label3.FontSize = 40
End Select
End Sub
4、属性设立