引用 | 編輯
創世紀乂多多
2012-04-19 00:10 |
樓主
▼ |
||
x1
亂數製造的程式碼複製程式
'亂數產生序號 Randomize For i = 1 To 20 num = 65 + Rnd * 25 If num Mod 4 = 0 Then s = s + Chr(48 + Rnd * 9) Else s = s + Chr(num) End If Next i Text1(自行改).Text = s 假如說"有心人"想要洗GASH 就努力吧...看你會弄幾次儲值到多少XD 強調!這是亂數喔 別以為100%能做出點數 以為阿捏的別被我 鞭打((開玩笑的XD [此文章售價 1 雅幣已有 50 人購買]若發現會員採用欺騙的方法獲取財富,請立刻舉報,我們會對會員處以2-N倍的罰金,嚴重者封掉ID! x4
|
引用 | 編輯
jamesli212
2012-04-29 17:28 |
2樓
▲ ▼ |
洗不了,都會有防洗機制(例如:打錯三次→五分鐘後才能打)
x0 |
引用 | 編輯
aaaasszx
2012-06-17 16:47 |
4樓
▲ ▼ |
下面是引用 冷場の貓娘 於 2012-06-16 13:30 發表的 :複製程式 '亂數產生序號 Randomize '初始化亂數產生器 For i = 1 To 20 '迴圈i初始值為1到20時跳出 num = 65 + Rnd * 25 'num=65加上(亂數*25) If num Mod 4 = 0 Then '如果num除以4的餘數 = 0 就執行以下代碼 s = s + Chr(48 + Rnd * 9) 's等於s + [color=#6699cc]Chr函數[/color](48+(亂數乘9)) Else '否則 s = s + Chr(num) 's等於s+[color=#6699cc]Chr函數[/color](num) End If '結束判斷式 Next i '跳出迴圈 Text1(自行改).Text = s '文字框1的文字 = s Chr函數: http://yes.nctu.edu.tw/vb/6_Func/Chr.htm x0 |
引用 | 編輯
Kinwai Lam
2012-11-07 19:51 |
6樓
▲ ▼ |
什麼自行改._.?
x0 |
引用 | 編輯
iamboss123
2014-01-10 14:49 |
8樓
▲ ▼ |
学会了!
x0 |
引用 | 編輯
Tommy850924
2014-08-11 00:03 |
9樓
▲ ▼ |