[VB.NET]随机函数得到数字和字母组合

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

1. Private Shared constant As Char() = {"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "a"c, "b"c, "c"c, "d"c, "e"c, "f"c, "g"c, "h"c, "i"c, "j"c, "k"c, "l"c, "m"c, "n"c, "o"c, "p"c, "q"c, "r"c, "s"c, "t"c, "u"c, "v"c, "w"c, "x"c, "y"c, "z"c, "A"c, "B"c, "C"c, "D"c, "E"c, "F"c, "G"c, "H"c, "I"c, "J"c, "K"c, "L"c, "M"c, "N"c, "O"c, "P"c, "Q"c, "R"c, "S"c, "T"c, "U"c, "V"c, "W"c, "X"c, "Y"c, "Z"c}
3.     Private Function GenerateRandom(ByVal Length As Integer) As String
4.         Dim newRandom As System.Text.StringBuilder = New System.Text.StringBuilder(62)
5.         Dim rd As Random = New Random
6.         Dim i As Integer = 0
7.         While i < Length
8.             newRandom.Append(constant(rd.Next(62)))
9.             System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
10.         End While
11.         Return newRandom.ToString
12. End Function