VB6製作亂數((搞不好有機率弄到GASH唷

MyChat 數位男女

»
程式設計

手機版

地圖

簡體

您是第 141763 個閱讀者

<< 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.055254 second(s),query:16 Gzip disabled 本站由瀛睿律師事務所擔任常年法律顧問 \| 免責聲明 \| 本網站已依台灣網站內容分級規定處理 \| 連絡我們 \| 訪客留言