史萊姆論壇 - 請問關於判斷數字問題

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 請問關於判斷數字問題 (http://forum.slime.com.tw/thread175103.html)

請問關於判斷數字問題

例如這是一個拉霸程式
當三個數字都出現7則為投注金額10倍
當任意二個數字都7則投注金額3倍
當三個數字都相同則投注金額5倍
當任意二個數字都相同則投注金額2倍

我是用IF...THEN去設計的可是似乎很長又不容易偵錯
想請問一下各位是否有更好的設計方向或是方法

PS.我是使用Visual Basic 6.0

僅供參考，劣者的想法是把判別式拆開來

語法:

Option Explicit



Private Sub cmdTry_Click()



  Dim A$, B$, C$

  

  Dim JetDouble As String



  A$=Text1.text

  B$=Text2.text

  C$=Text3.text



  If JetTrue_All_7(A$,B$,C$) Then

     JetDouble = "10"

  ElseIf JetTrue_Two_7(A$,B$,C$) Then

     JetDouble = "3"

  ElseIf JetTrue_All_Same(A$,B$,C$) Then

     JetDouble = "5"

  ElseIf JetTrue_Two_Same(A$,B$,C$) Then

     JetDouble = "2"

  End If

  

End Sub



Private Function JetTrue_All_7(Byval Jet1 as String,Byval Jet2 as String,Byval Jet3 as String) As Boolean

  JetTrue_All_7 = Trim(Jet1$) = Trim(Jet2$) And Trim(Jet1$) = Trim(Jet3$) And Trim(Jet1$) = "7"

End Function



Private Function JetTrue_Two_7(Byval Jet1 as String,Byval Jet2 as String,Byval Jet3 as String) As Boolean

  JetTrue_Two_7 = (Trim(Jet1$) = Trim(Jet2$) Or Trim(Jet1$) = Trim(Jet3$)) And Trim(Jet1$) = "7"

End Function



Private Function JetTrue_All_Same(Byval Jet1 as String,Byval Jet2 as String,Byval Jet3 as String) As Boolean

  JetTrue_All_Same = Trim(Jet1$) = Trim(Jet2$) And Trim(Jet1$) = Trim(Jet3$)

End Function



Private Function JetTrue_Two_Same(Jet1$, Jet2$, Jet3$) As Boolean

  JetTrue_Two_Same = Trim(Jet1$) = Trim(Jet2$) Or Trim(Jet1$) = Trim(Jet3$) Or Trim(Jet2$) = Trim(Jet3$)

End Function

其實只有三個數字欄
只要 1-2、2-3 及 3-1 做比較就好了
但就數學組合層面來講
當超過三個數字欄 (比如 4個、5個...時)
就不是最好的方法
舉個例子
當拉霸是四個欄位時，出現了 2123 ...

此時有一個好方法
先將其按大小排列，就會變成 1223
這樣就只要做左右比對即可 1-2、2-3、3-4 及 4-1

所以個人會為了程式的擴充性
先用氣泡排列法 (當然還有很多排列法可選擇，只是當欄位比較少時氣泡既單純又快速)
接著再做左右比對

以下是個人寫的範例
http://www.sendmefile.com/00368009

您要問的就是
Private Function multiply(Num() As Integer) As Integer
那一段

但超過 5個欄位時
程式就要改一下了
比如出現
21211
那應該是幾倍呢？
2-2
1-1-1
理論上是 7 倍

如果是更複雜的矩陣式 (比如 5x5 、5x4 機種)
那就要老老實實的比對了
而不能排列大小

最後要講的是
其實有個既單純又簡單的判斷方法
就是類似氣泡排列法(不排列而只是比較)
每個欄位都互相比較
置於寫法... 你可以自己試試看

謝謝兩位的回答我大概知該怎麼作了
至於氣泡排列法...個人只是初學者老師也還沒教過
我想應該不會是要我們用這個設計
等之後進階點時我在去找一下氣泡排列的用法吧

補充一下：
的確是劣者考慮不周，應該要先排序的，劣者當時沒想到延伸的情況

　　若不用自己寫排序的話，也可以把字／值傳入 Combotxt or ListBox 中(把.Sorted 設 True)，再把它的內容一一讀出來，最簡單(若不用自己寫排序的話)