Function gen_key   'Ëæ»úÊý
    dim char_array(6)
    char_array(1) = "1"
    char_array(2) = "2"
    char_array(3) = "3"
    char_array(4) = "4"
    char_array(5) = "5"
    char_array(6) = "6"    randomize    do while len(output) < 6
         num = char_array(Int((7  - 1) * Rnd + 1))
         output = output + num
    loop    gen_key = output
End Function

解决方案 »

  1.   

    洗牌算法和
    抽牌算法<html><head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>JK:支持民族工业,尽量少买X货</title>
    </head><body>
    <pre>
    洗牌算法:
    部分代码来自:
    http://community.csdn.net/Expert/topic/3858/3858964.xml?temp=.5909693
    fason的回贴。</pre><script language="JavaScript">
    <!--function getRandomArray(m,n)   //得到m张牌里的n张牌 (m>=n>0)
    {
    if(n==null || n==m )
    return getRandomPlayCard(m);
    var array1=new Array(m);
    for(var i=0;i<m;i++)
    array1[i]=i;
    var m2=m-0.00001;
    for(var i=0;i<n;i++)
    {
    var rnd=Math.floor(Math.random()*m2);
    var swap=array1[i];array1[i]=array1[rnd];array1[rnd]=swap;
    }
    return(array1.slice(0,n));
    }
    function getRandomPlayCard(m) //洗牌
    {
    var array1=new Array(m);
    for(var i=0;i<m;i++){
    var rnd=Math.floor(Math.random()*(i+0.99999))
    array1[i]=array1[rnd];
    array1[rnd]=i;
    }
    return array1;
    }
    document.write(getRandomPlayCard(100)+"<br><br>"+getRandomArray(100,5));--> 
    </script></body>
    </html>
      

  2.   

    1-100随机取一个数:(概率是平均分布)alert(1+Math.floor(Math.random()*(99.99999)))
      

  3.   

    alert(Math.ceil(Math.random()*100))
      

  4.   

    推广到一般情况,求整数a到b之间的随机整数,用下列公式
    var r=Math.ceil(Math.random()*(b-a)+a);
    alert(r)
      

  5.   

    Math.random()有可能等于0
    Math.ceil(Math.random()*100)有可能返回的是0
      

  6.   

    var r=Math.ceil(Math.random()*(b-a)+a); 这个应该可以
    //---------
    具体到这种情况下 令 a=1  b=100
     就得到
    var r=Math.ceil(Math.random()*99+1);
    如果random=0  r=1
        random=1  r=100
      

  7.   

    a=1,b=2

    var r=Math.ceil(Math.random()*(b-a)+a);
    r为1的可能性几乎为0。
      

  8.   

    var a = Math.round(Math.random()*100);
    产生一个在伪随机数,不过还是可以用的,离散度还可以.呵呵==============================================
        我不是菜鸟,我是很菜很菜的那种!呵呵……