网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

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://bjjierui.cn/article/jsigjh.html

其他资讯