亂數建立

http://msdn.microsoft.com/zh-tw/library/system.random.aspx

只要建立單一 Random 物件，而不要建立多個物件，就可以避免這個問題。

為了改善效能，請建立一個 Random 物件，以便在一段時間內產生許多亂數，而不要重複地建立新的 Random 物件來產生一個亂數。

不要一直new Random 要不然抓到的直都會一樣

for i = 0 to 10

 Dim rand As New Random

 num=rand.Next(100, 200)

next

......

這樣 會抓到重複的值

'==========

 Dim rand As New Random

for i = 0 to 10

 num=rand.Next(100, 200)

next