产生62位内任意数字大小写字母的随机数

vb.net版

Private Shared constant As Char() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"} 

Public Shared Function GenerateRandom()Function GenerateRandom()Function GenerateRandom()Function GenerateRandom(ByVal Length As Integer) As String 
    Dim newRandom As System.Text.StringBuilder = New System.Text.StringBuilder(62) 
    Dim rd As Random = New Random 
    Dim i As Integer = 0 
    While i < Length 
        newRandom.Append(constant(rd.Next(62))) 
        System.Math.Min(System.Threading.Interlocked.Increment(i),i-1) 
    End While 
    Return newRandom.ToString 
End Function

C#版

private static char[] constant=
{
    '0','1','2','3','4','5','6','7','8','9',
    'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',
    'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'
};

public static string GenerateRandom(int Length)
{   
    System.Text.StringBuilder newRandom = new System.Text.StringBuilder(62);
    Random rd= new Random();
    for(int i=0;i<Length;i++)
    {
        newRandom.Append(constant[rd.Next(62)]);
    }
    return newRandom.ToString();
}

调用

string str=GenerateRandom(6);//参数表示需要产生随机数的数目