1樓：q是
不重複的抽號機 我幫你實現
怎麼用vb做抽號機
2樓：洛水北岸賞星
private sub command1_click()randomize
text1.text = int((1 - 999 + 1) * rnd() + 999)
end sub
如何用vb製作隨機學號抽取器？
3樓：彩虹飲料
這個需要應用以下幾個步驟：
寫一個獲取隨機學號函式。
將這個函式繫結在某個控制元件上觸發抽學號的事件。
在某個輸出介面顯示這個隨機學號。
首先，學號肯定是整數，所以在窗體**區定義一個整型的變數來存放
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事件中寫下：
timer1.interval=50 』讓定時器50秒執行一次
timer1.enabel=true 『讓定時器允許運作
2.雙擊定時器timer1,在它的事件裡寫下：
studentnum=getnum(1，30)
'假設學生學號從1號到30號，如果經常變動可以從外部獲取，用變數表示。
text1.text=studentnum & "號"
'把取到的隨機數顯示在文字框裡面
3.雙擊按鈕command1,在它的點選事件裡寫下
if timer1.enable=true
timer1.enable=false '計時器停止運作
msgbox "選中了" & studentnum & "號",26,"選中了該學號" '把結果彈出對話方塊
else
timer1.enable=true 』啟用已經停止的計時器，可以進行下一次選號
end if
4樓：
好說,建立一個文字框,兩個按鈕
dim i as integer
private sub command1_click()timer1.interval = 1
end sub
private sub command2_click()timer1.interval = 0
end sub
private sub form_load()timer1.interval = 0
command1.caption = "開始"
command2.caption = "停止"
text1.text = ""
text1.fontsize = 24
end sub
private sub timer1_timer()text1.text = i
i = i + 1
if i > 50 then i = 1
end sub
用vb設計一個隨即抽取幸運數字的程式,單擊"開始"按鈕,在文字框中隨機產生7為數
5樓：浪花飄零
建立一個vb工程，在窗體上放置一個文字輸入框text1，一個標籤label1，三個按鈕，名稱分別為
command1 「開始」
command2 「暫停」
command3 「退出」
再加入一個定時器timer1，interval屬性設定為2000ms雙擊開始按鈕，新增下面**
private sub command1_click()dim a as long
a = int(rnd * 9000000 + 1000000)text1 = a
timer1.enabled = trueend sub
雙擊暫停按鈕，新增下面**
private sub command2_click()timer1.enabled = falseend sub
雙擊退出按鈕，新增下面**
private sub command3_click()call command2_click
endend sub
雙擊窗體，新增下面**
private sub form_load()randomize timer
end sub
雙擊定時器，新增下面**
private sub timer1_timer()dim a as long
a = int(rnd * 9000000 + 1000000)text1 = a
end sub
執行一下，一個幸運數字程式新鮮出爐
如何用vb設計隨機抽取車牌號程式?
6樓：匿名使用者
private sub text1_click()dim num as long
num = int(rnd * 99999)text1 = format(num, "00000")end sub
7樓：匿名使用者
隨機數不就好了？把能抽取的號碼編號，然後隨機數就行了哈。
怎樣用設計稿紙，怎樣用word設計稿紙？
如何用word製作稿紙？怎樣用excel做稿紙 word就有稿紙，excel做稿紙列印也會不好排的 將excel列印出來即可！excel沒有這個功能吧，要不用txt？word有稿紙吧？用word怎樣設計發文稿紙首頁 怎麼用word製作文稿紙 如何用word製作稿紙？怎樣用word製作信紙 如何用wo...
怎樣用VB計算圓的面積和周長，設計VB計算圓的面積與周長
就兩個公式嘛 圓的周長 2 半徑 圓周率 直徑 圓周率 即 圓的周長 2 r 或 d 面積 s r 或s d 2 程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長 textbox3用來顯示計算結果面積 新增兩個button1命名為計算圓的周長和麵積。定義常量 定...
怎樣用press建站，怎樣用wordpress免費建站
wordpress建站從零基礎開始學起。wordpress可以慢慢的從域名解析，部署環境，安裝程式，使用主題，安裝外掛等開始操作。你可以去搜搜下如何用wp程式建站，學習相關知識。寫過好多這種內容，建站類的，伺服器類的，在你建站過程中都能用得到的。至於伺服器的話，多少花點錢，免費的往往是最貴的。一般回...