VB.net 產(chǎn)生不相同的隨機(jī)數(shù)

   大家好，我是JNFQOFFICE，本人第一次寫(xiě)博客，不知道如何寫(xiě)，請(qǐng)各位多多指教！

                          如何產(chǎn)生不相同的隨機(jī)數(shù)

     本人只會(huì)用VB.net，這里便用VB.NET 來(lái)編寫(xiě)！

     private function randomff() as integer() '定義一個(gè)函數(shù)，返回為int型數(shù)組

       dim a(5) as integer 

       randomsize()'初始化隨機(jī)數(shù)

        for i=0 to 5

            a(i)=cint(rnd()*100)+1'產(chǎn)生一個(gè)1-100的數(shù)（包含1和100）   

        next 

          return   a

      end  fubction

     private function compares(byval a() as integer) as integer()'比較數(shù)組中是否有相同的隨機(jī)數(shù)

        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)  '如果存在就開(kāi)始重新比較(迭代法)

              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