VB6.0 抽奖(jiǎng)程序(xù) 2010-01-17 在 Windows XP 下调试通过 作者(zhě):邓忠 dwjnhkbc123@163.com QQ:751667650 该程序是(shì)本人(rén)在翔德电子科技(深圳)有(yǒu)限公司就职(zhí)期间用Visual Basic为2010年尾牙(yá)晚(wǎn)会做的一个小(xiǎo)抽奖程(chéng)序(xù),仅供学习参考,不得(dé)用于商业用途,否(fǒu)则(zé)后果(guǒ)自负。 启动时(shí)会(huì)生成随机顺序的抽奖(jiǎng)名单幸运星名单已经随机确定。运(yùn)行时随机滚动(dòng)抽奖名单,按抽奖(或回车(chē)键(jiàn))逐(zhú)一(yī)揭晓幸运星。 关闭程序(xù)时会生(shēng)成幸运星名(míng)单luckystars.txt 记录(lù)有时间(jiān) 所中奖项 奖(jiǎng)品名(míng) 姓名,请及时保存luckystars.txt,以免被下次运(yùn)行程序时覆(fù)盖。 本程序awards.txt保存各奖项目 如: 三等奖(jiǎng) 二等(děng)奖 awardsname.txt 保存奖项对应的奖品名 如: 电吹风 电饭煲 awardstotal.txt 保存各奖项对应的个数 如: 100 80。 list.txt 保存抽(chōu)奖名单 为了区分重名(míng)的人 可以加入部门(mén)名称,工号等(děng)。 背景文件为luckybg.jpg,象素1024*768。 请(qǐng)确保程序的当前目录下有(yǒu)存在上述文件,否则会报错(cuò)。
