Asp中如何生成不重复随机数(vb版)

　能生成不重复随机数的代码，是一个类似于C语言的循环语句，花了一整晚才明白，够笨的！


　　  Dim i As Integer = 0
            Dim j As Integer = 0
　　　dim Num as Integer

            Dim StrTempArr(Num) As String
            Dim strZhongJiangArr(Num) As String
            Dim intRand As Integer

            Dim find As Boolean
            Do While True
                find = False
                Randomize()
                intRand = Int((12 * Rnd()) + 1)
                For j = 0 To i - 1
                    If StrTempArr(j) = CStr(intRand) Then
                        find = True
                    End If
                Next
                If Not find Then
                    StrTempArr(j) = CStr(intRand)
                    strZhongJiangArr(i) = CStr(intRand)
　　　　－－－－－－－－－－－－－－－－－－－－－－－－
　　　　此处可以利用随机得到的不重复数据：strZhongJiangArr(i)
　　　　－－－－－－－－－－－－－－－－－－－－－－－－
                      i = i + 1
                    If i = Num Then
                        Exit Do
                    End If
                End If
            Loop

转载于:https://www.cnblogs.com/Weaver/archive/2007/03/14/675145.html