| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1790 人关注过本帖
标题:求随机数产生代码
只看楼主 加入收藏
ping16002
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2007-11-2
收藏
 问题点数:0 回复次数:5 
求随机数产生代码
求随机数产生代码   一时忘了  请给我说说   谢谢
搜索更多相关主题的帖子: 随机数 代码 
2008-03-22 10:14
hebingbing
Rank: 6Rank: 6
来 自:黄土高坡
等 级:贵宾
威 望:27
帖 子:3417
专家分:371
注 册:2007-10-22
收藏
得分:0 
array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"

'Initiate randomize method for default seeding
randomize

'Loop through and create the output based on the the variable passed to
'the function for the length of the key.
do while len(output) < digits
num = char_array(Int((35 - 0 1) * Rnd 0))
output = output num
loop

'Set return
gen_key = output
End Function

'Write the results to the browser, currently setting a 13 digit key
response.write "<pre>" & gen_key(13) & "</pre>" & vbcrlf
%>
2008-03-22 18:10
缘来
Rank: 1
等 级:新手上路
帖 子:135
专家分:0
注 册:2006-11-18
收藏
得分:0 
用Random类中的方法应该可以吧

博客:http://hi.baidu.com/xiaotown欢迎大家一起交流!
2008-03-23 09:55
仰望星空
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:7
帖 子:473
专家分:93
注 册:2007-2-11
收藏
得分:0 
回复 2# 的帖子
注意这里是板块,不要发asp代码

当人们仰望天空的时候,才有了翱翔的愿望;当人们仰望星空的时候,才有了远航的渴望。
2008-03-23 11:35
191638141
Rank: 1
等 级:新手上路
帖 子:112
专家分:0
注 册:2008-1-5
收藏
得分:0 
public string createnum(int count)
{
string[] st=new string[]{0,1,2,3,4,5,6,7,8,9,A,B.....};
string str="";
Random rand=new random();
for(int i=0;i<=count;i++)
 {
    int t=rand.Next(数组的长度);//rand.Next(st.length)
    str+=st[t];
 }
return str;
}
2008-03-23 13:06
hebingbing
Rank: 6Rank: 6
来 自:黄土高坡
等 级:贵宾
威 望:27
帖 子:3417
专家分:371
注 册:2007-10-22
收藏
得分:0 
回复 4# 的帖子
罪过,罪过。对不起,以前学asp的。对不起啊~
private string GetByRndNum(int VcodeNum)
        {
            string Vchar = "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,w,x,y,z" ;
            string[] VcArray = Vchar.Split(',') ;
            string  VNum = "" ;
            int temp = -1 ;
            Random rand =new Random();
            for ( int i = 1 ; i < VcodeNum+1 ; i++ )
            {   
                if ( temp != -1)
                {
                    rand =new Random(i*temp*unchecked((int)DateTime.Now.Ticks));
                }   
                int t =  rand.Next(35) ;
                if (temp != -1 && temp == t)
                {
                    return GetByRndNum( VcodeNum );
                }
                temp = t  ;
                VNum += VcArray[t];
            }
            return VNum ;
        }
这是的在这补上~~
String.Split 方法返回包含此实例中的字符串的String数组。
Random类表示伪随机数生成器,是一种能够产生满足某些随机性统计要求的数字序列的设备。
unchecked关键字用于取消整形算术运算和转换的溢出检查,DataTime。Ticks属性获取表示此实例的日前和时间的刻度数。
Random。Next方法返回一个小于所指最大值的非负随机数。
这段代码加上我自己觉得难理解的地方的解释应该可以补过了吧~
呵呵

[[it] 本帖最后由 hebingbing 于 2008-3-24 17:06 编辑 [/it]]
2008-03-24 16:17
快速回复:求随机数产生代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018357 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved