Microsoft_Visual_Basic工具的使用及简单程序开发.doc

实训一、简单VB应用程序开发
【理论知识提要】
为了能体现数据库后台作用和特点，有必要加一个前台开发工具，在这里我们选择VB前台开发工具，因为VB简单易学，功能强大，数据库接口编程方便，而且比较适合作为初学者的前台开发工具，下面主要介绍一下VB的开发环境和VB的语言规范。
一、VB简介
VB是Visual Basic的缩写，Visual的含义是“可视化的”、“形象化的”，这个开发工具是由Microsoft公司出品的，是一种可视化编程工具。
可视化编程的特点：通过调用控件，并为控制对象设置属性，根据开发者的需要，直接在窗口中进行用户界面的布局设计，该项技术具有编程简单、自动生成程序代码、效率高的优点，因而在当今的编程语言中被广泛采用。
二、VB集成开发环境介绍
1．新建工程界面介绍
图5-1 新建工程界面

新建：列出了可创建的应用程序类型，一般常用的为“标准EXE”，具体工程的分类和特点参见VB相关教材，这里不再一一介绍；
现存：列出了可以选择和打开的现有工程。
最新：列出了最近使用的工程类型。
此对话框可以根据需要选择每次启动VB时是否显示。
这三个选项卡也可以通过VB中的“文件”菜单来选择和打开。
2．集成开发环境介绍
在图5-1界面选择“标准EXE”后，单击“打开”按钮，进入了如图5-2所示的集成开发环境。
主菜单中常用菜单项功能介绍如下：
（1）文件：包含新建、打开和保存工程以及生成可执行文件等的命令。
（2）编辑：包含编辑命令、格式化、编辑代码命令。
（3）视图：包含显示和隐藏集成开发环境阁员元素命令。
（4）工程：包含工程中添加和删除的各种工程组件，显示当前工程的结构和内容的命令，会随着工程内容的变化而变化。
（5）格式：包括对齐窗口控件的命令。
（6）调试：包含常用的通用调试命令。
（7）运行：包含启动、设置断点和终止当前应用程序运行的命令。
（8）查询：包含操作数据库时的查询命令以及其他数据访问命令。
（9）窗口：包含调整、控制屏幕窗口布局命令。
（10）帮助：启动联机帮助。
窗体布局窗口
图5-3 工具栏界面
标题栏
主菜单
工具箱
窗体窗口
属性
窗口
工程
窗口
工具栏
图5-2 系统集成开发环境界面

在集成开发环境中，工具集成开发环境中，各个分对象界面介绍：
添加标准控件
添加窗体
菜单编辑器
打开工程
保存工程
剪切
复制
查找
撤销
粘贴
重复
中断
启动
结束
工程资源管理器
窗体布局窗口
属性窗口
对象浏览器
工具箱
控件管理器
数据库浏览窗口
图5-3 工具栏各个工具说明界面

图5-4 窗体窗口界面
图5-5工程窗口界面

“窗体窗口”也称为“对象窗口”，主要用来在窗体设计应用程序界面，界面的设计是通过在窗体上添加控件完成的。
“工程窗口”列出了当前工程所包括的文件清单。
“工程”：VB的一个应用程序，它包括工程文件（.vbp）、窗体文件（.frm）、标准模块文件（.bas）、类模块文件（.cls）、资源文件（.res）等等。每个工程不一定包含所有文件，但至少包含.vbp和.frm文件。
图5-6 工具箱各个工具说明界面
指针
标签
框架
复选框
组合框
水平滚动条
定时器
目录列表框
图片框
文本框
命令按钮
单选钮
列表框
垂直滚动条
形状控件
图像控件
OLE容器
驱动器列表框
文件列表
直线
数据控件
对象下拉列表框
排序选项卡
对象属性列表
对象属性说明
图5-7 对象属性说明界面

工具箱中的工具就像机械零件的模具一样，利用模具作出零件，利用工具作出控件。
添加控件方法：双击工具箱中的某个图标；或者单击某个图标，在窗体上按住鼠标左键拖动，也可作出这种控件。
属性：对象的特征，如大小、名称、标题、颜色等。在对象下拉列表框中可以选择要设置属性的对象，属性列表包括两部分信息，左边所选对象的所有属性名称，右边是可以查看和修改的属性值
3．设计VB程序的一般步骤
l 设计用户界面（界面设计要友好，通过向窗体上添加控件及调整控件位置来实现）
l 设置属性（设置对象的特征，有四种方法打开属性窗口：“视图”菜单->“属性窗口”；F4键；工具栏“属性”按钮；使用对象的上下文菜单，掌握一种即可）
l 编写代码（为对象编写代码，代码要正确易读同时运行效率高；打开代码窗口有多种方法：双击对象；“视图”菜单->“代码窗口”；使用对象的上下文菜单；在工程窗口单击查看代码图标等等）
l 保存和运行调试程序，生成EXE文件（注意保存时要根据提示一一保存，对于生成的EXE文件是不可编辑的）
三、基本概念
对象：事物都可称作对象，比如计算机、鼠标就是对象，在Visual Basic里对象主要分为两类：窗体（Form）和控件（Control）。
窗体（Form）：窗体或称表单，其实指的就是Window。
控件（Control）：控件，指的是各种按钮、选项卡、对话框等。
事件：事件是发生在对象上的动作。每个对象能识别的只是一组预先定义好的事件。但并非每个事件都会产生结果
事件过程：对象感应到某一事件时所执行的程序。
方法：VB提供的特殊的子程序，用户看不到，但可以直接调用，比如显示、隐藏对象，打印等。
四、VB数据类型
数据类型
关键字
类型符
占用字节
有效范围
字节型
Byte
无
1
0~255
逻辑型
Boolean
无
2
True或False
整型
Integer
%
2
-32768~32767
长整型
Long
&
4
-2147483648~2147483647
单精度型
Single
！
4
+1.40E-45~3.40E38
双精度型
Double
#
8
+4.94D-324~1.79D308
货币型
Currency
@
8
-92233720368547.5805~
92233720368547.5807
日期型
Date
无
8
01,01,100~12,31,9999
字符型
String
$
每字符1
0~65535个字符
变体型
Variant
无

上述有效范围之一
在VB中除了基本类型外还有自定义类型和数组类型，自定义形式如下：
Type 自定义类型名
元素名 As 类型名
元素名 As 类型名
元素名 As 类型名
……
End Type
数组类型定义如下：
说明符 数组名(下标) [As 数据类型]
说明符 数组名(下标下界 To 下标上界) [As 类型]
例：Dim a(10) As Integer ‘定义a数组，共11个元素下标从0到10
Dim a(1 to 5) As Integer ‘定义a数组，下标从1到5共5个元素
五、VB变量声明及命名规则
1．用户声明常量
[Public|Private]Const 常量名[As 类型]=表达式
例：Const Pi=3.1415926
Public Const Maxnumber As Integer=1000
Const StuName=”Student Name”
2．用Dim语句声明变量
Dim 变量名 [As 数据类型]
例：Dim num1 As Integer
Dim StuName As String*8
Dim X1,X2 As Byte,d1 As long
3．用Static、Public、Private语句声明变量
Static 变量名[As 数据类型][,变量名 [As 数据类型]……] ‘声明过程级静态变量
Public 变量名[As 数据类型][,变量名 [As 数据类型]……] ‘声明全局变量
Private 变量名[As 数据类型][,变量名 [As 数据类型]……] ‘声明模块级变量
4．隐式说明
利用类型说明符号进行变量类型说明的方式称为隐式声明方式，例：
Dim x1%,x2%,x3&等价于Dim x1,x2 As Integer,x3 As Long
5．变量名命名规则
在VB中变量名的命名规则为：第一个字符必须为字母，变量名第2个字符及以后字符可以是字母、数字和下划线，变量名的长度必须小于255个字符，不能将VB的保留字作为变量名，构成变量名的字母不区分大小写，变量名中间不能有空格，在同一个程序模块中不允许有相同的变量名。
六、VB运算符
1．算术运算符
运算符
含义
举例
结果
优先级
^
指数
2^3
8
1
-
取负
-100
-100
2
*
乘
3*9
27
3
/
除
5/2
2.5
3
\
整除
5\2
2
4
Mod
取模
5Mod2
1
5
+
加
3+5
8
6
-
减
3-5
-2
7
2．关系运算符
运算符
含义
举例
结果
=
等于
“1234”=”129”
False
>
大于
“1234”>”129”
False
>=
大于等于
56>=23
True
<
小于
45<54
True
<=
小于等于
“XY”<=”YZ”
True
<>
不等于
“sss”<>”SSS”
True
3．逻辑运算符
运算符
含义
举例
结果
说明
Not
取反
Not(5>3)
Flase
结果与操作数的值相反
And
与
(2>=1)And(“c”>”a”)
True
两个表达式均为真时结果为真
Or
或
(7<3)Or(8>=8)
True
两个表达式一个为真时结果为真
Xor
异或
(4=7)Xor(9<3)
False
两个表达式的值相异时结果为真
Eqv
等价
(1<2)Eqv(“a”<”b”)
True
两个表达式的值相同时结果为真
Imp
蕴含
(5>3)Imp(3>5)
False
第一操作数为真，第二位假，结果为假
4．字符串连接运算符
例子
结果
“AB”&”C”
“ABC”
“x=”&3.14
x=3.14
“AB”+”C”
“ABC”
“100”+200
300
“AB”+200
出错
5．日期时间运算符
例子
结果
#11/20/2004#+30
#2004-12-20#
#11/20/2004#-#10/20/2004#
30
#11/20/2004#-1.5
04-11-18 12:00:00
#11/20/2004#<#10/20/2004#
False
6．运算符的优先级
运算符由高到低的优先顺序为：算术运算符->字符串连接运算符（&）->关系运算符->逻辑运算符；
算术运算符的优先顺序为：^->-（负号）->*->/->\->Mod->+->-；
逻辑运算符由高到低的优先顺序为：Not->And->Or->Xor->Eqv->Imp。
七、VB常用内部函数
1．类型转换函数
函数名
功能
举例
返回值
Asc(C)
字符转换成ASCII值
Asc(“A”)
65
Chr$(N)
ASCII值转换成字符
Chr$(65)
“A”
Str$(N)
数值转换成字符串
Str$(16.78)
“16.78”
Val(C)
字符串转换为数值
Val(“12”)=8
20
2．数学运算符
函数名
功能
举例
返回值
Abs(N)
取绝对值
Abs(-5)
5
Cos(N)
余弦函数
Cos(0)
1
Exp(N)
e为底的指数函数ex
Exp(3)
20.086
Fix(N)
取整
Fix(3.14)
3
Hex[$](N)
十进制转换为十六进制
Hex[$](255)
FF
Int(N)
取小于或等于N的最大整数
Int(2.9)
Int(-2.9)
2
-3
Lcase$(C)
大写字母转换为小写字母
Lcase$(“XYZ”)
“xyz”
Log(N)
以e为底的自然对数
Log(10)
2.3
Oct[$](N)
十进制转换成八进制
Oct(100)
144
Rnd[(N)]
产生随机数
Rnd
0~1之间的数
Sin(N)
正弦函数
Sin(0)
0
Sgn(N)
符号函数
Sgn(-2.9)
-1
Sqr(N)
平方根
Sqr(25)
5
Tan(N)
正切函数
Tan(0)
0
Ucase$(C)
小写字母转换为大写字母
Ucase$(“xyz”)
“XYZ”
3．字符串函数
函数名
功能
举例
返回值
Instr([N1,]C1,C2,[M])
在C1中从N1开始找C2第一个字符的位置
Instr(2,”abcdef”,”de”)
4
Left$(C,N)
取字符串左边的N个字符
Left$(“abcdef”,4)
“abcd”
Len(C)
返回字符串的长度
Len(“abcdef”)
6
Ltrim$(C)
去掉字符串左边空格
Ltrim$(“abc”)
“abc”
Mid$(C,N1,N2)
从字符串的N1位开始向右取N2个字符
Mid$(“abcdef”,2,4)
“bcde”
Right$(C,N)
取字符串右边N个字符
Right$(“abcdef”,4)
“cdef”
Rtrim$(C)
去掉字符串右边空格
Rtrim$(“abcd”)
“abcd”
Space$(N)
产生N个空格的字符串
Space$(4)
“ ”
String$(N,C)
返回由C中首字符组成的N个字符
String$(4,”abcdef”)
“aaaa”
4．日期时间函数
函数名
功能
举例
返回值
Date
返回系统日期
Date
2009-9-10
Time
返回系统时间
Time
18:20:00
Now
返回系统日期和时间
Now
2009-9-10 18:20:00
Day
返回日期（1~31）
Day(“2009,9,10”)
10
Month
返回月份（1~12）
Month(“2009,9,10”)
9
Year
返回年份
Year(“2009,9,10”)
2009
Weekday
返回星期几（1~7）
Weekday(“2009,9,10”)
5(星期四)
Hour
返回小时（0~23）
Hour(“9:36:55 PM”)
21
Minute
返回分钟（0~59）
Minute(“9:36:55 PM”)
36
Second
返回秒钟（0~59）
Second(“9:36:55 PM”)
55
八、VB流程控制
VB流程控制语句和其他高级语言相同也分为：顺序结构、选择结构、循环结构。
1．选择结构
选择结构分为四种：“单行结构”条件语句、“块结构”条件语句、“嵌套结构”条件语句、多分支条件语句。
（1）“单行结构”条件语句
格式：If 条件 Then 语句组1 [Else 语句组2]
功能：若条件成立，执行语句组1，否则执行语句组2；
注意：
l 整个语句必须在一行，如果语句组中语句多于一条，则用冒号分隔；
l Else部分不是必须的，可根据需要进行添加或缺省。
举例：找两个数最大值
If x>y then max=x else max=y
（2）“块结构”条件语句
格式：
If 条件 Then
语句块1
[Else
语句块2]
End If
功能：同“单行结构”条件语句功能；
注意：
l “块结构”的使用必须和上面的格式严格一样；
l Then后的语句块1必须放在Then的下一行；
l Else后的语句块2可以放在与Else同一行，但Else后必须有冒号（如没有，系统会自动添加），也可以放在Else的下一行；
l End if是块结束的标志不能省略。
举例：找两个数中最大值
If x>y then
max=x
Else
max=y
End if
（3）“嵌套结构”条件语句
在语句组中又包含条件格式，称为“嵌套结构”条件语句。
举例：成绩转换成五级制
If x>=95 Then
Print”优”
ElseIf x>=85 Then
print”良”
ElseIf x>=75 Then
print”中”
……
End if
（4）多分支条件语句
格式：
Select case 测试表达式
case 表达式列表1
语句块1
case 表达式列表2
语句块2
……
case else
语句块n+1
End case
2．循环结构
循环结构分为For…Next循环、Do…Loop循环、While…Wend循环。
（1）For…Next循环
格式：
For 循环控制变量=初值 To 终值 [Step步长]
语句块1
[Exit For]
[语句块2]
Next[循环控制变量]
说明：
l For与Next必须成对出现；
l 初值、终值和步长为数值型表达式；
l 步长不能为0，为1时可以省略；
l Exit For的作用是结束循环，跳过Next语句，继续执行下面语句序列。
举例：求1到100之间的偶数和
Y=0
For i=2 To 100 step 2
Y=Y+i
Next i
Print Y
（2）Do…Loop循环
格式1：
Do
语句块1
[Exit Do]
[语句块2]
Loop[While|Until循环条件]
说明：
l Do和Loop必须成对出现
l 循环条件用逻辑表达式写，True成立,False不成立
l 用While时，循环条件为True执行循环体，False结束循环，Until和While正好相反
举例：计算1到100之间的奇数和
Y=0
i=1
Do
Y=Y+i: i=i+2
Loop while i<=99
print Y
格式2：
Do [While|Until循环条件]
语句块1
[Exit Do]
[语句块2]
Loop
（3）While…Wend循环
格式：
While 条件
语句块
Wend
举例：计算1到100之间的奇数和
Y=0
i=1
while i<=99
Y=Y+i
i=i+2
wend
print Y
【实验要求】
（1）对于验证性实验，要求学生按照具体的实验步骤完成相应的作品制作，并保存在相应的盘符下（包括一个工程文件、5个窗体文件、一个图标文件夹、一个图片文件夹），以备按教师要求上交作业。
（2）由于本部分实验是为数据库的开发打基础，并不是该课程的重点，所以不要求进行自主设计开发，如果学生自己有兴趣可以参考具体的VB教程进行自学。
（3）对于开发过程中出现的问题要求学生记录下来，并进行分析错误的原因，如果不能自己解决应及时请教教师或同学。

【验证性实验】
利用VB环境开发带有菜单、工具栏的多窗体程序，其中共包括4个界面：字体格式设置界面，数值计算界面，利用定时器进行图片浏览界面， 列表框和组合框使用界面。
图5-8 主界面
图5-9 字体格式界面
具体实现界面如图5-8，5-9，5-10，5-11，5-12所示。

图5-11 定时器图片界面（每2秒换一次图片）

图5-10 数值计算界面

图5-12 组合框列表框界面

实验作品制作步骤如下（参考理论知识中介绍的开发VB程序的一般流程）：
图5-13 修改窗体属性界面
【步骤1】建立VB工程和主窗体：启动VB之后出现，出现如图5-1所示的新建工程界面，选择“标准EXE”，单击“打开”，进入VB集成开发环境，如图5-2所示。出现的Form1将作为我们开发的主窗体。在主窗体界面修改form1的caption属性值为“多功能主窗体”如图5-13所示：

【步骤2】建立菜单：在工具栏中选择“菜单编辑器”，出现如图5-14所示的界面。在“标题”中输入菜单显示的内容，在“名称”中输入菜单的名称（菜单名称以m_开头，而且菜单名称不能重复），其他的内容我们就可以采用默认值。具体的菜单标题和名称如表5-1所示。
图5-14 菜单编辑器界面
图5-15 菜单编辑完成界面

具体完成界面如图5-15所示，新菜单项的插入通过“下一个”按钮进行，关于“字体格式”、“数值计算”、“定时器图片”、“列表框组合框”、“退出”等五个菜单项位于“界面”菜单的下一级，可以通过界面中的向右箭头来调整。菜单设计好后，单击“确定”按钮，则新创建的菜单自动挂在了form1窗体上，如图5-16所示。
图5-16 菜单完成界面
表5-1 菜单标题名称表
退出 m_exit

【步骤3】建立工具栏：工具栏是将菜单中的功能以快捷工具按钮的形式进行体现，在VB中实现工具栏需要两个控件，toolbar和imagelist，这两个控件属于activeX控件的一部分，在使用前，需要在工具箱的空白区域单击鼠标右键，如图5-17所示，选择“部件”菜单项，出现如图5-18所示的“部件”对话框，选中“Microsoft Windows Common Controls 6.0”复选框，单击“确定”按钮，这时工具箱中会多出很多新工具控件。选择toolbar控件，然后单击窗体，在窗体的菜单栏下将出现一条灰色无网格区域，这个区域就是工具栏的最终位置；单击imagelist控件，单击窗体，在窗体中出现imagelist的小图标，具体界面如图5-19所示。在做工具栏之前，需要将放在工具栏上的图标保存到相应的文件夹内（这里需要用到四个图标）。在窗体imagelist小图标上右击，在弹出式菜单中选择“属性”菜单项，出现如图5-20所示的image属性界面，在“图像”选项卡中利用“插入图片”按钮将保存在指定位置的小图标插入进来，默认情况下，第一个图片索引为1，第二个图片索引为2，以后依此类推。四个图片都插入后单击“确定”按钮。关于imagelist的属性设置好后接着设置toolbar属性，右击form1菜单栏下的灰色toolbar控件，在弹出式菜单中选择“属性”菜单项，出现如图5-21所示toolbar属性界面，在“通用”选项卡的“图像列表”后的下拉框中选择“imagelist1”，这时imagelist1和toolbar1就建立起来了联系；在“按钮”选项卡中通过“插入按钮”按钮为toolbar1插入按钮，每插入一个按钮，修改相应的“图像”后的索引值（与imagelist1中的图片索引对应），让按钮之上出现我们设计的小图标，四个按钮和相应的图像都建立好对应关系后单击“应用”按钮和“确定”按钮，这时我们的工具栏就做好了。
图5-17 添加部件
图5-18 部件对话框界面

图5-19 添加toolbar和imagelist界面
图5-20 imagelist属性界面

图5-21 toolbar属性“通用”界面
图5-22 toolbar属性“按钮”界面

注：如果没有imagelist控件，toolbar也能完成工具栏的制作，同时可以通过编程实现连接相应窗体的功能，但是toolbar工具栏上的工具按钮只是一个一个的灰色图标，界面友好性较差。
【步骤4】建立字体格式设置界面：利用“工程”菜单下“添加窗体”菜单项（或工具栏“添加窗体”按钮）创建新窗体，添加新窗体界面如图5-23所示，选择“窗体”，单击“打开”按钮，这时在开发区出现了默认名为“form2”的新窗体，如图5-24所示。在form2窗体中按表5-2所示添加新控件并设置控件属性。设置好后，单击工具栏上“保存”按钮，出现保存窗体界面，将form2和form1保存在相同的路径下，窗体名采用默认值即可。
图5-23 添加窗体界面
图5-24 新窗体界面

图5-25 字体格式界面
表5-2 “字体格式窗体”控件说明

注：下面界面的创建过程和【步骤5】窗体的创建过程相似，所以只给出相应的控件名和控件属性值表，其他操作参考【步骤5】。
【步骤5】建立数值计算界面：实现数据的求绝对值和求Σ，具体控件名和属性值设置参见表5-3，完成界面参见图5-26。
图5-26 数值计算界面
表5-3 数值计算界面控件说明

【步骤6】建立定时器图片浏览界面：要建立图片浏览界面，首先必须先建立图库，也就是在指定的位置存放一定数量的图片，以备浏览时显示（在工程存储路径下创建picture文件夹，存放从1开始编号的10个.jpg文件）。这里具体控件名和属性值设置参见表5-4，完成界面参见图5-27。

图5-27 图片浏览界面
表5-4 图片浏览界面控件说明

【步骤7】建立列表框和组合框界面：具体控件名和属性值设置参见表5-5，完成界面参见图5-28。
图5-28 列表框组合框界面
表5-5 列表框组合框界面控件说明

注：根据VB开发的一般步骤，界面和界面总体风格设计好后就可以进行代码设计了，下面就根据每个界面的完成功能进行相应代码设计，代码设计是在各个窗体中完成的，各个窗体的切换可以再“工程”窗口通过鼠标双击实现。
【步骤8】为菜单和工具栏进行代码设计：在form1中单击“界面”菜单，在下拉菜单项中，单击“字体格式”进入m_font_click代码设计界面如图5-29所示，在此界面输入如下程序语句：
Private Sub m_font_Click() '为“字体格式”菜单项的单击事件添加代码
Form2.Show '打开form2窗体
End Sub

图5-29 代码设计界面
对象选择下拉框
事件选择下拉框

依此方法，分别为“数值计算”、“定时器图片”、“列表框组合框”、“退出”等菜单项设计代码如下：
Private Sub m_list_Click()
Form5.Show
End Sub
Private Sub m_number_Click()
Form3.Show
End Sub
Private Sub m_timer_Click()
Form4.Show
End Sub
Private Sub m_exit_Click()
End
End Sub
工具栏中的图标分别与各个下拉菜单项建立联系，利用select…case结构，具体代码如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index '利用toolbar按钮的index为判定值
Case 1 '第一个按钮链接“字体格式”菜单项
Call m_font_Click
Case 2 '第二个按钮链接“数值计算”菜单项
Call m_number_Click
Case 3 '第三个按钮链接“定时器图片”菜单项
Call m_timer_Click
Case 4 '第四个按钮链接“列表框组合框”菜单项
Call m_list_Click
End Select
End Sub
代码设计好后，关闭代码设计界面。
注：在进行代码设计时，只有菜单项的代码设计窗口是通过单击相应菜单项进入，其他控件的代码设计界面均需要通过双击相应控件进入，进入后默认的事件是该控件最常用的事件，我们在编码设计时往往是对默认事件进行编程。
【步骤10】为字体格式设置界面进行代码设计：该界面只需要对“确认”按钮的单击事件编写代码，实现单选钮和检查框对字体的格式设置，具体代码如下：
Private Sub Command1_Click()
If Option1.Value = True Then '利用单选钮的值设置字号
Text1.FontSize = 5
ElseIf Option2.Value = True Then
Text1.FontSize = 10
ElseIf Option3.Value = True Then
Text1.FontSize = 20
End If
If Check1.Value = 1 Then '利用复选框的值设置其他效果
Text1.ForeColor = &HFF&
End If
If Check2.Value = 1 Then
Text1.FontUnderline = True
End If
If Check3.Value = 1 Then
Text1.FontBold = True
End If
End Sub
代码设计好后，关闭代码设计界面。
【步骤11】为数值计算界面进行代码设计：该界面只需要对“求绝对值”和“求和”两个命令按钮进行代码设计。
“求绝对值”命令按钮单击事件代码设计如下：
Private Sub Command1_Click()
If Int(Text1.Text) < 0 Then '利用函数int将字符串转换为数字
Text2.Text = Str(-Int(Text1.Text)) '利用函数str将数字转换为字符串
Else: Text2.Text = Str(Text1.Text)
End If
End Sub
“求和”命令按钮单击事件代码设计如下：
Private Sub Command2_Click()
Dim i As Integer, y As Integer
y = 0
i = 1
For i = 1 To Int(Text2.Text) '利用for循环实现求和操作
y = y + i
Next
Text3.Text = Str(y)
End Sub
代码设计好后，关闭代码设计界面。
【步骤12】为定时器图片浏览界面进行代码设计：该界面的运行流程是，在窗体第一次出现时首先应出现第一幅图片，同时需要在窗体加载时设置定时器的时间间隔，然后利用定时器的timer事件进行图片的连续播放，播放间隔为窗体加载时设计的时间间隔。定时器和窗体对于图片的名称和图片的数目等变量是共享的，所以还需要设置通用变量。
设计窗体form的加载load事件，双击窗体的空白区域，在代码设计界面首先设置通用变量然后设计窗体的加载事件，设置通用变量的方法是，在如图5-29所示的“对象选择下拉框”中选择“通用”，然后输入如下变量定义：
Dim picnum As Integer
Dim picname As String
再通过“对象选择下拉框”选择form，为form的load事件编写如下代码：
Private Sub Form_Load()
picnum = 1
picname ="E:\2008级数据库\VB作品\picture\" & picnum & ".jpg"
'图片保存在相应目录下的picture文件夹内，并以1.jpg，2.jpg等命名
Form1.Caption = Form1.Caption + picname
Picture1.Picture = LoadPicture(picname)
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub
在“对象选择下拉框”中选择timer1控件，为timer1的timer控件编写如下代码：
Private Sub Timer1_Timer()
If picnum <= 10 Then '一共10幅图片
picname = "E:\2008级数据库\VB作品\picture\" & picnum & ".jpg"
Form1.Caption = picname
Picture1.Picture = LoadPicture(picname)
picnum = picnum + 1
ElseIf picnum > 10 Then '如果大于10则重新从头循环显示
picnum = picnum - 10
picname = "E:\2008级数据库\VB作品\picture\" & picnum & ".jpg"
Form1.Caption = picname
Picture1.Picture = LoadPicture(picname)
picnum = picnum + 1
End If
End Sub
“退出”命令按钮的单击事件代码如下：
Private Sub Command1_Click()
End
End Sub
代码设计好后，关闭代码设计界面。
【步骤13】为列表框和组合框界面进行代码设计：首先为窗体form的load事件添加代码，目的在于为“班级列表”对应的组合框添加具体的班级（也可以利用combo1的listdata属性进行设置），双击窗体的空白区域，打开代码设计界面，代码设计如下：
Private Sub Form_Load()
Combo1.A