đề tài chương trình trắc nghiệm tổng hợp kiến thức

Trang 1

A.Phan Mé Dau I Ly do chon dé tai

Ngày nay với sự chuyển hướng của ngành giáo dục đang chuyển dần từ 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 hành 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

Đề 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 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ươ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ủahọc sinh

Với đề tài này 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 thành 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 bài toán về quản lý trắc nghiệm mà em thực hiên

IH 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ả

+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 bài thi, chấm bài thi

+Dua ra cau hoi va dap án trả lời chính xác

Trang 2

HI Đối tượng và phạm vi nghiên cứu

1 Nghiên cứu gì?

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 phươ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

2 Làm đến đâu?

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à thoá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ương,chính sách,quy chế

-Nghiên cứu chủ trương của bộ giào dục, của nhà trường -Quy chế ra đề thi và cham bai 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

Trang 3

V Đó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 đạ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ương

án loại trừ,chọn phươ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.Lợi ích cúa đề tài đỗi với bản thân

-Nắm vững và thành 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ế

Trang 4

Trac nghiém Toan Hoc vat Ly Van Hoc Lich Str Hướng Dẫn Giải Trí Thoát Game Ca nhạc

Bieu do phan cap chuc nang II Bieu do luong du lieu

Kx = = s

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

GD có trao đối thơng tin với hệ thống Chức năng xử lý làm biến đổi thông tin Luỗng đữ liệu vào 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

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 ngoài

Trang 5

Người dùng

Giao Diện Form Frmchinh

file hướng dẫn

'CDSP HA TAY

Trang 6

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", voNormalFocus) End Sub

Private Sub mnuhd_Click()

frmhuongdan.Show frmchinh.Hide End Sub

Private Sub mnuly_Click() frmvatly.Show

frmchinh.Hide End Sub

Private Sub mnusu_Click()

frmlichsu.Show frmchinh.Hide End Sub

Private Sub mnuthoat_Click()

End

End Sub

Trang 7

Dima

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

Private Sub mnutoan_Click() Frmtoan.Show

frmchinh.Hide End Sub

Private Sub mnuvan_Click() frmvanhoc.Show

frmchinh.Hide

End Sub

Private Sub mnuve_Click() Dima

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

Private Sub ol_Click()

Dim g

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

Private Sub quasong_Click() Dim g

Trang 9

Man hinh Form FrmToan

THONG BAO

Code Form FrmToan Private Sub cmdlai_Click()

If optchon(0) Value Then

ketqua(It) = "A"

End If

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

End If

If optchon(2) Value Then ketqua(It) = "C"

Trang 10

If optchon(3) Value Then ketqua(It) = "D" End If If lt > 1 Then It=It-1 Else

MsgBox ("Day la cau dau tien.")

Beep

End If

Lb12(0).Caption = "COu " & CStr(It) & ":"

Lb12(1).Caption = cau(cauhoi(It), 1) Lb12(2).Caption = cau(cauhoi(It), 2)

Lb12(3).Caption = cau(cauhoi(It), 3)

Lb12(4).Caption = cau(cauhoi(It), 4) Lb12(5).Caption = cau(cauhoi(It), 5) Select Case ketqua(It)

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()

Trang 11

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\toan.txt") = "" Then tn=1

Exit Sub End If

Trang 12

Randomize i=1 Do While i <=5 cauhoi(i) = 0 cc = Int(Rnd * socau) + | nd =0 Forj=1 Toi-1 If cauhoi(j) = cc Then nd = 1 End If Next j If nd <> 1 Then cauhoi(i) = cc ketqua(i) = "" i=it+l End If Loop diem = 0 It=1

Lb12(0).Caption = "COu " & CStr(It) & ":" Lb12(1).Caption = cau(cauhoi(It), 1)

Lb12(2).Caption = cau(cauhoi(It), 2) Lb12(3).Caption = cau(cauhoi(It), 3) Lb12(4).Caption = cau(cauhoi(It), 4) Lb12(5).Caption = cau(cauhoi(It), 5) Select Case ketqua(It)

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

Trang 13

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(It) = "A" Case 1: ketqua(It) = "B"

Case 2: ketqua(It) = "C" Case 3: ketqua(It) = "D"

End Select End Sub

Private Sub Timerl_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(Labell.Caption, 1)

Trang 14

y = Right(LabellI.Caption, Len(Label1.Caption) - 1) Labell Caption = y + x End Sub Màn hình Form FrmVậtlý Code Form FrmVậtlý Option Explicit Option Base |

Dim cau(15, 6) As String

Trang 15

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 It, cc, diem, socau As Integer Dim ten

Private Sub cmdkq_ClickQ)

Fori=1To5

If ketqua(i) = UCase(cau(cauhoi(i), 6)) Then

diem = diem + 2 End If

Next i

Open App.Path & "ket quaketqua” & 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

Trang 16

Private Sub cmdtiep_Click()

ketqua(It) = "A" End If

End If

ketqua(It) = "C"

End If

If optchon(3) Value Then ketqua(It) = "D"

End If

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 It=It+1 Else

MsgBox ("Day la cau cuoi cung.")

Beep

End If

Lb12(1).Caption = cau(cauhoi(It), 1) Lb12(2).Caption = cau(cauhoi(It), 2) Lb12(3).Caption = cau(cauhoi(It), 3) Lb12(4).Caption = cau(cauhoi(It), 4)

Trang 17

Select Case ketqua(It)

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(1).Value = False optchon(2) Value = False optchon(3) Value = False

End Select End Sub

Private Sub cmdlai_ClickQ) If optchon(0) Value Then ketqua(It) = "A"

End If

ketqua(It) = "C" End If

End If If It > 1 Then It=It-1

Trang 18

Else

Beep

End If

Lb12(0).Caption = "COu " & CStr(It) & ":" Lb12(1).Caption = cau(cauhoi(It), 1)

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

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

Case Else:

End Select End Sub

Trang 19

End Sub

tn=0 dem =0

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

Exit Sub End If

Trang 20

nd =0 Forj=1 Toi-1 If cauhoi(j) = cc Then nd = 1 End If Next j If nd <> 1 Then cauhoi(i) = cc ketqua(i) = "" i=it+l End If Loop diem = 0 It=1

Lb12(1).Caption = cau(cauhoi(It), 1) Lb12(2).Caption = cau(cauhoi(It), 2) Lb12(3).Caption = cau(cauhoi(It), 3) Lb12(4).Caption = cau(cauhoi(It), 4) Lb12(5).Caption = cau(cauhoi(It), 5)

Case Else

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

Trang 21

End Sub

Private Sub Optchon_Click(Index As Integer)

Select Case Index Case 0: ketqua(It) = "A" Case 1: ketqua(It) = "B"

Case 2: ketqua(It) = "C" Case 3: ketqua(It) = "D"

End Select End Sub

Private Sub Timerl_Timer() dem = dem + |

If dem >= 2 Then Call cmdkq_Click End If

End Sub

Trang 22

Man hinh Form FrmVanhoc

THONG BAO

Code Form FrmVanhoc

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

Trang 23

Private Sub cmdkq_ClickQ)

Fori=1To5

If ketqua(i) = UCase(cau(cauhoi(i), 6)) Then

Next i

Open App.Path & "ket quaketqua” & CStr(Hour(Time)) &

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

CStr(Second(Time)) Print #2, CStr(Date)

Close #2

Private Sub cmdtiep_Click()

If optchon(0) Value Then ketqua(It) = "A"

End If

If optchon(1).Value Then

Trang 24

ketqua(It) = "B" End If

ketqua(It) = "C"

End If

ketqua(It) = "D"

End If

If (optchon(0).Value = False) And (optchon(1).Value = False) And (optchon(2) Value = False) And (optchon(3) Value = False) Then

MsgBox ("Day la cau cuoi cung.")

Beep

End If

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

Lb12(2).Caption = cau(cauhoi(It), 2) Lb12(3).Caption = cau(cauhoi(It), 3) Lb12(4).Caption = cau(cauhoi(It), 4) Lb12(5).Caption = cau(cauhoi(It), 5) Select Case ketqua(It)

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

Trang 25

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

End Sub

Private Sub cmdlai_ClickQ) If optchon(0) Value Then ketqua(It) = "A"

End If

If optchon(2) Value Then ketqua(It) = "C"

End If

ketqua(It) = "D" End If

Iflt> I Then lt=lt- I Else

Beep

End If

Trang 26

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

Case Else:

optchon(2) Value = False optchon(3) Value = False

End Select End Sub

Trang 27

tn=0 dem =0

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

Exit Sub End If

Trang 28

Next j If nd <> 1 Then cauhoi(i) = cc ketqua(i) = "" i=it+l End If Loop diem = 0 It=1

Case Else

End Select End Sub

Trang 29

Private Sub Optchon_Click(Index As Integer)

Select Case Index Case 0: ketqua(It) = "A" Case 1: ketqua(It) = "B"

Case 2: ketqua(It) = "C"

Case 3: ketqua(It) = "D" End Select

End Sub

Private Sub Timer2_Timer()

Dim x As String Dim y As String x = Left(Labell.Caption, 1) y = Right(Label1.Caption, Len(Label1.Caption) - 1) Labell.Caption = y + x End Sub

Man hinh Form Frmlichstr

Trang 30

= "LICH SU “**

Code From Frmlichstr 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

Trang 31

Private Sub cmdkq_Click() Fori=1To5

If ketqua(i) = UCase(cau(cauhoi(1), 6)) Then

Next i

Open App.Path & "ket qua\ketqua" & CStr(Hour(Time)) &

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

Print #2, CStr(Date)

Close #2

Trang 32

ketqua(It) = "C"

End If

If (optchon(0).Value = False) And (optchon(1).Value = False) And

(optchon(2).Value = False) And (optchon(3) Value = False) Then

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

End If

Case Else:

Trang 33

End Select End Sub

Private Sub cmdlai_Click()

If optchon(0) Value Then ketqua(It) = "A" End If If optchon(1).Value Then ketqua(It) = "B" End If If optchon(2).Value Then ketqua(It) = "C" End If

End If If lt > 1 Then It=It-1 Else

Beep

End If

Trang 34

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

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

End Sub

Private Sub Form_Load()

Dim cdr As Integer socau = 15

tn=0 dem =0

Trang 35

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

Exit Sub End If

Open App.Path & "\csdi\lichsu.txt" For Input As 1

Trang 36

cauhoi(i) = cc ketqua(1) = "" i=i+l End If Loop diem = 0 It=1

Lb12(1).Caption = cau(cauhoi(It), 1) Lb12(2).Caption = cau(cauhoi(It), 2) Lb12(3).Caption = cau(cauhoi(It), 3) Lb12(4).Caption = cau(cauhoi(It), 4)

Case Else

optchon(2) Value = False optchon(3) Value = False

End Select End Sub

Private Sub Optchon_Click(Index As Integer) Select Case Index

Trang 37

Case 0: ketqua(It) = "A" Case 1: ketqua(It) = "B" Case 2: ketqua(It) = "C" Case 3: ketqua(It) = "D" End Select End Sub

End Sub

Trang 38

Code Frorm FrmHướngdẫn

Private Sub Cmdthoat_Click() frmchinh.Show

Unload Me

End Sub

Private Sub Form_Load() Dim st As String

st = Chr(13)

st=st+"

+Chr(13)

Trang 39

st = st + Chr(13)

st=st+" Ban hay chon 1 trong các mục Toán, Vậtlý,Văn học,Lịch sử Trên menu Trắc” +Chr(13)

st=st+" Nghiém" + Chr(13)

st=st+" Chương trình sẽ đưa ra 5 câu hỏi ngẫu nhiên,mỗi câu hỏi có 4 phương án trả " + Chr(13)

st=st+" loi." + Chr(13)

st=st+" Bạn hãy chọn một Phương án trả lời đúng rồi đánh dấu vào ô tương ứng trong 4" + Chr(13)

st=st+" ở A,B,C,D phía dưới.+ Chr(13)

st=st+" Bạn phải suy nghĩ và thao tác thật nhanh vì chỉ có 3 phút cho bạn hoàn thành " + Chr(13)

st=st+" các câu hỏi trên." + Chr(13)

st=st+" Chúc ban thành cong !" + Chr(13)

st = st + Chr(13) st = st + Chr(13)

st=st+" Thực hiện chương trinh :Nguyễn Thị Quý" + Chr(13) st=st+" Sinh viên Lớp Tin 27A — CĐSP Hà Tây" Label2.Caption = st

End Sub

Private Sub Timerl_Timer()

frmhuongdan.Caption = Right(frmhuongdan.Caption,

Len(frmhuongdan.Caption) - 1) + Left(frmhuongdan.Caption, 1) End Sub

Trang 40

Man hinh Form Frmgiaitri:game:Chinh phục ái tình

‘a “CDSP HA TAY*** TIN 27A"™* ^*

#7) Macromedia Flash Player 6

CHINH PHUC AI TINH

Code Form Frm giai tri:chinh phuc ai tinh

Private Sub dabong_Click() Dim g

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

Private Sub gt_Click()

Định dạng
Số trang	54
Dung lượng	14,95 MB