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

相关资源：VB生成不重复的随机数