引用 | 编辑
创世纪乂多多
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楼
▲ ▼ |