温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2020-05-29 08:21:31 来源:网络 阅读:1234 作者:cz790365848 栏目:编程语言

   大家好,我是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

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI