急寻VB抽奖程序代码

急寻VB抽奖程序代码

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

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

一个Command，一个timer，一个label

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

程序如下：

Dim a() As String

Dim i As 滑碧虚Integer

Private Sub Command1_Click()

If Command1.Caption = "开始" Then

   Command1.Caption = "暂停"

   Timer1.Enabled = True

ElseIf Command1.Caption = "暂停" Then

   Command1.Caption = "开始"

   Timer1.Enabled = False

End If

End Sub

Private Sub Form_Load()

 i = 0

'定义名单跳转的时间间隔为10ms

 Timer1.Interval = 10

 Timer1.Enabled = False

 Command1.Caption = "开始"

 Label1.Alignment = 2         '字体居中

 Label1.Font = "微软雅黑"     '字体为微软雅黑

 Label1.FontSize = 15         '设置字体大小

 '读取名单，注意：名单必须已经放在D盘的1.txt文件内

 Open "d:\1.txt" For Input As #1

 Do Until EOF(1)

  i = i + 1

 ReDim Preserve a(1 To i) As String

 Line Input #1, a(i)      '按行读取，所以名单名字必须一行一个

 Loop

End Sub

Private Sub Timer1_Timer()

Dim j As Integer

  Randomize

  'i为名单的人数，Rnd为0-1之间的数，不包括0，1

  j = Int(1 + Rnd * i)

  Label1.Caption = a(j)

End Sub