admin 管理员组文章数量: 1086019
2024年3月27日发(作者：单选按钮复选按钮)
ISSN1009-3044
第12卷第23期(2016年8月)
电脑知识
与技术
ComputerKnowledgeandTechnology
Vol.12,No.23,August2016
E-mail:xsjl@
ComputerKnowledgeandTechnology
电脑知识
与技术
Tel:+86-551-6569
用VB编写抽签软件
张桐
1
，兰清昭
2
（1.四川师范大学化学与材料科学学院，四川成都610101；2.四川师范大学基础教学学院，四川成都610068）
摘要：应用VB6.0编写抽签应用软件，实现了利用计算机代替人工完成抽签过程的目的，大大减轻了在样本容量较大时人
工抽签的负担，保证了抽签的公平性。软件手动抽签与自动抽签兼可，具备导出抽签记录，在不改动抽签源文件的情况下
临时更改抽签名单的功能。
关键词：VB6.0；抽签软件；自动化
中图分类号：TP311文献标识码：A
DOI:10.14004/.2016.3099
文章编号：1009-3044(2016)23-0077-02
UsingVisualBasictoWriteDrawSoftware
ZHANGTong,LANQing-zhao
2
(nNormalUniversityCollegeofChemistryandMaterialsScience,Chengdu610101,China;nNormalUniver-
sityCollegeofFoundationEducation,Chengdu610068,China）
Abstract:UsingVB6.0towritethedrawsoftware,realizingusingcomputertoreplaceartificialworktocompletethepurposeof
thedrawprocess,greatlyreducingtheburdenofartificialdrawwhensamplesizeisbigger,toensurethefairnessofthedraw.
Softwaresupportsmanualandautomaticdraw,atthesametime,ithasthefunctionofsavingdrawrecord,temporarilychanging
drawlistwithoutchangesthesourcefiles.
Keywords:VisualBasic6.0;drawsoftware;automation
1软件编写目的
在日常生活中我们常常需要用抽签来解决实际问题，比如
在大学课堂，老师可以用随机抽签的方式来查看学生的出勤情
况；在文艺晚会上，主持人可以用抽签的方式对观众进行奖品
发送。而传统的人工抽签使得人力在处理大的样本容量时显
得力不从心，由此，本软件以公平、公正、简洁、高效为编写原
则，希望解决这一难题。
示的对话框，让用户查看抽签名单是否正确，正确则点击“确定
抽签数据”按钮就可返回至抽签软件主界面；如需对名单进行
修改，则可点击“编辑抽签数据”按钮出现如图3所示的对话
框，在该对话框中可完成在不改变抽签数据源文件的情况下临
时修改抽签名单的需求；如果发现所选名单错误，则可在点击
“确认”按钮后进入抽签主界面时重新选择抽签文件。
2程序运行流程及实现代码
1）启动软件时，软件主界面只提供一个获得焦点的可操作
按钮“选择文件”，如图1所示，单击其可引导用户利用弹出的
对话框选择文本格式（*.txt）的抽签名单文件。
图2参与抽签名单确认与修改图3临时修改抽签名单
选择抽签名单文件的实现：
使用可返回文件地址和文件名的通用对话框控件进行文
件筛选并导入抽签数据，对话框控件的过滤器设置为：【"文本
文档(*.txt)"|*.txt|"所有文件(*.*)"|*.*】；为了避免用户的错误操
作，通过设置按钮的Enabled属性，在不同条件下控制用户的操
作行为。同时，在用户临时编辑抽签名单时，为了帮助用户理
解操作界面上各按钮的功能，设置了该操作界面“删除”和“增
图1软件主界面
2）按提示选择抽签名单文本文件后会自动弹出如图2所
收稿日期：2016-07-09
基金项目：四川师范大学开放实验项目“《大学计算机基础B》课内拓展”
作者简介：张桐（1996—），男，四川攀枝花人，本科，学生，研究方向为计算机软件开发在环境工程领域的辅助应用；兰清昭
（1966—），女，四川成都人，高级实验师，指导教师，研究方向为计算机应用。
本栏目责任编辑：谢媛媛
软件设计开发
77
ComputerKnowledgeandTechnology
电脑知识
与技术
加”按钮的ToolTipText属性，如图3所示是鼠标指针指向编辑
抽签数据对话框中的“删除”按钮时，其ToolTipText值为【从抽
签名单编辑框中删除项目】；将“增加”按钮的ToolTipText属性
值设置为【向抽签名单编辑框中添加项目】。在“增加”按钮操
作中，使用InputBox函数引导用户临时增加抽签条目，设置其
为【info=InputBox("请输入需要增加的项目","增加","")】；在
“删除”按钮的功能中，提供了多项选择并删除的功能，利用
【For…next】循环语句批量删除所选项，利用MsgBox函数提醒
用户的错误操作。
为“手动抽签”
3）程序运行时提供了两种操作模式和两种抽签模式，
，“自动抽签”“；重复抽签”“，条件抽签”。
分别
软件默认为手动、重复抽签模式，即确定抽签名单后，单击
“开始抽签”，待抽签名单循环一周后，原按钮自动转变为“停止
抽签”按钮并激活，以此模式进行抽签，每一次的抽签名单都不
变，且都与确认抽签名单一致。
主界面上“开始抽签”按钮的单击事件过程代码设计思想
如下：
利用条件语句【If…Then…Else】,设置按钮功能替换
【
tion
d
抽签次数
="开始抽签
=d】；【⁃
CrLf
器Timer1
&
【
"Then
=
n
"第"&z+1&"次抽签结果为
="停止抽签"】
"
；
&
记录
vb⁃
进行文本框
&vbCrLf
Text2
&
框内的名单替换和记录名单循环次
】；【z=z+1】；利用计时
数。
在手动、重复抽签模式的基础上增设了自动、条件抽签模
式，当然，两种操作模式和抽签模式是可以随意搭配的，通过选
择抽签模式按钮即可激活对应的抽签模式。右键单击“开始抽
签”按钮即可激活自动抽签功能。设置此功能的初衷是为了解
决大批量抽签时，人工操作的难题。同时，条件抽签可在特定
场合下使用，比如在有奖抽签环节，获奖者便不能进入下一轮
的抽签名单，于是在条件抽签模式下，系统会自动将上一轮的
获奖者名单删去。
自动、条件筛选抽签模式实现思想如下：
首先由开始抽签按钮判断选择模式，如果用户选择了条件
筛选模式，则执行删除上一次获奖者名单的操作。设置j变量
为抽签名单代号，
Count
代码如下：
=TrueAndj>0Andj<⁃
Item
Then
End
(j-1)
如果要切换回重复筛选模式，
If
则在系统判断选择模式为重
复筛选模式后，将确认的抽签名单重新载入抽签列表框即可。
自动抽签功能的实现，模仿了人工抽签的模式，即随机产
生时间段，按下停止抽签按钮，得到抽签结果，再次按下开始抽
签按钮，进行下一次抽签。当达到要求的次数b时告知用户抽
签结束。所以，此功能应用了计时器控件Timer2和随机数命令
78
软件设计开发
第12卷第23期(2016年8月)
【Randomize】，激活按钮单击事件过程
——【Command2_Click】，
由MsgBox函数告知用户，代码如下：
Command2_Click
Ifo
Randomize
t al =Int(Rnd*2001+1500) o =t Else Command2_Click =o+1 vbInformation mmi=MsgBox(" +vbOKOnly, 自动抽签完成！ "消息 ",_ End d If =False ") putBox(" b值由用户激活自动抽签按钮时的 右键菜单的设置应用了 请输入自动抽签的次数 VB ", InputBox输入【b=In⁃ 中的 "输入 PopupMenu ",1)】 功能，当系统 判定用户在软件停止抽签的情况下单击鼠标右键时，激活右键 菜单autom，autom_click过程部分关键代码如下： If ssr Button=2And vbCritical =MsgBox(" d=TrueThen Else +vbOKOnly, 你不可以在抽签时执行此操作！ "警告！") ",_ If PopupMenu Button<>1Then EndIf autom 3抽签软件开发意义 End If 本软件的成功编写对解决实际生活问题有极大意义。既 可以满足用户对小样本容量手动抽签的需求，又可以节省用户 体力，进行大样本容量的批量抽签。同时，在不改动源文件的 条件下还可临时增、删抽签名单，省去了用户对源文件数据的 处理步骤。软件特有的条件抽签模式使本软件在实际生活中 的适用场合更加广泛。抽签模式强制性要求循环一周后随机 抽签，保证了人工抽签不能保证的公平性，同时，软件自动记录 抽签结果，支持抽签结果的保存，加强了用户在使用过程中的 便捷性。 参考文献： [1] [2] 王建忠 方波 .VisualBasic程序设计[M].北京 脑知识与技术 ,李亚男, , 刘加加 2015(8):48-49. ,等.VBA在考试系统中的运用 :科学出版社, [J]. 2012. 电 本栏目责任编辑：谢媛媛
版权声明：本文标题：用VB编写抽签软件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711522993a598206.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论