1: Module 亂數應用
2:
3: Sub Main()
4: Dim Num() = {0, 0, 0}, I As Integer
5: Console.WriteLine("{0}[3星彩]開獎程式...{1}", vbNewLine, vbNewLine)
6: For I = 0 To Num.GetUpperBound(0)
7: Num(I) = 延遲開獎(I)
8: Next
9: Console.WriteLine("{0}本期號碼:【{1}】 【{2}】 【{3}】", vbNewLine, Num(0), Num(1), Num(2))
10: Call 兌獎相關號碼(Num)
11: Console.Read()
12: End Sub
13: Function 延遲開獎(ByVal No)
14: Dim temp, X As Integer
15: Randomize()
16: X = Int(Rnd() * 3) + 1
17: temp = Int(Rnd() * 9) + 1
18: Console.Write("第{0}個開出的數字是:[{1}]", No + 1, temp)
19: If No < 2 Then
20: Console.WriteLine(",{0}秒後開出下一個數字", X)
21: System.Threading.Thread.Sleep(X * 1000)
22: Else
23: Console.WriteLine(",全部數字都已經開出")
24: End If
25: Return (temp)
26: End Function
27: Sub 兌獎相關號碼(ByVal LotoNum)
28: 'LotoNum = {2, 3, 2}
29: Dim group(8) As String
30: group(0)=LotoNum(0) & LotoNum(1) & LotoNum(2)
31: If LotoNum(0) = LotoNum(1) And LotoNum(0) <> LotoNum(2) Then
32: group(1) = LotoNum(0) & LotoNum(0) & LotoNum(2)
33: group(2) = LotoNum(0) & LotoNum(2) & LotoNum(0)
34: group(3) = LotoNum(2) & LotoNum(0) & LotoNum(0)
35: End If
36: If LotoNum(0) = LotoNum(2) And LotoNum(0) <> LotoNum(1) Then
37: group(1) = LotoNum(0) & LotoNum(0) & LotoNum(1)
38: group(2) = LotoNum(0) & LotoNum(1) & LotoNum(0)
39: group(3) = LotoNum(1) & LotoNum(0) & LotoNum(0)
40: End If
41: If LotoNum(1) = LotoNum(2) And LotoNum(0) <> LotoNum(1) Then
42: group(1) = LotoNum(0) & LotoNum(1) & LotoNum(1)
43: group(2) = LotoNum(1) & LotoNum(0) & LotoNum(1)
44: group(3) = LotoNum(1) & LotoNum(1) & LotoNum(0)
45: End If
46: If LotoNum(0) <> LotoNum(1) And LotoNum(1) <> LotoNum(2) And LotoNum(0) <> LotoNum(2) Then
47: group(1) = LotoNum(0) & LotoNum(1) & LotoNum(2)
48: group(2) = LotoNum(0) & LotoNum(2) & LotoNum(1)
49: group(3) = LotoNum(1) & LotoNum(0) & LotoNum(2)
50: group(4) = LotoNum(1) & LotoNum(2) & LotoNum(0)
51: group(5) = LotoNum(2) & LotoNum(0) & LotoNum(1)
52: group(6) = LotoNum(2) & LotoNum(1) & LotoNum(0)
53: End If
54: group(7)=LotoNum(0) & LotoNum(1)
55: group(8)=LotoNum(1) & LotoNum(2)
56: Console.WriteLine("{0}各種兌獎組合號碼如下{1}", vbNewLine, vbNewLine)
57: Console.WriteLine("正 彩:")
58: Console.WriteLine("{0}{1}", vbTab, group(0))
59: '兩球同號
60: Console.WriteLine("3組彩:")
61: If LotoNum(1) = LotoNum(2) And LotoNum(0) = LotoNum(1) Then
62: Console.WriteLine("{0}本期無此組合", vbTab)
63: Else
64: Console.WriteLine("{0}{1}、{2}、{3}", vbTab, group(1), group(2), group(3))
65: End If
66: '三球皆不同號
67: Console.WriteLine("6組彩:")
68: If LotoNum(0) <> LotoNum(1) And LotoNum(1) <> LotoNum(2) And LotoNum(0) <> LotoNum(2) Then
69: Console.WriteLine("{0}{1}、{2}、{3}、{4}、{5}、{6}", vbTab, group(1), group(2), group(3),
70: group(4), group(5), group(6))
71: Else
72: Console.WriteLine("{0}本期無此組合", vbTab)
73: End If
74: '只看頭或尾的兩個數字
75: Console.WriteLine("對 彩:")
76: Console.WriteLine("{0}{1}、{2}", vbTab, group(7), group(8))
77: End Sub
78: End Module