Đang tải... (xem toàn văn)
bài toán về quản lý trắc nghiệm
Trang 1A.Phần Mở Đầu
I Lý do chọn đề tài
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.
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 bài thi, chấm bài thi.
+Đưa ra câu hỏi và đáp án trả lời chính xác.
+Cấu trúc chương trình để xây dưng nên chương trình quản lý trăc nghiệm này.
Trang 2III Đố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:Toá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ả’.Ngoà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à 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ương trình
Trang 3V Đó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ươ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ế.
Xin chân thành cảm ơn thầy LÊ ĐỨC KHIÊM đã tận tình chỉ dạy, hướng dẫn và các bạn đã giúp đỡ tôi hoàn thành chương trình này !
Trang 4B.Phần nội dung
I Biểu Đồ Phân Cấp Chức Năng.
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ý làm biến đổi thông tin Luồng dữ 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.
Trang 51 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 6Giao Diện Form Frmchinh
Code Form frmchinh Private Sub dabong_Click()
Trang 9Code Form FrmToán Private Sub cmdlai_Click()
Trang 10Select 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
Trang 12Select 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
Trang 13Private Sub Optchon_Click(Index As Integer) Select Case Index
Case 0: ketqua(lt) = "A"
Trang 14Dim cau(15, 6) As String Dim cauhoi(5) As Byte
Trang 15Dim 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
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)) & ":" &
Trang 16If (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")
Trang 17Select 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
Trang 18MsgBox ("Day la cau dau tien.") 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
Trang 19Private Sub Form_Load()
Trang 20Select 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
Trang 21End Select End Sub
Private Sub Optchon_Click(Index As Integer) Select Case Index
Case 0: ketqua(lt) = "A"
Trang 22Code 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
Trang 23Open 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)) & ":" &
Trang 24If (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") 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
Trang 26Lbl2(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
Trang 28Select 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
Trang 29Select Case Index
Case 0: ketqua(lt) = "A"
Trang 30Code From Frmlịchsử
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
Trang 31Private Sub cmdkq_Click()
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)) & ":" &
Trang 32If (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") 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:
Trang 34Lbl2(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
Trang 35If Dir(App.Path & "\csdl\lichsu.txt") = "" Then
Trang 36Select 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
Private Sub Optchon_Click(Index As Integer) Select Case Index
Trang 37Case 0: ketqua(lt) = "A"
Trang 38Code Frorm FrmHướngdẫn
Private Sub Cmdthoat_Click()
Trang 39st = 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
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"
Trang 40Màn hình Form Frmgiaitrí:game:Chinh phục ái tình
Code Form Frm giải trí:chinh phục ái tình
Private Sub dabong_Click()
Trang 42a = Shell(" calc.exe", vbNormalFocus)
Trang 44Private Sub dabong_Click()
Trang 45Private Sub mnuthoat_Click()
Trang 47Code form frmnghenhạc:Tình xin chẳng phai
Private Sub dabong_Click()
Trang 49g = Shell("Xa vang.exe", vbNormalFocus)
Trang 50Code form frmnghenhạc:xa vắng
Private Sub dabong_Click()
Trang 53frmchinh.Caption = y + x End Sub
C.Phần Mục Lục