只要建立單一 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
