Function BienSo(SoChuSo As Integer, SoNut As Integer) As String
If SoNut = 0 Or SoChuSo < 3 Then
BienSo = "Bai toan khong bao gom truong hop nay"
Exit Function
End If
Select Case 10 - SoChuSo - SoNut
'(10-SoChuSo) chinh la so nut cua SoChuSo x 9
Case 5, 6, -2, -3, -4, -5, -6
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 2) & 17 - SoChuSo - SoNut & "," & "5"
Case 1, 2, 3, 4
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 1) & SoChuSo + SoNut - 1
Case 0
BienSo = WorksheetFunction.Rept("9,", SoChuSo)
Case -1
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 3) & "8,5,5"
Case -7, -8
BienSo = WorksheetFunction.Rept(9, SoChuSo - 1) & SoChuSo + SoNut - 11
End Select
End Function