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.