Tổ hợp chập 3 có tổng bằng 4

[emgaingayngo]

Các bạn GPE giúp mình đoạn mã lấy tổ hợp chập 3 có tổng bằng 4 của 5 phần tử {0,1,2,3,4}.
KQ như sau:
(3,1,0)-(3,0,1)-(1,3,0)-(1,0,3)-(0,1,3)-(0,3,1)-(2,2,0)-(2,0,2)-(0,2,2)-(2,1,1)-(1,2,1)-(1,1,2)-(4,0,0)-(0,4,0)-(0,0,4)
Cảm ơn các bạn GPE!

 

[SA_DQ]

Bạn kiểm lại xem sao, nha!

Option Explicit
Sub LayToHopChap3CoTongLa4()
 Dim j0 As Byte, j1 As Byte, j2 As Byte, j3 As Byte
 
 Coilumns("A:A").Clear
 For j0 = 0 To 4
   For j1 = 0 To 4
      For j2 = 0 To 4
         If (j0 <> j1 Or j0 <> j2) And j0 + j1 + j2 = 4 Then
            With [a65500].End(xlUp).Offset(1)
               .Value = "'" & j0 & j1 & j2
            End With
         End If
 Next j2, j1, j0
End Sub

 

[emgaingayngo]

Cm ơn Bác SA_DQ.
Em muốn mở rộng bài toán trên thêm chút nữa : Tổ hợp chập m cuả n phần tử có tổng là q.(m,n,q cs thể dùng Inputbox để đưa vào) . Mong các bạn giúp đỡ.

 

[ChanhTQ@]

Tổ hợp chập 3 của N fần tử có tổng là Q

Option Explicit
Sub ToHopChap3OfNFanTuCoTongLaQ()
 Dim j0 As Byte, j1 As Byte, j2 As Byte, j3 As Byte, j4 As Byte, J5 As Byte, J6 As Byte
 Dim J7 As Byte, J8 As Byte, J9 As Byte, nN As Byte, Qq As Integer
   
 Columns("A:A").Clear
 nN = InputBox("So Fan Tu Trong To Hop:", "GPE", 9)
 If nN > 13 Or nN < 3 Then Exit Sub
 Qq = InputBox("Hay Nhap Tong:", "GPE", 9)
 
 For j0 = 0 To nN
   For j1 = 0 To nN
      For j2 = 0 To nN
         If (j0 <> j1 Or j0 <> j2) And j0 + j1 + j2 = Qq Then
            With [a65500].End(xlUp).Offset(1)
               .Value = "'" & j0 & j1 & j2
            End With
         End If
 Next j2, j1, j0
End Sub