急！有誰用VB写抽奖程序，请帮忙!

Question

是这个意思吗?Public Sub GenerateID(MaxID As Long)
'MaxI是ID的个数,也就是最大的那个ID (假设在此之前已经将ID从1到大排序,且中间没有空缺)
Dim a(10) As Long '存放幸运ID的数组
Dim i As Integer, j As IntegerRandomize Timer '初始化随机变量,以免每次产生的结果一样
For i = 1 To 10 '开始选取幸运ID
    a(i) = Int(Rnd * MaxID + 1)
    For j = 1 To i - 1 '判断ID是否已经在数组中
        If a(j) = a(i) Then
            i = i - 1
            Exit For
        End If
    Next j
Next i'此时,选取的ID已经被保存在 a(1 To 10) 中了
'下面就可以根据选出的ID提取相应的记录了
End Sub