- 帖子
- 28
- 主題
- 3
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2015-2-7
- 最後登錄
- 2019-9-7
|
Sub t_rnd()
Randomize '初始化亂數產生器
n = 0
While n < 4
x = Int(Rnd * 10)
For s = 0 To 3
If data(s) = x Then
y = 1
Exit For
Else
y = 0
End If
Next
If y = 0 Then
data(n) = x
n = n + 1
End If
Wend
ran = data(0) & data(1) & data(2) & data(3)
l = 5
End Sub
這是不材小弟所寫的亂碼產生公式
Randomize 是產生亂碼的指令 但是他只是有順序的產生數字
每次從新啟動該指令他都產生相同順序的數字
我想請問有沒有辦法產生真的亂碼 每次啟用絕不會重複的亂碼 |
|
發表於 2015-3-3 23:56
| 
發表於 2015-3-4 08:44
| 
