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

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(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);//参数表示需要产生随机数的数目