xây dựng chương trình thi trắc nghiệm cho học sinh sinh viên

THệ VIEN ẹIEN Tệ TRệẽC TUYEN
A.Ph n M

u

I. Lý do ch n ti
ng c a ngnh giỏo d c ang chuy n d n t

OBO
OK S
.CO
M

Ngy nay v i s chuy n h

hỡnh th c thi vi t sang thi tr c nghi m nh m nõng cao kh n ng h c t p v k n ng
th c hnh b mụn cho h c sinh cú th v n d ng nh ng ki n th c mỡnh ti p thu


c m t cỏch linh ho t v hi u qu nh t.

ti ny giỳp ớch cho vi c gi ng d y v h c t p c a giỏo viờn v h c sinh
tr

ng v k n ng, ph

ng phỏp h c t p v gi ng d y theo hinh th c h c t p

m i.Giỳp cho h c sinh v n d ng cỏc ki n th c ó h c theo nhi u cỏch t duy
nh :Ph

ng ỏn lo i tr ,ch n ph

ỏnh giỏ chớnh xỏc

ng ỏn ỳng nh t,Giỳp giỏo viờn cú th

c n ng l c v kh n ng ti p thu ki n th c c ah c sinh.

V i ti ny giỳp em cú th n m v ng h n v k n ng l p trỡnh c ng nh
s d ng cỏc lờnh x lý ch

ng trỡnh

c thnh th c h n nõng cao kh n ng c a

b n thõn v b mụn Visual basic v kh n ng v n d ng c a nú trong t ng tr

ng

h p, c th nh trong bi toỏn v qu n lý tr c nghi m m em th c hiờn.
II. M c ớch v nhi m v nghiờn c u .
-Nh ng nh h

ng t ra:

+Xỏc nh n i dung mụn h c, ph m vi ki n th c nh :cõu h i, ỏp ỏn tr
l i,..

+Kh n ng ti p thu, v n d ng c a h c sinh trong t ng mụn h c.

+Nh ng cõu h i ph i i sỏt v i ch

ng trỡnh h c c a h c sinh.

+Quy ch thi c , ra bi thi, ch m bi thi.

a ra cõu h i v ỏp ỏn tr l i chớnh xỏc.

KIL

+

+C u trỳc ch
ny.

ng trỡnh xõy d ng nờn ch

1

ng trỡnh qu n lý tr c nghi m



THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN
it

III.

Nghiên c u gì?

1.
N mđ

c n i dung và ki n th c đ xây d ng bài. Tam lý và kh n ng áp d ng

ng pháp h c tâp và thi c theo hinh th c m i c a giáo viên và h c sinh.

KIL
OBO
OKS
.CO
M

ph

ng và ph m vi nghiên c u.

Làm đ n đâu?

2.
Ch

ng trình thi t k 4 form tr c nghi m t

ng đ

ng vói 4 mơn: Tốnh c.

V t lý, V n h c,L ch s .M i đ tr c nghi m g m 5 câu, m i câu có 4 l a ch n đ
tr l i. Th i gian làm bài trong 3 phút. Khi nh p nút ‘k t qu ’ ho c h t th i gian

ch

ng trình s thơng báo k t qu bài thi và thốt v ch

ng trình chính. K t qu

bài thi s l u trong t p ‘k t qu ’. Ngồi ra h c sinh có th tham gia m t s trò gi i
trí nh ch i game,nghe nh c, đ làm gi m b t s c ng th ng trong h c t p.
IV. Ph

ng pháp nghiên c u.

1.Nghiên c u tìm hi u th c ti n.

-Tham kh o ý ki n c a m t s giáo viên và h c sinh.

-Tham kh o qua sách v v b mơn c a các mơn h c .
2.Nghiên c u lý lu n,ch tr
-Nghiên c u ch tr

ng,chính sách,quy ch ...

ng c a b giào d c, c a nhà tr

ng.

-Quy ch ra đ thi và ch m bài thi.
-Các tài li u b mơn phù h p.
3.nghiên c u tài li u.

- Sách giáo khoa, sách bài t p, sách nâng cao, m t s giáo án c a giáo viên v
b mơn mà mình th c hi n.

4.Nghiên c u cái đ t ch
V.

ng trình

óng góp c a đ tài.

1. óng góp th c t c a đ tài.

tài này giúp ích cho vi c gi ng d y và h c t p c a giáo viên và h c sinh v
k n ng, ph

ng pháp h c t p và gi ng d y theo hình th c h c t p m i. Giúp cho

h c sinh có th vân d ng các ki n th c đã h c theo nhi u cách t duy nh :ph
án lo i tr ,ch n ph
đ

ng

ng án đúng nh t…….Giúp giáo viên có th đánh giá chính xác

c n ng l c và kh n ng ti p thu ki n th c c a h c sinh.
2

THệ VIEN ẹIEN Tệ TRệẽC TUYEN
2.L i ớch c a ti i v i b n thõn
-N m v ng v thnh th o h n v ki n thỳc l p trỡnh trong h c t p v v n d ng
th c t .
ng d n v cỏc b n ó giỳp

KIL
OBO
OKS
.CO
M

Xin chõn thnh c m n th y ó t n tỡnh ch d y, h
tụi hon thnh ch

ng trỡnh ny !

3



THệ VIEN ẹIEN Tệ TRệẽC TUYEN
B.Ph n n i dung
Phõn C p Ch c N ng.

KIL
OBO
OKS
.CO
M

I. Bi u

Tr c nghi m
Toỏn H c
V t Lý
V nH c
L ch S

H

ng D n

Gi i Trớ
Game

Ca nh c

Hinh 1: Bieu do phan cap chuc nang
II. Bieu do luong du lieu

Cỏc bi u lu ng d li u cú tỏc ng mụ t s ho t ng c a h th ng
Chỳ thớch

cú trao i thụng tin v i h th ng.

Ch c n ng x lý lm bi n i thụng tin.
Lu ng d li u vo hay ra c a h th ng

N i l u tr thụng tin c n cho h th ng.

1. Bi u lu ng d li u m c khung c nh.
4

Thoỏt



THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN
Th hi n ch c n ng t ng th , các lu ng thơng tin vào, m i quan h c a h
th ng v i tác nhân ngồi.
Ng

KIL
OBO
OKS
.CO
M

L ch s

i dùng

V nh c

K t qu tr c nghi m

Ng

i dùng

V t lý

Tốn h c

H

ng d n

5

file h

ng d n



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
Giao Di n Form

KIL
OBO
OKS
.CO
M

Frmchinh

Code Form frmchinh

Private Sub dabong_Click()
Dim g

g = Shell("Chinh phuc ai tinh.exe", vbNormalFocus)
End Sub

Private Sub gt_Click()
Dim g

g = Shell("Tinh xin chang phai.exe", vbNormalFocus)
End Sub

Private Sub mnuhd_Click()
frmhuongdan.Show
frmchinh.Hide

6



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
End Sub

Private Sub mnuly_Click()

KIL
OBO
OKS
.CO
M

frmvatly.Show
frmchinh.Hide
End Sub

Private Sub mnusu_Click()
frmlichsu.Show
frmchinh.Hide
End Sub

Private Sub mnuthoat_Click()
End
End Sub

Private Sub mnutinh_Click()
Dim a

a = Shell(" calc.exe", vbNormalFocus)
End Sub

Private Sub mnutoan_Click()
Frmtoan.Show
frmchinh.Hide
End Sub

Private Sub mnuvan_Click()
frmvanhoc.Show
frmchinh.Hide

7

THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
End Sub

Dim a

KIL
OBO
OKS
.CO
M

Private Sub mnuve_Click()

a = Shell("paint.exe", vbNormalFocus)
End Sub

Private Sub ol_Click()
Dim g

g = Shell("Xa vang.exe", vbNormalFocus)
End Sub

Private Sub quasong_Click()
Dim g

g = Shell("picachu_2005.exe", vbNormalFocus)
End Sub

Private Sub Timer1_Timer()
Dim x As String

Dim y As String

x = Left(frmchinh.Caption, 1)

y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1)
frmchinh.Caption = y + x
End Sub

8



THệ VIEN ẹIEN Tệ TRệẽC TUYEN

KIL
OBO
OKS
.CO
M

Mn hỡnh Form FrmToỏn

Code Form FrmToỏn

Private Sub cmdlai_Click()
If optchon(0).Value Then

ketqua(lt) = "A"
End If

If optchon(1).Value Then
ketqua(lt) = "B"
End If

If optchon(2).Value Then
ketqua(lt) = "C"
End If
If optchon(3).Value Then

9



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
ketqua(lt) = "D"
End If

lt = lt - 1
Else

KIL
OBO
OKS
.CO
M

If lt > 1 Then

MsgBox ("Day la cau dau tien.")
Beep
End If

Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)

Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True

Case "D": optchon(3).Value = True
Case Else:

optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub

Private Sub Form_Activate()
If tn = 1 Then
frmchinh.Show

10



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
Unload Me
End If

End Sub

KIL
OBO
OKS
.CO
M

ten = InputBox("Nhap ten cua ban :", "THONG BAO ")

Private Sub Form_Load()
Dim cdr As Integer
socau = 15
tn = 0
dem = 0

If Dir(App.Path & "\csdl\toan.txt") = "" Then
tn = 1
Exit Sub
End If

Open App.Path & "\csdl\toan.txt" For Input As 1
cdr = 0

Do Until EOF(1)
cdr = cdr + 1

If cdr > socau Then
Exit Do
End If

For i = 1 To 6

Line Input #1, s
cau(cdr, i) = s
Next i
Loop
Close #1

Randomize
i=1

Do While i <= 5
11



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
cauhoi(i) = 0
cc = Int(Rnd * socau) + 1
nd = 0

KIL
OBO
OKS
.CO
M

For j = 1 To i - 1

If cauhoi(j) = cc Then
nd = 1
End If
Next j

If nd <> 1 Then
cauhoi(i) = cc
ketqua(i) = ""
i=i+1
End If
Loop
diem = 0
lt = 1

Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)

Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)

Select Case ketqua(lt)

Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True

Case "D": optchon(3).Value = True
Case Else

optchon(0).Value = False
optchon(1).Value = False
12



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
optchon(2).Value = False
optchon(3).Value = False

End Sub

KIL
OBO
OKS
.CO
M

End Select

Private Sub Optchon_Click(Index As Integer)

Select Case Index

Case 0: ketqua(lt) = "A"
Case 1: ketqua(lt) = "B"
Case 2: ketqua(lt) = "C"

Case 3: ketqua(lt) = "D"
End Select
End Sub

Private Sub Timer1_Timer()
dem = dem + 1

If dem >= 2 Then

Call cmdkq_Click
End If
End Sub

Private Sub Timer2_Timer()
Dim x As String

Dim y As String

x = Left(Label1.Caption, 1)

y = Right(Label1.Caption, Len(Label1.Caption) - 1)
Label1.Caption = y + x
End Sub

Màn hình Form FrmV tlý
13




KIL
OBO
OKS
.CO
M

THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN

Code Form FrmV tlý

Option Explicit
Option Base 1

Dim cau(15, 6) As String
Dim cauhoi(5) As Byte

Dim ketqua(10) As String * 1
Dim tn, nd

Dim s As String

Dim i, j, dem As Integer

Dim lt, cc, diem, socau As Integer

Dim ten
14



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN

Private Sub cmdkq_Click()

KIL
OBO
OKS
.CO
M

For i = 1 To 5

If ketqua(i) = UCase(cau(cauhoi(i), 6)) Then
diem = diem + 2
End If
Next i
Open

App.Path

&

"\ket

qua\ketqua"

&

CStr(Hour(Time))

&

CStr(Minute(Time)) & ".txt" For Output As 2
Print #2, ten

Print #2, "So diem cua ban la: " & CStr(diem)

Print #2, CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" &
CStr(Second(Time))

Print #2, CStr(Date)
Close #2

MsgBox "So diem cua ban la:" & CStr(diem) & Chr(13) & Chr(10) & "Nhan
OK de ket thuc."

frmchinh.Show
Unload Me
End Sub

Private Sub cmdtiep_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If

If optchon(1).Value Then
ketqua(lt) = "B"
End If
If optchon(2).Value Then

15



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
ketqua(lt) = "C"
End If
If optchon(3).Value Then

End If

KIL
OBO
OKS
.CO
M

ketqua(lt) = "D"

If (optchon(0).Value = False) And (optchon(1).Value = False) And
(optchon(2).Value = False) And (optchon(3).Value = False) Then
MsgBox ("Ban chua chon cau tra loi")
Beep
End If

If lt < 5 Then
lt = lt + 1
Else

MsgBox ("Day la cau cuoi cung.")
Beep
End If

Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)

Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True

Case "C": optchon(2).Value = True

Case "D": optchon(3).Value = True
Case Else:

optchon(0).Value = False
optchon(1).Value = False
16

THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
optchon(2).Value = False
optchon(3).Value = False

End Sub

KIL
OBO
OKS
.CO
M

End Select

Private Sub cmdlai_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If

If optchon(1).Value Then
ketqua(lt) = "B"
End If

If optchon(2).Value Then
ketqua(lt) = "C"
End If

If optchon(3).Value Then
ketqua(lt) = "D"
End If

If lt > 1 Then
lt = lt - 1
Else

MsgBox ("Day la cau dau tien.")
Beep
End If

Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
17



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
Select Case ketqua(lt)
Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True

KIL
OBO
OKS
.CO
M

Case "C": optchon(2).Value = True

Case "D": optchon(3).Value = True
Case Else:

optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub

Private Sub Form_Activate()
If tn = 1 Then

frmchinh.Show
Unload Me
End If

ten = InputBox("Nhap ten cua ban :", "THONG BAO ")
End Sub

Private Sub Form_Load()
Dim cdr As Integer
socau = 15
tn = 0
dem = 0

If Dir(App.Path & "\csdl\vatly.txt") = "" Then
tn = 1

Exit Sub
End If
18



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
Open App.Path & "\csdl\vatly.txt" For Input As 1
cdr = 0
Do Until EOF(1)

KIL
OBO
OKS
.CO
M

cdr = cdr + 1

If cdr > socau Then
Exit Do
End If

For i = 1 To 6

Line Input #1, s
cau(cdr, i) = s
Next i
Loop
Close #1

Randomize
i=1

Do While i <= 5
cauhoi(i) = 0

cc = Int(Rnd * socau) + 1
nd = 0

For j = 1 To i - 1

If cauhoi(j) = cc Then
nd = 1
End If
Next j

If nd <> 1 Then
cauhoi(i) = cc
ketqua(i) = ""
i=i+1
End If
Loop

19



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
diem = 0

lt = 1
Lbl2(0).Caption = "C©u " & CStr(lt) & ":"

KIL
OBO
OKS
.CO
M

Lbl2(1).Caption = cau(cauhoi(lt), 1)

Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)

Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True

Case "D": optchon(3).Value = True
Case Else

optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub

Private Sub Optchon_Click(Index As Integer)
Select Case Index

Case 0: ketqua(lt) = "A"
Case 1: ketqua(lt) = "B"
Case 2: ketqua(lt) = "C"

Case 3: ketqua(lt) = "D"
End Select
End Sub

20



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN

Private Sub Timer1_Timer()
dem = dem + 1

KIL
OBO
OKS
.CO
M

If dem >= 2 Then

Call cmdkq_Click

End If
End Sub

Private Sub Timer2_Timer()
Dim x As String

Dim y As String

x = Left(Label1.Caption, 1)

y = Right(Label1.Caption, Len(Label1.Caption) - 1)
Label1.Caption = y + x
End Sub

Màn hình Form FrmV nh c

21




KIL
OBO
OKS
.CO
M

THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN

Code Form FrmV nh c

Option Explicit
Option Base 1

Dim cau(15, 6) As String
Dim cauhoi(5) As Byte

Dim ketqua(10) As String * 1
Dim tn, nd

Dim s As String

Dim i, j, dem As Integer

Dim lt, cc, diem, socau As Integer
Dim ten

22



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN

Private Sub cmdkq_Click()
For i = 1 To 5

KIL
OBO
OKS
.CO

M

If ketqua(i) = UCase(cau(cauhoi(i), 6)) Then
diem = diem + 2
End If
Next i
Open

App.Path

&

"\ket

qua\ketqua"

&

CStr(Hour(Time))

&

CStr(Minute(Time)) & ".txt" For Output As 2
Print #2, ten

Print #2, "So diem cua ban la: " & CStr(diem)

Print #2, CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" &
CStr(Second(Time))

Print #2, CStr(Date)
Close #2

MsgBox "So diem cua ban la:" & CStr(diem) & Chr(13) & Chr(10) & "Nhan
OK de ket thuc."

frmchinh.Show
Unload Me
End Sub

Private Sub cmdtiep_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If

If optchon(1).Value Then
ketqua(lt) = "B"
End If

If optchon(2).Value Then
ketqua(lt) = "C"
23



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
End If
If optchon(3).Value Then

End If

KIL
OBO
OKS
.CO
M

ketqua(lt) = "D"

If (optchon(0).Value = False) And (optchon(1).Value = False) And
(optchon(2).Value = False) And (optchon(3).Value = False) Then
MsgBox ("Ban chua chon cau tra loi")
Beep
End If

If lt < 5 Then
lt = lt + 1
Else

MsgBox ("Day la cau cuoi cung.")
Beep
End If

Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)

Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)

Select Case ketqua(lt)

Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True

Case "C": optchon(2).Value = True

Case "D": optchon(3).Value = True
Case Else:

optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False

24



THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN
optchon(3).Value = False
End Select

KIL
OBO
OKS
.CO
M

End Sub

Private Sub cmdlai_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If

If optchon(1).Value Then
ketqua(lt) = "B"
End If

If optchon(2).Value Then
ketqua(lt) = "C"
End If

If optchon(3).Value Then
ketqua(lt) = "D"
End If

If lt > 1 Then
lt = lt - 1
Else

MsgBox ("Day la cau dau tien.")
Beep
End If

Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)

Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)
25