怎么让 人名不重复随机出现

fanhongyin

各位大侠，帮帮忙，附件是一个抽奖程序，共20人，怎么能让这20人不重复出现，也就是说随机出现过一次之后，以后不会在出现 抽奖程序.rar (33.39 KB, 下载次数: 30)

2012-11-27 14:51 上传

点击文件名下载附件

fanhongyin

急用，拜托啦

chuhaiou

我也想知道

1976yuan

Sub ddd()
    Dim strName(10) As String, str中奖人 As String, i As Integer, l As Integer
    strName(1) = "张三1"
    strName(2) = "张三2"
    strName(3) = "张三3"
    strName(4) = "张三4"
    strName(5) = "张三5"
    strName(6) = "张三6"
    strName(7) = "张三7"
    strName(8) = "张三8"
    strName(9) = "张三9"
    strName(10) = "张三10"
    k = 10
    Do
        i = RndInt(1, k)
        str中奖人 = strName(i)
        MsgBox str中奖人
        If i < k Then
            For l = i To k - 1
                strName(l) = strName(l + 1)
            Next l
        End If
        k = k - 1
    Loop Until k < 1
End Sub

Function RndInt(a, b)  '产生一个a、b之间的随机整数
    Randomize
    RndInt = Int((b - a + 1) * Rnd + a)
End Function