张桐　兰清昭

摘要：应用VB6.0编写抽签应用软件，实现了利用计算机代替人工完成抽签过程的目的，大大减轻了在样本容量较大时人工抽签的负担，保证了抽签的公平性。软件手动抽签与自动抽签兼可，具备导出抽签记录，在不改动抽签源文件的情况下临时更改抽签名单的功能。

关键词：VB6.0；抽签软件；自动化

中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2016）23-0077-02

Abstract： Using VB6.0 to write the draw software， realizing using computer to replace artificial work to complete the purpose of the draw process， greatly reducing the burden of artificial draw when sample size is bigger， to ensure the fairness of the draw. Software supports manual and automatic draw， at the same time， it has the function of saving draw record， temporarily changing draw list without changes the source files.

Key words： Visual Basic 6.0； draw software； automation

1 软件编写目的

在日常生活中我们常常需要用抽签来解决实际问题，比如在大学课堂，老师可以用随机抽签的方式来查看学生的出勤情况；在文艺晚会上，主持人可以用抽签的方式对观众进行奖品发送。而传统的人工抽签使得人力在处理大的样本容量时显得力不从心，由此，本软件以公平、公正、简洁、高效为编写原则，希望解决这一难题。

2 程序运行流程及实现代码

1）启动软件时，软件主界面只提供一个获得焦点的可操作按钮“选择文件”，如图1所示，单击其可引导用户利用弹出的对话框选择文本格式（*.txt）的抽签名单文件。

2）按提示选择抽签名单文本文件后会自动弹出如图2所示的对话框，让用户查看抽签名单是否正确，正确则点击“确定抽签数据”按钮就可返回至抽签软件主界面；如需对名单进行修改，则可点击“编辑抽签数据”按钮出现如图3所示的对话框，在该对话框中可完成在不改变抽签数据源文件的情况下临时修改抽签名单的需求；如果发现所选名单错误，则可在点击“确认”按钮后进入抽签主界面时重新选择抽签文件。……