請問有無程式/網頁可以抽號碼?

我是大BB仔

有無d程式/網頁,我輸入d數字入去,佢就幫我是但抽幾多號碼出黎?好似抽獎咁,有無呢樣野架?

[ 本帖最後由 我是大BB仔 於 2009-7-8 10:11 PM 編輯 ]

oowilliamoo

要來玩D咩?

我是大BB仔

原帖由 oowilliamoo 於 8-7-2009 22:06 發表
要來玩D咩?

抽獎囉......
每個號碼代表某一個人

＃丫羊

計數機

＃丫羊

程式有
不過多數係自己寫

☆封冠神☆

用ＶＢ自己寫啦

◎真田幸村◎

用 pascal 寫 好易

excel 都好似得 (←e個唔肯定)

健仔隊長

原帖由 ◎真田幸村◎ 於 2009-7-8 10:47 PM 發表
用 pascal 寫 好易

excel 都好似得 (←e個唔肯定)

excel係得的
打埋人名分晒項目一次過抽晒都仲得...

wyz1301c2920

抽獎程式



假設有號碼１－１０



1) 在 excel 的 工具 下, 選 檢視, 再 tick 控制工具箱.



2) 在 控制工具箱 drag 一個 COMMAND BUTTON 到 worksheet.



3) double click COMMAND BUTTON, excel 會轉到 visual basic editor, 之後, 輸入下面的 code:





Dim n(10)



Private Sub CommandButton1_Click ()



ran:

Randomize



x = Rnd



x = Int(10 * Rnd) + 1

n(x) = n(x) + 1



If n(x) > 1 Then

GoTo ran

Else

Cells(1, 1) = x

End If





End Sub



4) 轉回 excel worksheet 晝面, click COMMAND BUTTON 一下, 就會在 A1 出現一 random number 了.



5) 幸運號碼不會重覆.



6) 可改變 font size, row height 使字體加大.



隨機抽籤程式



1) 打開一空白的 slide

2) 檢視--->工具列--->控制工具箱

3) 在 slide 上 劃一commandbotton 及一textbox

4) doubleclick commandbotton

5) 將 對應的 sub 改成:



Private Sub CommandButton1_Click()



Randomize

x = Int(100 * Rnd()) + 1



TextBox1 = x



End Sub



6) 播放後按 commandbutton 就會在 textbox 出現 random number 了.

xo小馬ox

想當年都寫過-__-
而家唔記得lu

俠4邪魂

java is ok
php都得~

J.辛尼迪

原帖由 wyz1301c2920 於 2009-7-8 11:10 PM 發表
抽獎程式



假設有號碼１－１０



1) 在 excel 的 工具 下, 選 檢視, 再 tick 控制工具箱.



2) 在 控制工具箱 drag 一個 COMMAND BUTTON 到 worksheet.



3) double click COMMAND BUTTON, exc ...

你真好人ar

＞威哥＜

Excel入面的VBA寫

↑KI◎RA↓

學校部電腦就有個咁ge程式 不過我唔知點整