VB.net产生不相同的随机数

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

创新互联公司的客户来自各行各业,为了共同目标,我们在工作上密切配合,从创业型小企业到企事业单位,感谢他们对我们的要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括成都网站制作、成都网站建设、电商网站开发、微信营销、系统平台开发。

                          如何产生不相同的随机数

     本人只会用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


本文题目:VB.net产生不相同的随机数
本文路径:http://myzitong.com/article/jsigjh.html