會員中心 | iThome online | iT邦部落格 | 小7聚樂部 | iThome download | apphome

載入中...

rrrwerr

iT邦初學者
10級

隨機選號碼的程式(剩3天到期)

請求會寫程式的大大幫忙一下寫個程式:有關可以隨機選號碼的程式

介面是有四個區塊
區塊一: 顯示號碼
區塊二: 按鈕(for 1~80 號)
⋯⋯區塊三: 按鈕(for 81~160號)
區塊四: 按鈕(for 1~160號)

因為是要抽獎用的...但是有特別用途需要區分成前80位 跟後80位, 但有些獎項是需要一起抽的, 故需要 全部1~160號的...
能否產生號碼同時也能產生文字檔做紀錄以免出現的號碼重複
希望有能力的大大幫忙提供了

(希望是點選執行檔出現小視窗來執行,並附上語法供參數的修正...感恩大德)


發佈到:發佈到Facebook 發佈到噗浪 發佈到twitter
分享時間:2011-01-06 00:37:27
▼ ADVERTISEMENT ▼

隨機選號碼的程式
回答:kolnconcert( iT邦初學者10級 )
時間:2011-01-07 19:25:14
2
尾牙抽獎用的嗎?建議不要這樣玩啦,如果貴部門剛好抽的獎多了點、大了點,同事們就會有意見滴,結果就是辛苦寫了程式還要被人幹詨,吃力不討好~
會用vb的話,拉三個按鈕跟一個TextBox,然後大概寫這樣
Private Sub Command1_Click()
Dim i As Integer
Randomize
i = Int(Rnd() * 80)
Text1.Text = i
End Sub

Private Sub Command2_Click()
Dim i As Integer
Randomize
i = Int(Rnd() * 80)
Text1.Text = i + 80
End Sub

Private Sub Command3_Click()
Dim i As Integer
Randomize
i = Int(Rnd() * 160)
Text1.Text = i
End Sub2011-01-07 19:41:34 補充

回應

請填寫您的回應,長度限為1,000個字,回應不計點數,也不限使用次數



 
▼ ADVERTISEMENT ▼


檢舉違規

違規事項:

*補充檢舉理由(可省略),字數不可超過100字

推薦

推薦理由:


*給回答者的鼓勵(可不填),字數不可超過100字

哈哈
毆飛
開心
抗議
落寞
睡覺
噴鼻血
No
失神
爆氣
疑惑
Orz
不耐煩
喜歡
臉紅
噎到
放手
打嗑睡
掰掰
放馬過來
敲碗
簽名
筆記
拍手
沙發
XD
無言
偷笑
翻桌
謝謝
灑花
抱抱
逃跑
炸死你
愛你
生日快樂
rock
嘆氣
下雨
衝刺
搖頭
拍照
打球
健身
駭客
射門
泡湯
踹共
唱歌
做菜

上傳圖片
▼ ADVERTISEMENT ▼

邦友收藏動態

最新收藏最多人推最多人收

新增收藏

收藏到iT邦 書籤小工具

「收藏到iT邦」讓你更方便收藏站外文章。可用下面其中一種方法安裝:

  • 拖拉上面的「收藏到iT邦」連結到瀏覽器的書籤列
  • 在連結上方按右鍵,選擇「加到我的最愛」

之後看到喜歡的站外文章,只要點一下「收藏到iT邦」,就會收藏起來囉

安裝「收藏快捷鍵」

安裝「收藏快捷鍵」,可以讓邦友直接透過Google工具列上的按扭,快速收藏站內、站外的網頁。

訂閱每日摘要

iT邦幫忙即日起提供「每日摘要」給尚未註冊的邦友,只要輸入您的E-mail,每日就可以收到最新的發問與分享