疑問 - 請問關於判斷數字問題

[foxsimon2001]

例如這是一個拉霸程式
當三個數字都出現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

[mini]

其實只有三個數字欄
只要 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 機種)
那就要老老實實的比對了
而不能排列大小

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

[foxsimon2001]

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

[劍痞憶秋年]

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

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