如何用VB製作隨機學號抽取器
這個需要應用以下幾個步驟:
寫一個獲取隨機學號函式。
將這個函式繫結在某個控制元件上觸發抽學號的事件。
在某個輸出介面顯示這個隨機學號。
首先,學號肯定是整數,所以在窗體程式碼區定義一個整型的變數來存放
Dim StudentNum as Integer
然後,新建一個模組,在模組中書寫隨機數函式,該函式有個整型的返回值。
該函式傳入2個引數,用於界定隨機數的上界和下界(也就是最大最小值)
Public Function GetNum (Byval L,Byval U) as Integer
Randomize '重置隨機種子
GetNum=Int((U - L + 1) * Rnd + L) '將範圍內獲得一個隨機整數賦值給該函式的返回值
End Function
寫完了這個函式,記下它的表示式 接收變數=GetNum(最小值,最大值)
最後,在窗體中畫一個按鈕(Command1),一個文字框(名為Text1),一個定時器(Timer1)
1、雙擊這個窗體Form1,在它的Load事件中寫下:
…
rval=50 ’讓定時器50秒執行一次
el=True ‘讓定時器允許運作
…
2、雙擊定時器Timer1,在它的事件裡寫下:
…
StudentNum=GetNum(1,30)
'假設學生學號從1號到30號,如果經常變動可以從外部獲取,用變量表示。
=StudentNum & "號"
'把取到的隨機數顯示在文字框裡面
…
3、雙擊按鈕Command1,在它的點選事件裡寫下
IF le=True
le=False '計時器停止運作
Msgbox "選中了" & StudentNum & "號",26,"選中了該學號" '把結果彈出對話方塊
Else
le=True ’啟用已經停止的計時器,可以進行下一次選號
End IF
…
-
車子放u盤音樂需要關閉嗎
不需要。U盤放音樂的時候車輛會自動的檢測,中控屏是否開啟執行開啟執行時音樂會自動播放,當車輛熄火中控,屏電源斷開之後音樂會自動停止,這屬於中控屏對USB介面的一種自動檢測模式,不需要在使用過後將U盤拔下或者關閉音樂,在車輛點火之後會自動開啟音樂。...
-
蘇聯模式形成時間是哪一年
蘇聯模式興起於20世紀30年代,此前嘗試過“戰時共產主義”和新經濟政策,大致從1928年開始廢止新經濟政策,逐漸形成了後來稱之為的蘇聯模式。這種模式形成過程中,當時執政黨高層發生激烈鬥爭,結果以斯大林為代表的多數派獲勝,隨後展開了三大運動:即社會主義工業化運動、...
-
37度室外溫度什麼概念
室外溫度37度算是一個較熱的天氣,指的就是37度的高溫,其實在我們眼裡其實算是比較高的了。如果呆在戶外我們會流汗。...
-
港版官換機好不好
港版官換機挺好的。官換機是通過蘋果官方渠道出來的,是蘋果官方認證的全新機。雖然這是蘋果生產的用來售後更換的機子,不拿來零售,但其實在質量和效能上,都是有絕對保證的。官換機換出來均為單機頭無配件,包裝盒子的,比如你自己手機非人為情況下損壞了拿去蘋果直營店...