VB6制作乱数((搞不好有机率弄到GASH唷

MyChat 数位男女

»
程式设计

手机版

地图

繁体

您是第 141812 个阅读者

04:00 ~ 4:30 资料库备份中，需等较久的时间，请耐心等候

<< 1 2 下页 >>

(共 2 页)

可列印版加为IE收藏收藏主题上一主题 | 下一主题

创世纪乂多多

级别: 小人物

▼

[Basic][教学] VB6制作乱数((搞不好有机率弄到GASH唷

乱数制造的程式码复制程式

'乱数产生序号 
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 [楼主] From：台湾中华电信股份有限公司 \| Posted：2012-04-19 00:10 \|

创世纪乂多多

级别: 小人物

▲ ▼

觉得有帮助就帮忙留言或送朵花吧...

拜托啰别拿拿就走...


x0 [1 楼] From：台湾中华电信股份有限公司 \| Posted：2012-04-19 00:12 \|

jamesli212

级别: 路人甲

▲ ▼

洗不了，都会有防洗机制(例如:打错三次→五分钟后才能打)


x0 [2 楼] From：台湾固网股份有限公司 \| Posted：2012-04-29 17:28 \|

冷场の小白喵

级别: 副初露锋芒

x107

▲ ▼

可以解释一下那个程式码吗?
想学学看


x0 [3 楼] From：欧洲 \| Posted：2012-06-16 13:30 \|

aaaasszx

级别: 小人物

x27

▲ ▼

下面是引用冷场の猫娘于 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...c/Chr.htm


x0 [4 楼] From：台湾宽频通讯顾问股份有限公司 \| Posted：2012-06-17 16:47 \|

++HAUN

级别: 小有名气

x55

x410

▲ ▼

唔......用随机乱数刷GASH吗?~
刷得到的话也许能去买威力彩了......XD

あーう~あーう~あーう~あーう~あーう~
x0 [5 楼] From：台湾中华电信股份有限公司 \| Posted：2012-07-26 10:17 \|

Kinwai Lam

级别: 小人物

▲ ▼

什么自行改._.?


x0 [6 楼] From：没有资料 \| Posted：2012-11-07 19:51 \|

刘沛涵

级别: 小人物

x12

x143

▲ ▼

洗到GASH的机率因该蛮低的


x0 [7 楼] From：台湾固网股份有限公司 \| Posted：2013-02-07 20:22 \|

iamboss123

级别: 小人物

▲ ▼

学会了！


x0 [8 楼] From：山东 \| Posted：2014-01-10 14:49 \|

Tommy850924

级别: 路人甲

▲

下面是引用 jamesli212 于 2012-04-29 17:28 发表的 :
洗不了，都会有防洗机制(例如:打错三次→五分钟后才能打)

对于特殊软体来说，昰无效的，正所谓【防君子不防小人】有心人自有解法~

~
x0 [9 楼] From：台湾固网股份有限公司 \| Posted：2014-08-11 00:03 \|

<< 1 2 下页 >>

(共 2 页)

Powered by PHPWind v1.3.6 Copyright © 2003-04 PHPWind	Processed in 0.056450 second(s),query:16 Gzip disabled 本站由瀛睿律师事务所担任常年法律顾问 \| 免责声明 \| 本网站已依台湾网站内容分级规定处理 \| 连络我们 \| 访客留言