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

如何利用vb制作抽獎(jiǎng)小程序？

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

如何運(yùn)用VB編寫一段隨機(jī)抽取試題的程序？

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

如何用VB制作隨機(jī)學(xué)號(hào)抽取器？

這個(gè)需要應(yīng)用以下幾個(gè)步驟：

寫一個(gè)獲取隨機(jī)學(xué)號(hào)函數(shù)。

將這個(gè)函數(shù)綁定在某個(gè)控件上觸發(fā)抽學(xué)號(hào)的事件。

在某個(gè)輸出界面顯示這個(gè)隨機(jī)學(xué)號(hào)。

首先，學(xué)號(hào)肯定是整數(shù)，所以在窗體代碼區(qū)定義一個(gè)整型的變量來(lái)存放

Dim StudentNum as Integer

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

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

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

Randomize '重置隨機(jī)種子

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

End Function

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

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

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

…

’讓定時(shí)器50秒運(yùn)行一次

Timer1.Enabel=True ‘讓定時(shí)器允許運(yùn)作

…

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

…

StudentNum=GetNum(1，30)

'假設(shè)學(xué)生學(xué)號(hào)從1號(hào)到30號(hào)，如果經(jīng)常變動(dòng)可以從外部獲取，用變量表示。

Text1.Text=StudentNum amp

VB制作抽簽程序？

要vb能用點(diǎn)擊開(kāi)始后按鈕上的“開(kāi)始”兩個(gè)字會(huì)變成“結(jié)束”人名會(huì)在一個(gè)框里不斷滾動(dòng)直到點(diǎn)擊結(jié)束才停止請(qǐng)把代碼列出來(lái)人名先用“1234......”代下只建一個(gè)Command和一個(gè)labell或textb...