cham diem trac nghiem bang camera

Tạo chương trình trắc nghiệm bằng Acess

Tạo chương trình trắc nghiệm bằng Acess

Ngày tải lên : 18/09/2013, 00:10
... Sub Private Sub cmdKetQua_Click() Dim nTongDiem As Byte, rs As Recordset Set rs = Me.Recordset nTongDiem = 0 With rs .MoveFirst While Not .EOF nTongDiem = nTongDiem + IIf(!DapAnDuocChon = !DapAnDung, ... 0) .MoveNext Wend .MoveFirst End With MsgBox "Tổng số điểm đạt được là: " & nTongDiem, vbInformation, Me.Caption Set rs = Nothing End Sub Bảng 1: Cấu trúc bảng NganHangCauHoi Field...
  • 3
  • 690
  • 10

Xem thêm