VB.net产生不相同的随机数-创新互联

大家好，我是JNFQOFFICE，本人第一次写博客，不知道如何写，请各位多多指教！

成都创新互联公司是一家专业提供冷水江企业网站建设,专注与成都做网站、网站制作、成都外贸网站建设、HTML5建站、小程序制作等业务。10年已为冷水江众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

             如何产生不相同的随机数

   本人只会用VB.net，这里便用VB.NET 来编写！

   private function randomff() as integer() '定义一个函数，返回为int型数组

    dim a(5) as integer

    randomsize()'初始化随机数

    for i=0 to 5

      a(i)=cint(rnd()*100)+1'产生一个1-100的数（包含1和100）

    next

     return  a

   end  fubction

   private function compares(byval a() as integer) as integer()'比较数组中是否有相同的随机数

    for i=0 to a.length-2

      for j=i+1 to a.length -1

       if a(i)=a(j) then

         randomsize()

         a(j)=cint(rnd()*100)+1'将a(j)重新生成
         a=compares(a)  '如果存在就开始重新比较(迭代法)

       end if

       next

       next

return a

  end function

public function  returnNUM () as string

 dim str as string =string.empty

dim a() as integer =randomff()

   a=compares(a)

    for i=0 to a.length-1

       str &=a(i).tostring &space(5)

    next

return str

end function

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

当前名称：VB.net产生不相同的随机数-创新互联
网站网址：http://cdxtjz.com/article/ccicis.html