Mình gửi lại hình chụp tô khoảng 10 ô nhé, đại ý là có tất cả 7 màu khác nhau. giờ điền tất cả khả năng tô 7 màu khác nhau vào 5 vị trí .Gửi bởi concogia
<div class="img_align_center size_fullsize"></div>
Junior Member
Mình gửi lại hình chụp tô khoảng 10 ô nhé, đại ý là có tất cả 7 màu khác nhau. giờ điền tất cả khả năng tô 7 màu khác nhau vào 5 vị trí .
<div class="img_align_center size_fullsize">
Junior Member
Đọc từ trên xuống (từ #1 đến #9) mà chẳng hiểu gì cả. [IMG]images/smilies/a36.gif[/IMG][IMG]images/smilies/a36.gif[/IMG][IMG]images/smilies/a36.gif[/IMG][IMG]images/smilies/a36.gif[/IMG][IMG]images/smilies/a36.gif[/IMG]
Do diễn tả không được rõ ràng, mình có diễn đạt lại , bạn đọc lại rồi giúp mình nhé ,tks bạn
Nếu không có D7 thì chỉnh code lại.
Thay Sub cũ trong Module thành Sub này.
Còn chuyện có bao nhiêu "khả năng" thì tôi không biết.
Bên trên bạn đâu có yêu cầu tính ra bao nhiêu "khả năng".
Mã nguồn PHP:Public Sub GPE()Dim Dic As Object, sArr(), dArr(1 To 1000, 1 To 5), Tem As String, Cll As RangeDim I As Long, J As Long, K As Long, N As Long, X As Long, Mau As LongSet Dic = CreateObject("Scripting.Dictionary")For Each Cll In Range("B3:B9") Dic.Add Cll.Value, Cll.Interior.ColorIndexNext CllsArr = Range("B3:B9").ValueFor I = 1 To 7 For J = 1 To 5 K = K + 1: Tem = "#" & I For N = 1 To J dArr(K, N) = sArr(I, 1) Next N For X = J + 1 To 5 Randomize Do Mau = Int((7 * Rnd) + 1) If Mau <> I Then If InStr(Tem, "#" & Mau) = 0 Then dArr(K, X) = sArr(Mau, 1) Exit Do End If End If Loop Tem = Tem & "#" & Mau Next X Next JNext I[B16:F1000].ClearContents[B16].Resize(K, 5) = dArrFor Each Cll In Range("B16").Resize(K, 5) Cll.Interior.ColorIndex = Dic.Item(Cll.Value)Next Cll'[B16].Resize(k, 5).ClearContents'End Sub
Junior Member
</div>
</div>
</div>
Đề bài có mà bạn. Mình có nói là tất cả các khả năng xảy ra à. Thuật toán code mình có nói theo từng bước rồi bạn à. Bạn làm giúp minh hoàn chỉnh nha. Tks bạn
Administrator
nói tới nói lui mười mấy hiệp mới chịu lòi ra chữ tổ hợp à ? hay bạn nghĩ rằng người khác phải tự đoán ra chữ này để giúp bạn chăng ?
mặc dù liệt kê tổ hợp code cũng không có gì phức tạp , nhưng kiểu trình bày của bạn làm cho người khác mất kiên nhẫn , và chỉ tổ thiệt thòi cho bạn thôi .
hình vẽ ở bài #1 vẫn có màu D7 , chúng tôi còn nhìn thấy cơ mà , xuống đây lại nói là không có màu D7 ....
Junior Member
Màu D7 mình để vậy, chứ đề bài k có dùng tới bạn à.
Junior Member
Đọc giải thích
Thì có lẽ kết quả như trong file này, Bấm nút GPE đến khi nào "vừa bụng" thì thôi.
B1: điền màu vàng ở ô số 1, và điền tất cả các khả năng xảy ra với 6 màu còn lại vào 4 ô còn lại.
B2: điền đồng thời màu vàng vào ô số 1 và 2, sau đó điền tất cả các khả năng xay ra với 6 màu còn lại với 3 ô còn lại
B3: điền đồng thời màu vàng vào ô số 1, 2 và 3, sau đó điền tất cả khả năng xảy ra với 6 màu còn lại ở 2 ô còn lại
B4: điền đồng thời màu vàng vào ô 1, 2, 3 và 4, sau đó điền tất cả các khả năng xảy ra với 6 màu còn lại ở 1 ô còn lại
B5: điền màu vàng ở tất cả 5 ô khi làm xong 4 bước trên.
B6: lập lại các bước 1,2,3,4,5 ở trên với các màu còn lại theo thứ tự. (light blue, gray, green, pink, ivory, red)
Viết lòng vòng theo giải thích nên code cũng lòng vòng luôn.
Còn hình minh họa thì ... chẳng có quy luật nào.
Cảm ơn bạn nhé, Nhưng bạn ơi, Theo đề bài thì không có màu D7, bạn có thể xóa bỏ màu D7 đi , mình tính ra là có tất cả 462 khả năng tổ hợp. Bạn làm lại giùm mình nhé, Cảm ơn rất nhiều
Quyền viết bài
Trả lời kèm Trích dẫn