抽奖程序源代码 VB编写 随机抽取 不重复

该程序是本人在翔德电子科技（深圳）有限公司就职期间用Visual Basic为2009年尾牙晚会做的一个小抽奖程序，仅供学习参考，不得用于商业用途，否则后果自负。 参与抽奖的名单，奖项，奖品，各奖项数目均在程序内部设置（用数组保存），可以自行修改，不重复中奖。 按回车键或空格键进行抽奖，每次抽取一名。 程序运行时会产生抽奖名单一份，关闭程序后会生成中奖名单。 Dengzhong dwjnhkbc123@163.com QQ 751667650 2010-01-20

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        562  2010-01-20 23:42  readme.txt

     文件     209733  2010-01-11 18:45  images\bg1.jpg

     文件       2238  2010-01-14 11:21  images\favicon.ico

     文件     344064  2010-01-20 23:24  goodluck.exe

     文件       1257  2010-01-20 23:25  goodluck.vbp

     文件         54  2010-01-20 23:25  goodluck.vbw

     文件      62439  2010-01-20 23:23  mainform.frm

     文件     211999  2010-01-20 23:23  mainform.frx

    ......R       193  2010-01-12 00:05  MSSCCPRJ.SCC

     目录          0  2010-01-14 11:20  images

----------- ---------  ---------- -----  ----

               832539                    10