急寻VB抽奖程序代码

我和楼上的差不多，只是觉得楼上的随机抽奖并非随机的，他是由前往后快速循环，人少没关系，人一多，这样有失游戏的公平性，并非绝对的随机抽奖。

我就将他的程序进一步修改了一下。

一个Command，一个timer，一个label

名单存入电脑D盘的1.txt文件中，名单是一行一个名字即可。

程序如下：

Dim a() As String

Dim i As Integer

Private Sub Command1_Click()

If Command1.Cap...

零分呀，那没得玩了，我这里倒是有现成的抽奖程序，源码

一个按钮，一个timer，一个label

假设存有名单文件为1.txt

Dim a() As String

Dim i As Integer

Private Sub Command1_Click()

Timer1.Enabled = Not Timer1.Enabled

End Sub

Private Sub Form_Load()

Timer1.Interval = 10

Timer1.Enabled = False

Open "d:\1.txt" Fo...

标签：程序代码,急寻,VB