這產生編號不一定準,要看你的運氣...沒中到...不能怪我!
產生編號一共6個
如果有產生編號一共5個,自行自選出來一個編號數字
Script 腳本
複製內容到剪貼板
代碼:
Test = $[ "大樂透" ] : StopModule 模組
複製內容到剪貼板
代碼:
Sub 大樂透()
Dim 數字(5) As Byte '6個編號
Randomize() '亂數產生器
For i As Byte = 0 To 5
數字(i) = Int(Rnd() * 48) + 1
Next
Dim s As New System.Text.StringBuilder
For i As Byte = 1 To 49
Select Case i
Case 數字(0) : s.Append(數字(0) & " ")
Case 數字(1) : s.Append(數字(1) & " ")
Case 數字(2) : s.Append(數字(2) & " ")
Case 數字(3) : s.Append(數字(3) & " ")
Case 數字(4) : s.Append(數字(4) & " ")
Case 數字(5) : s.Append(數字(5) & " ")
End Select
Next
Dim Obj = CreateObject("WScript.Shell")
Obj.Popup("產生編號：" & s.ToString(), 0, "大樂透")
End Sub[
本帖最後由 ymlk 於 2008-6-14 19:46 編輯 ]
