[發問] 隨機產生竟依序都一樣?

不好意思我新手又來發問了

我這次想寫一個在範圍內隨機位置產生數字紀錄"辨識反應速度"的程式
寫完後卻發現雖然好像有隨機沒錯
但每次開啟測試隨機產生的數字和位置竟然依序都會是一樣的!
我搞不清楚為何會發生這樣子的事
希望各位高手前輩能指導相助感謝

附上檔案

TEST4.zip (38.49 KB)

另外還有兩個問題想請教一下
1.設定檔案開啟時，隱藏工作表只顯示程式表單畫面。卻又忘記設計顯示的按鈕，若發現程式需要做修改時，要怎麼再開啟編輯器?
2.假設我在一個100*100的範圍內，放一個10*10的按鈕。設定按鈕位置在(90,90)卻不是在最右下角? 但設(0,0)就是最左上角啊

謝謝

樓主熱帖

lyc43210

小學生 Rank: 1

帖子: 15
主題: 5
精華: 0
積分: 34
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2015-4-9
最後登錄: 2018-7-15

2^#

發表於 2015-6-21 00:44 | 只看該作者

直接執行表單確實都會是隨機不一樣
但設成檔案開啟時即啟動表單做測試每次開啟時都會是固定的順序

認真求解
拜託

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-6-21 17:04 | 只看該作者

回復 2# lyc43210

Rnd 函數
傳回一型態為 Single 的值，其內容為一亂數值。
語法
Rnd [(number)]
選擇性引數 number 可以是一型態為 Single 的值，或任何數值運算式。
傳回值
如果 number 的值是 Rnd 傳回的亂數值
小於 0 每次都是使用 number 當做亂數種子的相同結果。
大於 0 亂數序列中的下一個亂數值。
等於 0 最近一次產生過的亂數值。
省略亂數序列中的下一個亂數值。
請注意
Rnd 函數傳回的亂數值介於 0 和 1 之間，可等於 0，但不等於 1。
number 的值會影響 Rnd 傳回亂數值的方法。
給定一個亂數種子後，便會產生一特定的亂數序列，因為每呼叫一次 Rnd 函數，它就會使用先前呼叫時所產生的亂數值當成新的亂數種子以產生新的亂數值。
**********請看這裡 VBA說明中有範例 ********************************
在使用 Rnd 之前，最好先呼叫 Randomize 陳述式，但不要給任何引數，如此便會以作業系統的時間當作亂數種子來起始亂數產生器。
若想產生在某個範圍內(非 0 到 1)的亂數值，可使用下列公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
************************************************
上述公式中，upperbound 是亂數範圍的上限，而 lowerbound 則是亂數的下限。
附註若想得到重覆的亂數序列，可以在呼叫 Randomize 之前先呼叫 Rnd 並且傳入一小於 0 的引數值。光是用同樣的亂數種子呼叫 Randomize 兩次的話，並不會得到兩次相同的亂數序列。