Tổ hợp chập 15! (1 người xem)

[emgaingayngo]

Em có 100 phần tử (00-99). Em muốn viết một code chọn ra 15 phần tử bất kỳ không lặp lại. Mong GPE giúp đỡ!

 

[SA_DQ]

Bạn thử nghiệm với macro sau xem sao?

Option Explicit
Sub Rand15()
 Dim jJ As Byte, Num As Byte
 Dim StrC As String, Chuoi As String
 For jJ = 0 To 99
   If jJ Mod 2 = 0 Then
      StrC = StrC & Right("0" & CStr(jJ), 2)
   Else
      StrC = Right("0" & CStr(jJ), 2) & StrC
   End If
   If jJ > 40 Then
      Randomize:              Num = 1 + Int(16 * Rnd())
      StrC = Mid(StrC, Num + 2) & Left(StrC, Num - 1)
   End If
 Next jJ
 For jJ = 1 To 30 Step 2
   Chuoi = Chuoi & ", " & Mid(StrC, jJ, 2)
 Next jJ
 MsgBox Mid(Chuoi, 3)
End Sub

Chúc thành công

 

[emgaingayngo]

Cảm ơn HYen17 nhiều, có cách nào mình viết ra được hết tất cả các bộ chập 15? Hôm trước mình có 1 code lấy hết chập 4, dùng 4 vòng for...next, chẳng lẽ mình dùng 15 vòng for cho nó???