如何利用vb制作抽獎小程序？1、點擊電腦桌面右鍵選擇新建，在列表里面選擇表格，然后輸入要使用的抽獎數(shù)據(jù)。如何運用VB編寫一段隨機抽取試題的程序？程序主體有兩部分，第一部分用隨機函數(shù)，例如Int(Rnd

如何利用vb制作抽獎小程序？

1、點擊電腦桌面右鍵選擇新建，在列表里面選擇表格，然后輸入要使用的抽獎數(shù)據(jù)。

如何運用VB編寫一段隨機抽取試題的程序？

程序主體有兩部分，第一部分用隨機函數(shù)，例如Int(Rnd * 50) 1代表1~50之間隨機；抽取隨機數(shù)后傳遞到變量里面；然后抽取第二個隨機數(shù)，與變量比較，不一樣則傳遞到第二個變量上，一樣則重新抽?。恢貜?，直至X個變量全部賦值，然后輸出。

如何用VB制作隨機學號抽取器？

這個需要應用以下幾個步驟：

寫一個獲取隨機學號函數(shù)。

將這個函數(shù)綁定在某個控件上觸發(fā)抽學號的事件。

在某個輸出界面顯示這個隨機學號。

首先，學號肯定是整數(shù)，所以在窗體代碼區(qū)定義一個整型的變量來存放

Dim StudentNum as Integer

然后，新建一個模塊，在模塊中書寫隨機數(shù)函數(shù)，該函數(shù)有個整型的返回值。

該函數(shù)傳入2個參數(shù)，用于界定隨機數(shù)的上界和下界(也就是最大最小值)

Public Function GetNum (Byval L,Byval U) as Integer

Randomize '重置隨機種子

GetNum=Int((U - L 1) * Rnd L) '將范圍內獲得一個隨機整數(shù)賦值給該函數(shù)的返回值

End Function

寫完了這個函數(shù)，記下它的表達式 接收變量=GetNum(最小值，最大值)

最后，在窗體中畫一個按鈕(Command1)，一個文本框(名為Text1),一個定時器(Timer1)

1.雙擊這個窗體Form1，在它的Load事件中寫下：

…

’讓定時器50秒運行一次

Timer1.Enabel=True ‘讓定時器允許運作

…

2.雙擊定時器Timer1,在它的事件里寫下：

…

StudentNum=GetNum(1，30)

'假設學生學號從1號到30號，如果經常變動可以從外部獲取，用變量表示。

Text1.Text=StudentNum amp

VB制作抽簽程序？

要vb能用點擊開始后按鈕上的“開始”兩個字會變成“結束”人名會在一個框里不斷滾動直到點擊結束才停止請把代碼列出來人名先用“1234......”代下只建一個Command和一個labell或textb...