Trắc nghiệm tổng hợp

Trắc nghiệm tổng hợp

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

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

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

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

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

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

Toán họcLịch sử

Hướng dẫn

Giao Diện Form Frmchinh

Code Form frmchinhPrivate Sub dabong_Click()

Dim g

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

End Sub

Private Sub gt_Click()

y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1)

frmchinh.Caption = y + x

End Sub

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

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

Private Sub Optchon_Click(Index As Integer)

Select Case Index

Case 0: ketqua(lt) = "A"

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

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

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

Private Sub cmdtiep_Click()

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

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

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"

Màn hình Form FrmVănhọc

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

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

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

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

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

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

Private Sub Optchon_Click(Index As Integer)

Select Case Index

Case 0: ketqua(lt) = "A"

Code 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

Private Sub cmdkq_Click()

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

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

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:

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

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

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

Private Sub Optchon_Click(Index As Integer)

Select Case Index

Case 0: ketqua(lt) = "A"

Code Frorm FrmHướngdẫn

Private Sub Cmdthoat_Click()

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 bạn thành công !" + 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"

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

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

Private Sub dabong_Click()

Private Sub mnuthoat_Click()

Code form frmnghenhạc:Tình xin chẳng phai

Private Sub dabong_Click()

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

Code form frmnghenhạc:xa vắng

Private Sub dabong_Click()

frmchinh.Caption = y + x

End Sub

MỤC LỤC

A Phần mở đầu 1

I Lý do chọn đề tài 1

II Mục đích và nhiệm vụ nghiên cứu 1

III Đối tượng nghiên cứu 2

IV Phương pháp nghiên cứu 2

V Đóng góp đề tài 3

B Phần nội dung 3

I Biểu đồ phân cấp chức năng 5

II Biểu đồ luồng dữ liệu 5

Giao diện form Frm chính 8

Code form Frm chính 13

Màn Form Frm toán 13

Code form Frm Toán 20

Màn hình Form Frm Vật lý 21

Code Form Frm Vật lý 28

Màn hình Form Frm Văn học 29

Code form Frm Văn học 31

Màn hình Form Frm Lịch sử 33

Code Form Frm Lịch sử 37

Màn hình Form Frm Hướng dẫn 38

Code Form Frm Hướng dẫn 39

Màn hình Form Frm Game: Chinh phục ái tình 39

Code Form Frm Chinh phục ái tình 43

Màn hình Form Frm Game: Pikachu 44

Code Form Frm: Pikachu 48

Màn hình Form Nghe nhạc: Tình xin chẳng phai 48

Code Form Frm Tình xin chẳng phai 48

Màn hình Form Nghe nhạc: Xa vắng 49

Code Form Frm Xa vắng 51