1樓：s業餘生活
private sub command2_click()randomize
for i = 0 to 2
a(i) =int(rnd * 99999) +1'''隨機產生3個數 ，範圍1——99999
next i
end sub
print"a(0) +a(1) +a(2)"
vb求高手做乙個簡單的抽號軟體！
2樓：網友
private sub command1_click()if = "停止" then
開始" false
elseif = "開始" then
停止" true
end if
end sub
private sub timer1_timer()= int(rnd * 49) +1
end sub
在窗體上新增按鈕和計算器，將計算器的interval設為100
如何用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事件中寫下：
讓定時器50秒執行一次。
讓定時器允許運作。
2.雙擊定時器timer1,在它的事件裡寫下：
studentnum=getnum(1，30)
假設學生學號從1號到30號，如果經常變動可以從外部獲取，用變數表示。
號"把取到的隨機數顯示在文字框裡面。
3.雙擊按鈕command1,在它的點選事件裡寫下。
if'計時器停止運作。
msgbox "選中了" & studentnum & "號",26,"選中了該學號" '把結果彈出對話方塊。
else啟用已經停止的計時器，可以進行下一次選號。
end if
4樓：網友
好說，建立乙個文字框，兩個按鈕。
dim i as integer
private sub command1_click()= 1
end sub
private sub command2_click()= 0
end sub
private sub form_load()= 0
開始" "停止"
end sub
private sub timer1_timer()= i
i = i + 1
if i > 50 then i = 1
end sub
求vb高手做乙個非常簡單的抽號軟體！
5樓：網友
做成**中的樣子？**呢？
怎麼用vb做乙個隨機抽取器？
6樓：網友
只要在**中使用隨機函式即可實現隨機抽取功能。
一、vb隨機數生成的方法。
vb隨機數生成函式是 rnd[(number)]，number 引數為可選項。在呼叫 rnd 生成隨機數之前，先使用 randomize 初始化隨機數生成器來產生種子，該生成器是根據系統計時器來產生種子的。
1、生成100以內的隨機數。
randomize
int(rnd() 100)//生成 0 - 99 之間的隨機數。
int(rnd() 101)//生成 0 - 100 之間的隨機數。
2、生成指定範圍隨機數。
由於 vb 沒有提供直接生成指定範圍隨機數的函式，所以要把 rnd 變通一下，方法如下：
int((上限 - 下限 + 1) *rnd + 下限);
把它封裝成可直接呼叫的函式如下：
function getrandom(under, over as integer) as integer
if under < over then
temp = under;
under = over;
over = temp;
end if
randomize
getrandom = int((under - over + 1) *rnd + over);
end function
呼叫方法：getrandom(10, 100);//生成10到100的隨機數。
二、生成隨機數的方法。
1、方法： minvalue, int maxvalue);
2、說明：若 minvalue 和 maxvalue 都沒有提供，則生成乙個 0 - 2147483647 之間的隨機數；
若 minvalue 和 maxvalue 只提供乙個，則生成乙個 0 - maxvalue 之間的隨機數；
若 minvalue 和 maxvalue 兩個都提供，則生成乙個 minvalue - maxvalue 之間的隨機數；
3、舉例。dim ran = new
生成 0 - 2147483647 之間的隨機數。
生成 0 - 100 之間的隨機數。
100)//生成 10 - 100 之間的隨機數。
dim ran = new random(通過日期的微秒生成隨機數。
7樓：網友
程式主體有兩部分，第一部分用隨機函式，例如int(rnd * 50) +1代表1~50之間隨機；
抽取隨機數後傳遞到變數裡面；
然後抽取第二個隨機數，與變數比較，不一樣則傳遞到第二個變數上，一樣則重新抽取；
重複，直至x個變數全部賦值，然後輸出。
如何用vb製作抽題器？
8樓：網友
將題號存到乙個陣列，假如陣列下標從0到99，每個抽題的人點選下，產生乙個0-99的隨機數字，隨機數即是題號。抽到後將改序號題號設定為0，代表該題已經被抽走了。下次抽到這號繼續重新抽。
急求乙個vb抽號器的程式設計，步驟清晰！人數
9樓：網友
新增乙個label控制項和乙個command button控制項，**非常簡單。
private sub command1_click()= cint(rnd * 40) +1
end sub
rnd就是產生乙個0到1之間的隨機數，乘以40就變成0到40之間的小數，因為座號是整數，所以用cint()函式變成整數0到39之之間的整數，然後加1.就是1到40
怎樣用vb語言設計乙個抽號機
10樓：塗以冬
假設有乙個列表list1裡面裝的是要抽出來的項，有乙個文字框text1來接收。
randomize '初始化隨機數種子。
dim randomindex as integer '用於儲存隨機數。
dim random as new listbox '便於後臺操作。
dim i as integer 'for迴圈計數器。
for i = 0 to - 1 '把list1的項新增到random
為列表新增項。
next i
for i = 0 to - 1 '隨機選中random的某個項並輸出。
randomindex = int(((1) -0 + 1)) rnd + 0) '隨機產生乙個列表索引並存到變數中。
'輸出到文字框。
從列表中移除，以免重複。
doevent '可選，用於防止介面未響應。
next i
另外隨機函式有個公式，用來隨機出某個範圍的整數。
int((範圍上限 - 範圍下限 + 1) *rnd + 範圍下限)
此程式沒***所有項被抽中的幾率都平等，有兩個原因。
vb的隨機是偽隨機。
項被從列表移除，項的總數小了，後面的數被抽到的幾率會比前面的大。
比如說，開始有100個項，那每個項被抽到的幾率都是1/100
到後來，項被移除，剩下50個項，那麼每個項被抽到的幾率就變成了1/50
11樓：q是
不重複的抽號機 我幫你實現。
vb怎麼定義小數點後位數，VB如何定義小數位數
vb中有專門用來四捨五入的函式 round 函式 返回按指定位數進行四捨五入的數值.語法 round expression numdecimalplaces 引數 expression 必選項 被四捨五入的數值表示式 numdecimalplaces 可選項 數字表明小數點右邊有多少位進行四捨五入,...
vb怎麼暫停程式，VB如何暫停一個程式的執行？
dim isstop as boolean 這個放在最上面private sub command1 click isstop true end sub sub main for j 0 to 1000000 if isstop true then isstop false exit for sum ...
如何用vb編寫程式判斷數是完全平方數
思路 1 判斷值是否copy大於等於0 2 開平方這個數 3 判斷開平方後取整和開平方後的數是否相等,如果相等是完全平方數,否則不是 例子 dim a,b for a 1 to 100 if a 0 then b sqr a if int b b then 完全平方數 else 不是完全平方數 en...