洪瑞鴻 發表於 2015-2-27 20:31:33

亂數製造機源碼(樂逗點製造)

本帖最後由 洪瑞鴻 於 2015-2-27 20:38 編輯


[*]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

      物件
Command x1

Text x1

機率非常低

**** Hidden Message *****

亞城o 發表於 2015-2-27 20:49:22

這是自己寫的嘛？
等等來寫寫試試看XD

RouZong 發表於 2015-2-27 20:53:51

teemo 發表於 2015-2-27 21:17:26

以前 我就知道有這個 我他媽的 很傻 連續1小時 都在........................

魚鬆哥 發表於 2015-2-27 21:50:37

這種就神了 重了還有被告風險= =

cycjanes2013 發表於 2015-2-27 22:31:39

newhand000 發表於 2015-2-27 23:35:22

陳富雄 發表於 2015-2-27 23:44:24

qwe123 發表於 2015-3-2 20:39:08

這應該是..... 沒辦法重吧!

阿羊ˋ 發表於 2015-3-14 15:12:05

THX嚕 !!!!!!!!!!!!!!!!!!

宥晨鐘 發表於 2017-8-28 04:06:19

謝謝大大分享~:$
頁: [1]
查看完整版本: 亂數製造機源碼(樂逗點製造)