′定時器1的定時事件

　　Private Sub Timer1_Timer()

　　Dim sj1,sj2,ys As Integer

　　Randomize′初始化隨機數

　　sj1=Int(Rnd*32)+1

　　sj2=Int(Rnd*50)

　　Label1.Caption=sj1′設置標簽1的內容

　　ys=Int(Rnd*6)+9

　　Label1.ForeColor=QBColor(ys)

　　If sj2=24 Then′如果sj2等于24

　　sy=sy+1′索引值加1

　　For a=o To sy

　　If sj1=Val(Label3(a).Caption) Then

　　sy=sy - 1

　　Exit Sub

　　End If

　　Next

　　Label3(sy).Caption=Format(sj1, ″00″)

　　Label3(sy).ForeColor=QBColor(ys)

　　End If

　　If sy=6 Then′如果索引值等于6

　　Timer1.Enabled=False ′關閉定時器

　　Command1.Enabled=True ′使命令按鈕有效(即可重新開始抽獎)

　　End If

　　End Sub

　　單擊工具欄上的“啟動”按鈕，啟動抽獎程序。單擊“開始”按鈕，Label1控件將用五彩繽紛的顏色快速顯示1～32之間的數字，并在Label3控件數組中產生一組7個數字的中獎號碼。再次單擊“開始”按鈕，程序將自動清除Label3控件數組中的內容，并重新產生一組7個數字的中獎號碼.

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等級考試二級VB輔導實例編程匯總