VB6.0中隨機種子Randomize的運用
VB6.0中的Rnd函數可以產生0到1之間的數(0,1),我們可以用這個函數來模擬福利彩票號碼的產生,但是在操作過程中,每次產生的號碼序列都相同,接下來就介紹如何用隨機種子Randomize避免這一現象。
操作方法
(01)打開VB6.0軟件,新建一個工程,在窗體中添加一個Label控件,並將其名字改為“Lbl1”.
(02)雙擊窗體,進入代碼編寫窗口,在窗體的Form_Load事件中輸入以下代碼:Private Sub Form_Load()Dim a As Integer, i As Integerx27;RandomizeFor i = 1 To 10a = Int(Rnd * 90) + ion = ion & " " & aNext iEnd Sub
(03)關閉代碼編輯窗口,按下F5鍵,運行剛剛輸入的代碼。結果Label控件中生成了10個隨機數。記下這幾個隨機數,然後單擊窗體關閉按鈕,退出程序運行。
(04)再次按下F5鍵運行程序,發現Label控件中產生10個隨機數與上次記下的一模一樣,這不是我們想要的結果(福彩號碼每次下注號碼不一樣)。
(05)雙擊窗體,進入代碼編寫窗口,在窗體的Form_Load事件做如下修改:將語句'Randomize的註釋符號分號(')去掉。
(06)然後按F5再次運行程序,產生的隨機數序列如圖所示,與上次產生的隨機數不同了,這樣就達到了每次產生的隨機數序列不同的效果。
特別提示
要用RND函數產生不同隨機數,必須配合隨機種子Randomize一起使用。
隨機種子Randomize必須放在RND函數之前,控制RND函數隨機數的產生。
-
單片機案例點亮一顆發光二極管
大家好,今天和大家分享的是單片機案例——點亮一顆led燈。這個可以説是每個人在初步接觸單片機是都會學到的一個程序,我們來看看怎麼做吧操作方法(01)這裏我就直接進入程序了,前面的建立工程呀,設置參數那些我就不説了,在我其他的經驗中也有講到了,不懂的可以看看我以...
-
百度地圖查看座標
操作方法(01)首先,電腦打開搜狗瀏覽器,進入百度官網。(02)在上邊我們點擊百度地圖的按鈕。(03)進入地圖上,可以看到當前自己所在城市。(04)點擊地圖下方的“地圖開發平台”按鈕。(05)在地圖開放平台頁面,點擊:開發文檔——座標拾取器。(06)然後在地圖中,隨意點擊一個位置,就可以查...
-
html中a標籤的四個偽類
今天為大家介紹一下html中a標籤的四個偽類,即用於向被選中元素添加特殊的效果......操作方法(01)偽類:偽類用於向被選中元素添加特殊的效果。(元素在特定情況下才具備的)如圖分別是將a標籤的link、hover、active、visited修改後的樣式(02)a標籤的四個偽類之link即未...
-
如何管理win10的設備管理器檢查硬件?
相信很多剛剛安裝windows10正式版的用户一定發現了很多令人欣喜的功能改進,但是可能還不是很熟悉,尤其是對如何管理win10的設備管理器檢查硬件,已達到完美的程度。下面就來詳細講解一下。操作方法(01)首先,你要做的是按下快捷鍵Win+X,然後在出現的快捷菜單中單擊“控...