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

... 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...

Ngày tải lên: 18/09/2013, 00:10

3 691 10
w