vb.net与C#随机生成字符串

     // 随机字符串类型
     public   enum  stringtype
     ... {
        allstring = 1,//大小写字母
        allnumic = 2,//数字
        str_num = 3,//大小写字母+数字
        str_upper = 4,//大写字母
        str_lower = 5 //大写字母    
    }

     // 生成随机字符串
     public   static   string  GenerateRandom( int  Length,stringtype s)
     ... {
        string strtemp="";
        string[] constant=null;
        switch (s)
        ...{
            case stringtype.allnumic :
                strtemp="0,1,2,3,4,5,6,7,8,9";
                constant = strtemp.Split(',');
                break;
            case stringtype.allstring :
                strtemp ="a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z";
                constant = strtemp.Split(',');
                break;
            case stringtype.str_lower :
                strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z";
                constant = strtemp.Split(',');
                break;
            case stringtype.str_num :
                strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9";
                constant = strtemp.Split(',');
                break;
            case stringtype.str_upper :
                strtemp = "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z";
                constant = strtemp.Split(',');
                break;
        }
       
        System.Text.StringBuilder newRandom = new System.Text.StringBuilder(Length);
        Random rd = new Random();
        for (int i = 0; i < Length; i++)
        ...{
            newRandom.Append(constant[rd.Next(constant.Length-1)]);
        }
        return newRandom.ToString();
    }

 

 

 

  ' 随机字符串类型
     Public   Enum stringtype Enum stringtype
        allstring = 1
        '大小写字母
        allnumic = 2
        '数字
        str_num = 3
        '大小写字母+数字
        str_upper = 4
        '大写字母
        str_lower = 5 '大写字母    
    End Enum


     Function GenerateRandom() Function GenerateRandom(ByVal Length As Integer, ByVal s As stringtype) As String
        Dim strtemp As String = ""
        Dim constant() As String = Nothing
        Select Case s
            Case stringtype.allnumic
                strtemp = "0,1,2,3,4,5,6,7,8,9"
                constant = strtemp.Split(",")
            Case stringtype.allstring
                strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z"
                constant = strtemp.Split(",")
            Case stringtype.str_lower
                strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
                constant = strtemp.Split(",")
            Case stringtype.str_num
                strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9"
                constant = strtemp.Split(",")
            Case stringtype.str_upper
                strtemp = "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z"
                constant = strtemp.Split(",")
        End Select

        Dim NewRandom As System.Text.StringBuilder = New System.Text.StringBuilder(Length)
        Dim rd As Random = New Random()
        Dim i As Integer
        For i = 0 To Length - 1 Step i + 1
            NewRandom.Append(constant(rd.Next(constant.Length - 1)))
        Next
        Return NewRandom.ToString()
    End Function