vfp编程

ＩＳＳＮ １ ００９—３０４４ ’

Ｃｏｍｐｕ￣ｒＫｎｏｗｌｅｄｇｅ ａｎｄＴｅｃｈｎｏｌｏｇｙ电脑知识与技术

Ｖｏ１．６，Ｎｏ．５，Ｆｅｂｒｕａｒｙ ２０１０，ＰＰ．１１１８－１１２０，１１２５

Ｅ—ｍａｉｌ：ｘｓｊｌ＠ｃｃｃｃ．ｎｅｔ．ｃｎ

ｈｔｔｐ：／／ｗｗｗ．ｄｎｚｓ．ｎｅｔ．ｅｎ

Ｔｅ１：＋８６—５５ ｌ一５６９０９６３ ５６９０９６４

Ｗｉｎｄｏｗｓ环境下利用ＶＦＰ编程实现带背景音乐的无纸化考试系统

夏建华 、

（浙江省绍兴县职业教育中心，浙江绍兴３１２０３０）

摘要：该文给出了一种在Ｗｉｎｄｏｗｓ环境下利用Ｖｉｓｕａｌ Ｆｏｘｐｒｏ编制无纸化考试系统的实现方案，同时介绍了利用系统的一个动态链

接库Ｆｏｘｔｏｏｌｓ．ｆｌｌ巧妙地为系统添加背景音乐的技巧，一改以往使用０ＬＥ控件嵌套的繁琐方法，效果更好，占用资源更少。

关键词：背景音乐；动态链接库；数据库；控件；表单；Ｖｉｓｕａｌ ＦｏｘＰｒｏ（ＶＦＰ）

中图分类号：ＴＰ３１１ 文献标识码：Ａ 文章编号：１００９—３０４４（２０１０）０５—１１１８—０３

Ｕｓｅ ＶＦＰ Ｐｒｏｇｒａｍｍｉｎｇ ｔｏ Ｉｍｐｌｅｍｅｎｔａｔｉｏｎ ａ Ｎ０ｎｐａｐｅｒｌｉｚｅｄ Ｓｙｓｔｅｍ ｗｉｔｈ Ｂａｃｋｇｒｏｕｎｄ Ｍｕｓｉｃ Ｂａｓｅｄ ｏｎ Ｗｉｎｄｏｗｓ Ｏｐｅｒａｔｉｎｇ Ｓｙｓｔｅｍ

ＸＩＡ Ｊｉａｎ—ｈｕａ

（Ｓｈａｏｘｉｎｇ ｃｏｕｎｔｙ ｖｏｃａｔｉｏｎａｌ ｅｄｕｃａｔｉｏｎ ｃｅｎｔｅｒ，Ｓｈａｏｘｉｎｇ ３１２０３０，Ｃｈｉｎａ）

Ａｂｓｔｒａｃｔ：Ｔｈｉｓ ａｒｔｉｃｌｅ ｐｒｅｓｅｎｔｓ ａ Ｗｉｎｄｏｗｓ ｅｎｖｉｒｏｎｍｅｎｔ ｕｓｉｎｇ Ｖｉｓｕａｌ ＦｏｘＰｒｏ ｃｏｍｐｉｌａｔｉｏｎ ｏｆ ｔｈｅ ｎｏｎｐａｐｅｒｌｉｚｅｄ ｓｙｓｔｅｍ ｏｆ ｉｍｐｌｅｍｅｎｔａｔｉｏｎ，ａｔ

ｔｈｅ ｓａｍｅ ｔｉｍｅ ｄｅｓｃｒｉｂｅｓ ｔｈｅ ｕｓｅ ｏｆ ａ ｄｙｎａｍｉｃ—ｌｉｎｋ ｌｉｂｒａｒｙ Ｆｏｘｔｏｏｌｓ．ｆｌｌ ｎｅａｄｙ ｔｏ ａｄｄ ｂａｃｋｇｒｏｕｎｄ ｍｕｓｉｃ ａｎｄ ｄｅｓｉｓｔ ｕｓｉｎｇ ｔｈｅ ０ＬＥ ｃｏｎｔｒｏｌｓ

ｎｅｓｔｅｄ ｃｕｍｂｅｒｓｏｍｅ ｍｅｔｈｏｄ ｗｉｌｌ ｗｏｒｋ ｂｅｔｔｅｒ，ｌｅｓｓ ｒｅｓｏｕｒｃｅ—ｉｎｔｅｎｓｉｖｅ．

Ｋｅｙ ｗｏｒｄｓ：ｂａｃｋｇｒｏｕｎｄ ｍｕｓｉｃ；Ｄｙｎａｍｉｃ—ｈｎｋ ｌｉｂｒａｒｙ；Ｄａｔｅｂａｓｅ；Ｃｏｎｔｒｏｌ；Ｆｏｒｍ；Ｖｉｓｕａｌ Ｆｏｘｐｒｏ（ｖＦＰ）

当今世界最先进、最省事的考试方法莫过于无纸化考试方式，即利用微机进行自动化出题、改卷、统计分数等代替手工操作的

考试方式．现已广泛应用于如机动车驾驶员理论科目考试等场合。微机无纸化考试系统的应用使得各类考试逐渐趋向规范化和标

准化，而在各类标准化考试中选择题、是非判断等客观题所占的比例越来越大，本文就以单项选择、多项选择和是非判断题为例粗

浅地探讨一下怎样利用数据库技术完成题目的生成、显示、操作和计分方法，以求抛砖引玉，同时希望能对利用Ｖｉｓｖａｌ Ｆｏｘｐｒｏ进行

这方面编程开发的朋友有一定帮助。

关于无纸化考试的微机实现，是探讨得比较多的一个话题，以前曾有一少作者提出过见仁见智的方案．然而大都是建立在ＤＯＳ

这个早期操作系统环境下的，且离不开ＵＣＤＯＳ汉字系统，这种利用Ｆｏｘｂａｓｅ或Ｆ０ｘＰｒｏ编写出来的程序不但代码冗长、界面粗糙，而

且操作不方便。而今在Ｗｉｎｄｏｗｓ环境下，利用功能强大的面向对象开发工具如Ｖｉｓｕａｌ ＦｏｘＰｒｏ可以十分方便地开发出界面美观、操作

方便的考试系统。并且我们还可以利用ＶＦＰ的动态链接库ｆｏｘｔｏｏ］Ｓ．ｆｌｌ给系统加上美妙的背景音乐。

１背景音乐的实现

在利用Ｖｉｓｕａｌ Ｆｏｘｐｒｏ编制应用程序时，如果能给应用程序添加背景音乐，无疑是件锦上添花的事，背景音乐能给应用程序增色

不少。不般的方法是利用ＯＬＥ（对象嵌入与链接）进行嵌套。具体方法是选择“表单控件”上的“ＯＬＥ容器控件”，将其拖到表单上，再

在“插入对象（Ｉｎｓｅｒｔ Ｏｂｊｅｃｔ）”窗口中选择“媒体剪辑”，调用“媒体播放机”，利用它来播放出音乐，同时把播放任务条隐藏起来。利用

这种方法要占用大量系统资源，且要利用到外部程序“媒体播放机”，不是一个好方法。其实我们可以利用ＶＦＰ的动态链接库ｆｏｘ．

ｔｏｏｌｓ．ｆｌｌ来轻松实现背景音乐，而且极少占用系统资源。ｆｏｘｔｏｏｌｓ．ｆｌｌ位于ＶＦＰ的安装目录中，默认安装时可以在Ｃ：Ｗｒｏｇｒａｍ Ｆｉｌｅｓ＼ＶＦＰ５

目录下找到它，你可以把它单独拷贝到你的考试系统项目的主目录内，这里我们假定Ｃ：＼Ｑｕｉｚ为我们考试系统的主目录，把ｆｏｘｔｏｏｌｓ．

玎ｌ拷贝到其内。接着要准备一ＷＡＶ格式的背景音乐文件（这里以ｂａｃｋ．ｗａｖ这例），放于主目录Ｃ：＼Ｑｕｉｚ中；现在我们可以为系统添加

背景了，在考试系统项目的第一个表单（这里为Ｆｏｒｍ１）的Ａｃｔｉｖａｔｅ事件中加入如下代码：

ｐｕｂｌｉｃ ｓｏｕｎｄ

ｓｅｔ ｄｅｆａ ｔｏ Ｃ：＼Ｑｕｉｚ

ｓｅｔ Ｌｉｂｒａｒｙ ｔｏ ｆｏｘｔｏｏｌｓ．ｆｌｌ ＆＆指定ＦｏｘＰｒｏ动态链接库

ｓｏｕｎｄ＝ｒｅｇｆｎ（”ＳｎｄｐｌａｙＳｏｕｎｄ”，”ＣＩ Ｖｌ Ｉ ＴＩｔｌ，ＩＩＭｍｓｙｓｔｅｍ”）

＝ｃａｌｌｆｎ（ｓｏｕｎｄ．”ｂａｃｋ．ｗａｙ”，１１ ＆＆播放背景音乐ｂａｃｋ．ｗａｖ

为了在表单释放时关闭音乐，同时在ＬｏｓｔＦｏｃｕｓ事件中加入代码：

＝Ｃａｌｌｆｎ（ｓｏｕｎｄ，””，０）

ｓｅｔ ｌｉｂｒａｒｙ ｔｏ

同理你可以为系统内的任一个表单添加不同的背景音乐，方法是在表单的Ａｃｔｉｖａｔｅ和ＬｏｓｔＦｏｃｕｓ事件中分别加入以上的代码，

如果指定音乐文件ｂａｃｋ．ｗａｖ为其它ｗａｖ，则可以播放出不同的背景音乐了。

２考试系统韵前期准备——数据库准备

系统中要建立两类数据库：考生名册库与题库。每个考试班级应建立单独的考生名册数据库，注意它在Ｖｉｓｕａｌ ｆｏｘＰｒｏ中称为表，

即ＤＢＦ文件。接着把考生班级放在登录界面的下拉列表框中供考生选择。这里建立三个样例班级考生名册表：９７建经．ＤＢＦ、９７水

收稿日期：２０１０—０１—０３

作者简介：夏建华，浙江省绍兴县职业教育中心计算机讲师，中学一级教师，中国计算机用户协会多媒体分会会员，中国管理科学研

究院学术委员会特约研究员，从事计算机网络、数据库、电子商务方面的教学和研究工作。

１１１８ 软件设计开发＊ ＊ 本栏目责任编辑：谢媛媛

第６卷第５期（２０１０年２月）

电．ＤＢＦ和９７计中．ＤＢＦ，每班人数不限，库结构如下表所示

Ｃｏｍｐｕｔｅｒ Ｋｎｏｗｌｅｄｇｅ ａｎｄ Ｔｅｃｈｎｏｌｏｇｙ电脑知识与技术

接着建立题库，本无纸化考试系统包括三种题型：单项选择题、多项选择题、是非判断题，故系统应包括这三个测试模块，三种

题型的数据库结构如下：

多项选择．ｄｂｆ

段

趣

选Ａ

选Ｂ

选Ｉｌ

选Ｉ

笄集

州

炎型 瘫段

‘ 绮 ２５２

字箭 １２６

宁符， １２６

７－祷 １２６

１ ２６

字荷 １

逻 ■ ｌ

建立完了数据库后，输入班级学生名册和各类题目，准备工作即告结束。这里以２０个单项选择题（每题２分）、１０个多项选择题

（每题４分）、１０个是非判断题（每题２分）为例进行考试，当然你也可以改变各类题目数量，但评分标准亦要进行相应改变。

３总体设计

首先要确定设计目标：系统能实现考生登录、题目读取、答题、成绩统计和显示等。

其中单项选择和多项选择同属于选择题型，但因多项选择有多个正确答案，所以在设计上应有所区别，刚好在Ｖｉｓｕａｌ ＦｏｘＰｒｏ中

有单选框与复选框等控件与之相对应。

各模块功能如下：

１）登录模块：考生登录功能；选择班级、输入学号后，系统打开考生名册库，把指针定位到与输入学号相符的考生记录，同时显

示该考生的姓名供考生核对，无误后随即进入测试模块。

２）测试模块：分为“单项选择”、“多项选择”、和“是非判断”三个标准模块。每个模块界面大同小异，有“上一题”、“下一题”等按

钮．同时显示题目总数和剩余量。

３）成绩模块：成绩的统计与显示功能。考生一旦登录系统，首先初化成绩（Ｓｃｏｒｅｓ）为０，随后每做一题即自动累加计分，待到考生

按下“交卷”按钮后，弹出一个 示该考生成绩的表单窗口，然后退出系统，考试即告完成。

４源代码举例

４．１ Ｆｏｒｍ“考生登录”（Ａｃｔｉｖａｔｅ事件）代码

ＳＥＴＥＸＡＣＴ ０Ｎ

ｓｅｔ ｄｅｆａ ｔｏ ｓｙｓ（５）＋”＼ｑｕｉｚ”

ｍｏｄｉ ｗｉｎｄｏｗ ｓｃｒｅｅｎ ｔｉｔｌｅ”绍兴工业学校计算机考试系统”

ｚｏｏｍ ｗｉｎｄｏｗ ｓｃｒｅｅｎ ｍａｘ ＆＆使运行窗口最大化

ＳＥＴ ＳＹＳＭＥＮＵ ＯＦＦ ＆＆关闭窗口内的系统菜单

ｓｅｔ ｐａｔｈ ｔｏ ｓｙｓ（２００４）

ｐｕｂｌｉｃ ｓｃｏｒｅｓ ＆＆定义一个存放考生成绩的公用变量ｓｃｏｒｅｓ

ｓｃｏｒｅｓ：Ｏ

ｔｈｉｓｆｏｒｉｎ．ｔｅｘｔ２．ＳｅｔＦｏｃｕｓ ＆＆把光标定位到输入学号文本框

４．２登录模块窗口中，输入学号显示考生姓名，核对无误，按“正确无误”按钮进入测试模块

对此按钮设置代码如下：

Ｂｕｔｔｏｎ“正确无误”（Ｃｌｉｃｋ事件１代码

ＸＨ＝ｔｈｉｓｆｏｒｍ，ｔｅｘｔ２．ｖａｌｕｅ ’

ＢＪ＝ｔｈｉｓｆｏｒｍ．Ｃｏｍｂｏ １．ｖａｌｕｅ

ｓｅｌｅｃｔ １ ‘

ｕｓｅ＼ｑｕｉｚ＼ｄａｔａ＼＆ＢＪ

ｓｅｌｅｃｔ ２

ｎｓｅ＼ｑｕｉｚ＼ｄａｔａ＼单项选择

ｓｅｌｅｃｔ ４

ｕｓｅ＼ｑｕｉｚ＼ｄａｔａ＼多项选择

ｓｅｌｅｃｔ ６

ｕｓｅ＼ｑｕｉｚ＼ｄａｔａ＼是非判断

ｉｆ ＸＨ！＝０

ｓｅｌｅｃｔ １

ｌｏｃａｔｅ ａｌｌ ｆｏｒ学号＝ＸＨ

ｉｆｆｏｕｎｄ０

ｔｈｉｓｆｏｒｉｎ．ｔｅｘｔ４．ｖａｌｕｅ＝姓名

成绩＝ｓｃｏｒｅｓ

本栏目责任编辑：谢媛媛

＆＆打开选中的班级名册库

＆＆打开“单项选择”题库

＆＆打开“多项选择”题库

＆＆打开“是非判断”题库

＆＆如果学号不空

＆＆把指针定位到与输入学号相符的考生记录

＆＆显示考生姓名以便核对

； 软件设计开发 １１１９

丽 一～ 逻逻是 删

匝宽 一社 一一～～一一～～～ 单一＝｝一

ＣｏｍｐｕｔｅｒＫｎｏｗｌｅｄｇｅａｎｄ Ｔ

．

ｅｃｈｎｏｌｏｇｙ电脑知识与技术

ｗａｉｔ””

ｒｅｌｅａｓｅ ｔｈｉｓｆｏｒｍ

ｄｏｆｏｒｍ＼ｑｕｉｚｋｆｏｒｍｓ＼单项选择 ＆＆打开“单项选择”模块窗口

ｅｌｓｅ

ｍｅｓｓａｇｅｂｏｘ（”没有找到你的名字，请重新输入学号”）

ｔｈｉｓｆｏｒｍ．ｔｅｘｔ４．ｖａｌｕｅ＝”没有相应姓名”

ｅｎｄｉｆ

ｅｌｓｅ

ｔｈｉｓｆｏｒｍ．ｔｅｘｔ４．ｖａｌｕｅ＝”查无此人”

ｅｎｄｉｆ

４．３ Ｆｏｒｍ“单项选择”（Ａｃｔｉｖａｔｅ事件）代码

ｐｕｂｌｉｃ Ｂｕｍ

ｓｅｌｅｃｔ ２

ｃｏｕｎｔ ａｌｌ ｔｏ Ｂｕｍ

ｒｅｐｌａｃｅ ａｌｌ对错ｗｉｔｈ．Ｆ．

ｇｏｔｏｐ

ｔｈｉｓｆｏｒｍ．ｔｅｘｔ１．ｖａｌｕｅ＝题目

＆＆定义一个存放题目数量的公用变量ｎｕｍ

ｔｈｉｓ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ１．ｃａｐｔｉｏｎ＝”Ａ、”＋选ａ

ｔｈｉｓ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ２．ｃａｐｔｉｏｎ＝”Ｂ、”＋选ｂ

ｔｈｉｓ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ３．ｃａｐｔｉｏｎ＝”Ｃ、”＋选Ｃ

ｔｈｉｓ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ４．ｃａｐｔｉｏｎ＝”Ｄ、”＋选ｄ

ｔｈｉｓ．１ａｂｅｌ１．ｃａｐｔｉｏｎ＝ｓｔｒ（ｎｕｍ）

ｔｈｉｓｆｏｒｍ．１ａｂｅｌ２．ｃａｐｔｉｏｎ＝ｓｔｒ（１）

＆＆读取单项选择题目

＆＆读取选项Ａ．以此类推

＆＆显示单项选择题目总数

＆＆显示当前为第１题

４．４各模块中的“下一题”按钮不但能更新题目。同时具有分数累加功能

其源代码如下：

￥ ￥女 Ｂｕｎｏｎ“下一题”（Ｃｌｉｃｋ事件）代码料料％ ｝｛

ｉｆ ｒｅｃｎｏ０＜＝ｎｕｍ ＆＆如果库指针没有到达最尾

ｉｆ ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｖａｌｕｅ＝答案 ＆＆如果考生答案与标准答案相同

ｒｅｐｌａｃｅ对错ｗｉｔｈ．Ｔ．

ｅｌｓｅ

ｒｅｐｌａｃｅ对错ｗ ．Ｆ．

ｅｎｄｉｆ

ｔｈｉｓｆｏｒｍ．１ａｂｅｌ２．ｃａｐｔｉｏｎ＝ｓｔｒ（ｒｅｃｎｏ０＋１）

ｓｋｉｐ ＆＆题库中指针下移

ｔｈｉｓｆｏｒｍ．ｔａｂｅｌ７．ｃａｐｔｉｏｎ＝…’

ｔｈｉｓｆｏｒｍ．１ａｂｅｌ８．ｖｉｓｉｂｌｅ＝．ｆ．

ｔｈｉｓｆｏｒｉＢ．ｔｅｘｔ２．ｖｉｓｉｂｌｅ＝王

ｔｈｉｓｆｏｒｉｌ１．ｔｅｘｔ１．ｖａｌｕｅ＝题目 ＆＆显示下～个题目内容

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ１．ｃａｐｔｉｏｎ＝”Ａ、”＋选ａ

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ２．ｃａｐｔｉｏｎ＝”Ｂ、”＋选ｂ

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐＩ．ｏｐｔｉｏｎ３．ｃａｐｔｉｏｎ＝”Ｃ、”＋选Ｃ

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ４．ｃａｐｔｉｏｎ＝”Ｄ ｔｔ＋选ｄ

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｖａｌｕｅ＝０

ｅ】ｓｅ

ｓｅｌｅｃｔ ２

ｃｏｕｎｔ ｆｏｒ对错＝．Ｔ．ｔｏ ＳＣＯ

ｓｃｏｒｅｓ＝ｓｃｏ＊２

ｓｅｌｅｃｔ １

＆＆分数统计。统计答对的题目数量

＆＆单项选择每题２分，故要｝２

ｒｅｐｌａｃｅ成绩ｗｉｔｈ ｓｃｏｒｅｓ ＆＆把单项选择模块的得分记入考生成绩字段

ｍｅｓｓａｇｅｂｏｘ（”单项选择已做完，下面进入多项选择！”）

ｄｏｆｏｒｍ＼ｑｕｉｚｋｆｏｒｍｓ＼多选

ｔｈｉｓｆｏｒｍ．ｈｉｄｅ

ｅｎｄｉｆ

４．５为了使考生能修改前面做过的题目。设置“上一题”按钮

其源代码如下：

料料￥料Ｂｕｔｔ０ｎ“上一题”（Ｃｌｉｃｋ事件）代码木牟 料

ｉｆ！ｂｏｆｎ ＆＆如果库指针没有达到首记录

ｓｋｉｐ一１ ＆＆题库中指针向上移一个记录

ｔｈｉｓ＇ｆｏｒｍ．１ａｂｅｌ２．ｃａｐｔｉｏｎ＝ｓｔｒ（ｒｅｃｎｏＯ１

ｔｈｉｓｆｏｒｍ．ｔｅｘｔ１．ｖａｌｕｅ＝题目 ＆＆以下显示上一个题目内容

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ１．ｃａｐｔｉｏｎ＝”Ａ、”＋选ａ

１１２０ ｔ 软件坦ｔｔＲ发 ｔ ｅ，，

第６卷第５期（２０１０年２月）

（下转第１１２５页）

本拦目责任编辑：谢媛媛

第６卷第５期（２０１０年２月） ＣｏｍｐｕｔｅｒＫｎｏｗｌｅｄｇｅ ａｎｄ Ｔｅｃｈｎｏｌｏｇｙ电脑知识与技术

ｔｈｒｏｗ ｎｅｗ ＤｅｐａｒｔｍｅｎｔＥｘｃｅｐｔｉｏｎ ｏ；

｝ｅｌｓｅ｛

Ｓｙｓｔｅｍ．ｏｕｔ．ｐｒｉｎｔｌｎ（”雇员编号是：”＋ｅｍｐＩｄ）；

Ｓｙｓｔｅｍ．ｏｕｔ．ｐｒｉｎｆｌｎ（”雇员姓名是：”＋ｅｍｐＮａｍｅ）；

Ｓｙｓｔｅｍ．ｏｕｔ．ｐｒｉｎｔｌｎ（”部门编号是：”＋ｄｅｐｔＩｄ）；

） ）ｃａｔｃｈ（ＤｅｐａｎｍｅｎｔＥｘｃｅｐｔｉｏｎ ｄｅ）｛

Ｓｙｓｔｅｍ．ｏｕｔ．ｐｒｉｎｔｌｎ（”数据无效”１：

｝ｃａｔｃｈ（ＮｕｍｂｅｒＦｏｒｍａｔＥｘｃｅｐｔｉｏｎ ｎｅ）｛

Ｓｙｓｔｅｍ．ｏｕｔ．ｐｒｉｎｔｌｎ（”数据错误”）；

｝ｃａｔｃｈ（ＡｒｒａｙＩｎｄｅｘＯｕｔＯｆＢｏｕｎｄｓＥｘｃｅｐｔｉｏｎ ａｅ）｛

Ｓｙｓｔｅｍ．ｏｕｔ．ｐｒｉｎｔ／ｎ（”数据不完整”）；｝ｊ

ｌ

程序运行时，有这样几种可能：

１）输入雇员编号、雇员姓名和部门编号分别为“１”、“Ｔｏｍ”和“６”时，因部门编号超过５，产生ＤｅｐａｒｔｍｅｎｔＥｘｅｅｐｔｉｏｎ异常，显示“此

部门不存在！！！数据无效”。

２）输入雇员编号、雇员姓名和部门编号分别为…ａ’、“Ｔｏｍ”和“６”时，因雇员编号不为整数。产生ＮｕｍｂｅｒＦｏｒｍａｔＥｘｃｅｐｔｉｏｎ异常，显

示“数据错误”。 ，

３）输入一个雇员编号“１”，因缺少雇员姓名和部门编号，产生ＡｒｒａｙｌｎｄｅｘＯｕｔＯｆＢｏｕｎｄｓＥｘｃｅｐｔｉｏｎ异常，显示“数据不完整”。

４）输入雇员编号、雇员姓名和部门编号分别为“１”、“Ｔｏｍ”和…４’时，无异常产生，显示雇员详情。

异常处理机制是保证Ｊａｖａ程序正常运行、具有较高安全性的重要手段。善于在应用程序中使用异常，编写用户自定义异常，可

以提高应用程序的交互性，增加应用程序的灵活性。正确使用用户自定义异常，对于开发良好的Ｊａｖａ程序 ，能够起到重要的作用。

参考文献：

【１】北京阿博泰克北大青鸟信息技术有限公司．Ｊａｖａ面向对象程序设计【Ｍ］．北京：科学技术文献出版社，２００５．

【２】迟丽华．Ｊａｖａ程序设计教程【Ｍ］．北京：清华大学出版社，２００８．

【３】贾振华．Ｊａｖａ语言程序设计［Ｍ】．北京：中国水利水电出版社，２００４．

（上接第１１２０页）

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ２．ｃａｐｔｉｏｎ＝”Ｂ、”＋选ｂ

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ３．ｃａｐｔｉｏｎ＝”Ｃ、”＋选Ｃ

ｔｈｉｓｆｏｒｍ．ｏｐｔｉｏｎｇｒｏｕｐ１．ｏｐｔｉｏｎ４．ｃａｐｔｉｏｎ＝”Ｄ、”＋选ｄ

ｔｈｉｓｆｏｒｉｌ１．１ａｂｅｌ８．ｖｉｓｉｂｌｅ＝工

ｔｈｉｓｆｏｒｍ．１ａｂｅｌ７．ｃａｐｔｉｏｎ＝’”’

ｔｈｉｓｆｏｒｉｂ．ｔｅｘｔ２．ｖａｌｕｅ＝…’

ｅｌｓｅ

ｍｅｓｓａｇｅｂｏｘ（”已到单项选择题之首！”１

ｅｎｄｉｆ

４．６当考生做完了三种类型的题目后，就可以交卷了。故设置一个“交卷”按钮

代码如下：

￥ 料料 Ｂｕｔｔｏｎ“交卷”（Ｃｌｉｃｋ事件）代码 ｛ ｛￥

ｙｎ＝ｍｅｓｓａｇｅｂｏｘ（”确定要交卷吗？”，４）

ｓｅｌｅｃｔ ６

ｃｏｕｎｔ ｆｏｒ对错：．Ｔ．ｔｏ ｓｃｏ３

ｉｆｙｎ＝６

ｓｅｌｅｃｔ １

＆＆如果按下“是”按钮

ｒｅｐｌａｃｅ成绩ｗｉｔｈ成绩＋ｓｃｏ３＂２ ＆＆统计分数并记人考生成绩字段

ｅｎｄｉｆ

ｍｉｓｆｏｒｍ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ＝．Ｆ． ＆＆屏蔽“下一题”按钮

ｄｏ ｆｏｒｍ＼ｑｕｉｚｋｆｏｒｍｓ＼成绩单 ＆＆打开“成绩单”表单窗口，显示考生成绩

４．７为了显示考生成绩。单独设计一个“成绩单”表单

设计代码如下：

料料 Ｆｏ瑚“成绩单”（Ａｃｔｉｖａｔｅ事件）代码

ｓｅｌｅｃｔ １ ＆＆打开考生名册库

￣ｉｓｆｏｒｍ．１ａｂｅｌ４．ｃａｐｔｉｏｎ＝姓名＋”：” ＆＆显示当前考生姓名

ｔｈｉｓｆｏｒｍ．１ａｂｅｌ１．ｃ印ｔｉ０ｎ＝ａｌ１ｔｒｉｍ（ｓｔｒ（成绩）） ＆＆显示考生最终成绩

以上程序在中文Ｗｉｎｄｏｗｓ ＸＰ环境，Ｍｉｃｒｏｓｏｆｔ Ｖｉｓｕａｌ Ｆｏｘｐｒｏ ６．０中文版下调试通过。

参考文献：

【１］木林森，高峰．中文Ｖｉｓｕａｌ ＦｏｘＰｒｏ ６．０使用与开发【Ｍ】．北京：清华大学出版社，２００６．

本栏目责任编辑：谢媛媛