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

創(chuàng)新互聯(lián)公司的客戶來自各行各業(yè)，為了共同目標(biāo)，我們在工作上密切配合，從創(chuàng)業(yè)型小企業(yè)到企事業(yè)單位，感謝他們對(duì)我們的要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。專業(yè)領(lǐng)域包括成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、電商網(wǎng)站開發(fā)、微信營銷、系統(tǒng)平臺(tái)開發(fā)。

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

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

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

              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