Hãy trắc nghiệm với mười câu kiến thức phổ thông, xin mời

[Hoang2013]

Các bạn có thể tự bổ sung các câu hỏi & đáp án.

Chúc xuân vui vẻ & hạnh phúc đến cộng đồng!

 

[be_09]

Các bạn có thể tự bổ sung các câu hỏi & đáp án.

Chúc xuân vui vẻ & hạnh phúc đến cộng đồng!

Khi nhấp nút tính điểm thì cho nó hiện kết quả đúng vào Label để người chơi biết đáp án nào là chính xác để còn mở mang kiến thức.

 

[Hoang2013]

Vậy thì thêm vài dòng lệnh cho macro như sau:

Private Sub CmdTD_Click()         '<=| Tên Macro Cần Thêm Lệnh'
 Dim Msg As String      '* *'

 If IsNumeric(Me!cbTL.Text) Then
    If CInt(Me!cbTL.Text) = Cells(Dg + 1, "J").Value Then
        Me!tbDiem.Value = Me!tbDiem.Value + 4
        Msg = "Tiép & Chúc May!"            '* *'
    Else
        Me!tbDiem.Value = Me!tbDiem.Value - 3
        Msg = "Chính Xác Là: " & Cells(Dg + 1, "J").Value   '* *'
    End If
 Else
    If Me!cbTL.Text = Cells(Dg + 1, "J").Value Then
        Me!tbDiem.Value = Me!tbDiem.Value + 4
        Msg = "Tiép & Chúc May!"            '* *'
    Else
        Me!tbDiem.Value = Me!tbDiem.Value - 3
        Msg = "Chính Xác Là: " & Cells(Dg + 1, "J").Value   '* *'
    End If
 End If
 MsgBox Msg, , "GPE.COM"                    '*'
 CmdBD_Click
End Sub