VB实现随机抽奖

VB实现随机抽奖

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

     文件         54  2019-12-01 10:10  随机抽奖\1.txt

     文件          0  2019-12-01 10:55  随机抽奖\2.txt

     文件       4021  2019-12-01 10:51  随机抽奖\Form1.frm

     文件        686  2019-12-01 10:55  随机抽奖\工程1.vbp

     文件         54  2019-12-01 10:55  随机抽奖\工程1.vbw

     目录          0  2019-12-01 10:55  随机抽奖

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

                 4815                    6