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

1. PrivateSharedconstantAsChar()={"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. PrivateFunctionGeneraterandom(ByValLengthAsInteger)AsString
4. DimnewRandomAsSystem.Text.StringBuilder=NewSystem.Text.StringBuilder(62)
5. DimrdAsRandom=NewRandom
6. DimiAsInteger=0
7. Whilei<Length
8. newRandom.Append(constant(rd.Next(62)))
9. System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
10. EndWhile
11. ReturnnewRandom.ToString
12. EndFunction