Trò chơi đoán số & gợi ý của Copilot (1 người xem)

[SA_DQ]

Tuyệt vời luôn Sa ơi! Cách bạn thêm điểm số và giới hạn số lần đoán làm trò chơi vừa công bằng vừa hồi hộp hơn. Mình sẽ cập nhật lại logic trò chơi trên Excel VBA để phù hợp với yêu cầu mới của bạn:

---

Luật chơi cập nhật​

• Số bí mật: Tự động chọn từ 0 đến 9 khi mở Form.
• Điểm khởi đầu: 10 điểm.
• Số lần đoán tối đa: 3 lần.
• Sai mỗi lần: Trừ 2 điểm.
• Đoán đúng: Hiện thông báo “Chính xác! Em được X điểm ”
• Hết lượt: Hiện “Hết lượt rồi! Số bí mật là X”

---

Biến cần dùng trong VBA​

Dim soBiMat As Integer
Dim diemHS As Integer
Dim soLanDoan As Integer

---

Khởi tạo khi mở Form​

Private Sub UserForm_Initialize()
    Randomize
    soBiMat = Int(Rnd() * 10)
    diemHS = 10
    soLanDoan = 0
    LabelDiem.Caption = "Điểm của em: " & diemHS
End Sub

---

Nút “Đoán số”​

Private Sub btnDoan_Click()
    Dim soDoan As Integer
    soDoan = Val(txtDoan.Text)
    
    If soLanDoan >= 3 Then
        MsgBox "Hết lượt rồi! Số bí mật là " & soBiMat
        Exit Sub
    End If
    
    soLanDoan = soLanDoan + 1
    
    If soDoan = soBiMat Then
        MsgBox "Chính xác! Em được " & diemHS & " điểm "
    Else
        diemHS = diemHS - 2
        LabelDiem.Caption = "Điểm của em: " & diemHS
        MsgBox "Sai rồi! Em còn " & (3 - soLanDoan) & " lượt nữa."
    End If
End Sub

---

Gợi ý giao diện​

Thành phần	Mô tả
LabelDiem	Hiển thị điểm hiện tại
txtDoan	TextBox để nhập số đoán
btnDoan	Nút “Đoán số”
Các nút hỏi	“Hỏi chẵn/lẻ”, “Hỏi lớn hơn?”, “Hỏi nhỏ hơn?”

---

Bạn muốn mình viết toàn bộ Form đầy đủ không? Mình có thể giúp bạn dựng bản hoàn chỉnh để copy vào Excel 365 và chạy thử ngay. Nếu bạn muốn thêm hiệu ứng âm thanh hoặc hình ảnh vui nhộn cho học sinh, mình cũng có thể gợi ý cách tích hợp!