2. CODE L NH PRIVATE SUB CMDQUAYLAI_CLICK() DIM I AS BYTE CHECK1(2)....

Private Sub cmdquaylai_Click()

Dim i As Byte

Check1(2).Value = 0

Check1(3).Value = 0

Check1(4).Value = 0

Check1(5).Value = 0

If orderno > 1 Then

orderno = orderno - 1 ' tro ve cau trac nghiem truoc

End If

lbl1(0).Caption = "Câu" & CStr(orderno) & ":"

lbl1(1).Caption = Toan(question(orderno), 1)

lbl1(2).Caption = Toan(question(orderno), 2)

lbl1(3).Caption = Toan(question(orderno), 3)

lbl1(4).Caption = Toan(question(orderno), 4)

lbl1(5).Caption = Toan(question(orderno), 5)

For i = 2 To 5

If UCase(Trim(Toan(orderno, 6))) = Left(UCase(Trim(lbl1(i).Caption)), 1) Then

'danh dau vao dap an dung

K IL O B O O K S .C O M

Check1(i).Value = 1

Next i

End Sub

Private Sub cmdthoat_Click()

Unload Me

Private Sub cmdtiep_Click()

If orderno < totals Then

orderno = orderno + 1 ' tro ve cau dap an truoc

Check1(i).Value = 1

Private Sub Form_Load()

Dim nsent As Integer

lbl1(0).Caption = "Câu" & CStr(orderno) & ":"