1.vb抽奖程序

vb抽奖程序

       Private Sub Command1_Click()

       If Command1.Caption = "开始" The抽奖双亲委派机制源码n

       Timer1.Enabled = True

       Command1.Caption = "停止"

       Else

       Command1.Caption = "开始"

       Timer1.Enabled = False

       End If

       End Sub

       Private Sub Form_Load()

       Command1.Caption = "开始"

       Timer1.Interval =

       Timer1.Enabled = False

       End Sub

       Private Sub Timer1_Timer()

       Static a

       a = a + 1

       Label1 = a

       If a = Then a = 0

       End Sub