急寻抽奖系统源代码，谢谢了！
年底公司年会上要组织抽奖活动。请问各位弟兄，有谁能提供关于抽奖活动的源代码？急啊，时间不多了！谢谢！最好是用ACCESS数据库 工号和姓名滚动 停止时显示工号及姓名的那种！ --------------------编程问答-------------------- 哈哈，你自己搞个简单的混过去得了，把工号和姓名写入txt文件，一行一行的循环读，停止的时候读到谁就显示谁好了。 --------------------编程问答-------------------- 就是新手 还搞不来呢！麻烦各位高手帮个忙吧 --------------------编程问答--------------------
--------------------编程问答-------------------- 我kao 我怎么没这好活啊
Option Explicit
Dim 易做图 As Boolean
Private Sub Command1_Click() '开始抽奖
Randomize Timer
Dim itime1 As Single, itime2 As Single
itime1 = Timer
易做图 = False
With Adodc1
.CursorLocation = adUseClient
.CommandType = adCmdText
.RecordSource = "select * from itb3"
.Refresh
itime2 = Rnd * 30
Do While Timer - itime1 < itime2 '自动结束
Text1.Text = .Recordset.Fields(0) & " " & .Recordset.Fields(1)
.Recordset.MoveNext
If .Recordset.EOF Then .Recordset.MoveFirst
If 易做图 Then Exit Do
DoEvents
Loop
易做图 = False
End With
End Sub
Private Sub Command2_Click() '手动结束
易做图 = True
End Sub
我非得给自己弄一个大奖
补充：VB , 基础类
