說明採用Visual Basic 6.0

使用金錢卦方式(三枚錢幣擲連六次)

則同擲三個金錢情況下：

得一個正面及兩個反面有，正１反2反3、反１正2反3、反１反2正3：三種狀況。

得兩個正面及一個反面有，正１正2反3、正１反2正3、反１正2正3：三種狀況。

得三個正有，正１正2正3，　　　　　　　　　　　　　　　　　：一種狀況。

無正面(即三個反面)有，反１反2反3，　　　　　　　　　　　　：一種狀況。

共有八種狀況！



所以筮金錢卦時，擲得老陽的機率是八分之一，擲得老陰的機率也是八分之一，擲得少陽

的機率是八分之三，擲得少陰的機率也是八分之三！



部分程式碼請參考如下,程式寫的不好請多包函

我想最有爭議的部分可能是最後的取數我用數學冪的方法而沒採用卦數取法吧?



Randomize



'亂數產生六爻

For i = 1 To 6

For j = 1 To 3

RanGa(i, j) = (Int((10 * Rnd) + 1) Mod 2)

If RanGa(i, j) = 1 Then count = count + 1

Debug.Print "RanGa("; i; ","; j; ")="; RanGa(i, j)

Next j

Debug.Print "count"; i; "="; count '陽面計數



'老陽 1/8

If count = 3 Then

myGA(i, 1) = 1

myGA(i, 2) = 1

End If

'老陰 1/8

If count = 0 Then

myGA(i, 1) = 0

myGA(i, 2) = 1

End If



'少陽 3/8

If count = 2 Then

myGA(i, 1) = 1

myGA(i, 2) = 0

End If

'少陰 3/8

If count = 1 Then

myGA(i, 1) = 0

myGA(i, 2) = 0

End If



count = 0

Next i



'myga(i,2) 計算變爻 這是精采的Xor邏輯算變爻

For i = 1 To 6

myGA(i, 2) = (myGA(i, 1) Xor myGA(i, 2))

Next i



myvalue = 0

myvalue = myGA(1, 1) + (myGA(2, 1) * 2) + (myGA(3, 1) * 4)

'取下卦 一至三爻

Select Case myvalue

Case 0

ga_down = "坤"

Case 1

ga_down = "震"

Case 2

ga_down = "坎"

Case 3

ga_down = "兌"

Case 4

ga_down = "艮"

Case 5

ga_down = "離"

Case 6

ga_down = "巽"

Case 7

ga_down = "乾"

End Select

Text2.Text = ga_down

'取上卦 ga_up 四至六爻

myvalue = 0

myvalue = myGA(4, 1) + (myGA(5, 1) * 2) + (myGA(6, 1) * 4)

Select Case myvalue

Case 0

ga_up = "坤"

Case 1

ga_up = "震"

Case 2

ga_up = "坎"

Case 3

ga_up = "兌"

Case 4

ga_up = "艮"

Case 5

ga_up = "離"

Case 6

ga_up = "巽"

Case 7

ga_up = "乾"

End Select