关闭

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

标签: randomintegerstringvb.netfunctionc#
1217人阅读 评论(0) 收藏 举报
分类:
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(ByVal Length As IntegerAs 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);//参数表示需要产生随机数的数目
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:69790次
    • 积分:903
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:36篇
    • 译文:0篇
    • 评论:2条
    文章分类
    最新评论