vb 抽奖程序

一个简单的抽奖程序，供初学者学习。

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

     文件         50  2005-04-21 09:22  tp\1.txt

     文件         39  2005-04-21 09:22  tp\2.txt

     文件       1812  2005-04-21 11:28  tp\bg.gif

     文件       2413  2005-04-21 11:05  tp\bt.gif

     文件      31862  2005-04-21 12:01  tp\bt.jpg

     文件         81  2005-04-21 12:18  tp\button.gif

     文件      20721  2005-04-21 11:06  tp\d_d.gif

     文件       4133  2005-04-21 12:39  tp\Form1.frm

     文件      54431  2005-04-21 12:39  tp\Form1.frx

     文件        527  2005-04-21 11:18  tp\Form2.frm

     文件      20733  2005-04-21 11:18  tp\Form2.frx

     文件      30208  1998-08-28 20:50  tp\FSText.ocx

     文件        193  2005-04-20 16:05  tp\MSSCCPRJ.SCC

     文件        720  2005-04-21 12:44  tp\Project1.vbp

     文件         48  2005-04-21 12:44  tp\Project1.vbw

     目录          0  2005-08-26 14:04  tp

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

               167971                    16