我寫了個，裏面的查詢實在沒意思，呵呵，妳看看有什麽是妳用的上的。裏面有嵌套的if條件語句，不要被嚇到了，其實很簡單。
（妳隨機生成三位數的方法給老師看了鐵定要揍妳，呵呵，虧得妳想得出，第壹天學，難為了）
Dim?i?As?Integer
Private?Sub?Command1_Click()
Timer1.Enabled?=?Not?Timer1.Enabled
Command1.Caption?=?"停止"
If?Timer1.Enabled?=?False?Then
Command1.Caption?=?"開始抽獎"
End?If
End?Sub
Private?Sub?Command2_Click()
If?Text1.Text?=?""?Then
?MsgBox?"請先運行搖號器！"
Else
If?Text2.Text?=?""?Then
MsgBox?"請輸入您的獎券號！"
Else
If?Text2.Text?=?Text1.Text?Then
MsgBox?"祝賀！"
Else
MsgBox?"謝謝參與"
Text2.Text?=?""
End?If
End?If
End?If
End?Sub
Private?Sub?Form_Load()
Timer1.Enabled?=?False
Timer1.Interval?=?500
End?Sub
Private?Sub?Timer1_Timer()
Randomize
Text1.Text?=?100?+?Int(900?*?Rnd)
End?Sub