Trắc nghiệm kiến thức Trung học phổ thông (THPT)

Trắc nghiệm kiến thức Trung học phổ thông (THPT)

Lời Giới Thiệu

Để giúp các em học sinh THPT kiểm tra kiến thức của mình đồng thời giúp các em làm quen với phương pháp thi mới ,phương pháp thi trắc nghiệm.

Đó là phương pháp đổi mới trong giáo dục nước ta, phương pháp này vừa đưa vào kỳ thi ĐH, CĐ ở bộ môn tiếng Anh và tiến tới đưa vào ở tất các bộ môn.

Đây là phương pháp có tính ưu điểm cao số đông thich hợp với quá trình dạy học và đem lại hiệu quả.Có thể sử dụng phương pháp trác nghiệm hoàn toàn hoặc trắc nghiệm và tự luận Có thể sử dụng dạng có nhiều chọn lọc, dạng câu hỏi đúng sai, dạng câu hỏi ghép đôi, dạng điền khuyết Tùy từng môn học và giờ học cụ thể mà sử dụng các dạng thích hợp để đạt hiệu quả tốt.

Trắc nghiệm khách quan là một trong những phương pháp dùng để kiểm tra đánh giḠtố nhất với moii tri thức Số đông phương pháp này trong giờ dạy

và học cũng là một cách đổi mới trong nội dung dạy học theo phương pháp mới nhằm thực hiện mục tiêu giáo dục chung trong toàn quốc.

Chính vì vậy chung em đã thiết kế chương trình “Trắc nghiệm kiến thức

THPT” dựa trên ngôn ngữ Visual Basic Visual Basic là một công cụ phát triển

phần mềm, nhưng điểm lợi của nó so với các ngôn ngữ lập trình khác là tiết kiệm thời gian công sức hơn nữa trong lúc xây dựng một ứng dụng.

Trong thêi gian làm đề tài em đã nhận được sự giúp đỡ, góp ý của Thầy giáo hướng dẫn: Lê Đức Khiêm, các thầy cô giáo dạy bộ môn Tin học Trườg CĐSP Hà Tây Chương trình cơ bản đã được hoàn thành nhưng do thời gian và trình độ bản thân còn nhiều hạn chế nên không thể tránh khỏi những thiếu sót, khiếm khuyết Vì vậy em rất mong được sự đánh giḠgóp ý của các thầy cô và các bạn để em có thể hoàn thiện tốt hơn đề tài của mình.

Em xin chân thành cảm ơn thầy giáo Lê Đức Khiêm đã tận tình hướng dẫn và giúp đỡ em rấtt nhiều trong thời gian làm đề tài.

1

A Phần mở đầu

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

Với mục đích tìm hiểu trình độ kiến thức học sinh, khả năng tiếp thu bài trong các giờ học, tìm hiểu khả năng tự học của học sinh, điều tra khả năng kết hợp học đi đôi với hành trong quá trình dạy học, tìm hiểu kỹ năng nhanh nhạy sáng tạo của học sinh

Phương pháp thi trắc nghiệm giúp học sinh tự kiểm tra đánh giá lực học, năng lực nhận thức của mình và củng cố lại kiến thức để các kỳ thi đạt kết quả cao hơn với chất lượng tốt hơn.

Chương trình trắc nghiệm kiến thức THPT là kêt quả thu được từ việc nghiên cứu, tìm hiểu quá trình dạy và học ở trường THPT Tam Hiệp

Xuống trường tìm hiểu thực tế gần gũi với học sinh hiệu được tâm lý và khả năng nắm bắt kiến thức của học sinh từ đó rút ra được những kinh nghiệm cần thiết thấy được kết quả khả thi của phương pháp trắc nghiệm có thể sử dụng thành công trong việc dạy và học.

Đề tài trắc nghiệm kiến thức THPT góp phần nâng cao kiến thức lập trình đồng thêi nâng cao,kiến thức và kinh nghiệm trong quá trình nghiên cứu một đề tài khoa học.

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

1 Định hướng đặt ra

Tìm hiểu khả năng nắm bắt kiến thức của học sinh THPT bằng phương pháp trắc nghiệm Nếu thành công sẽ ứng dụng vào thực tế cụ thể ở trường THPT Tam Hiệp nói riêng và cho nhiều trường THPH khác.

2 Nhiệm vụ cụ thể cần tiến hành

+ Nghiên cứu chuẩn bị trước khi làm: chuẩn bị các bài tập, các mảng đề tài khác nhau của từng môn học, chuẩn bị phương ¸án thành công và không

2

thành công, tìm hiểu tâm lý và hứng thú của học sinh THPT, số đông phương pháp trắc nghiệm trong từng giờ học cụ thể.

+ Thu thập các thông tin trong sách báo liên quan đến đề tài, xem ở hiệu sách, mượn của bạn bè những tài liệu liên quan.

3 Cài đặt

Bạn vào thư mục “ Package” tìm đến file setup.exe rồi cài đặt ra Để chạy chương trình đã cài đặt bạn vào Start rồi vào Trắc nghiệm kiến thức để chạy chương trình.

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

Nghiên cứu trình độ kiến thức của học sinh trường THPT Tam Hiệp Phúc Thọ -Hà Tây.

Phạm vi nghiên cứu: tất cả các môn học ở trường THPT Tam Hiệp Hoàn thành quá trình nghiên cứu ứng dụng đè tài vào thực tế.

- Giớ thiêụ khoa häc: số đông phương pháp trắc nghiệm vào quá trình dạy

và học lấy học sinh làm trung tâm để thấy được khả năng chủ động tích cực sáng tạo của học sinh.

Số đông phương pháp trắc nghiệm vào quá trình dạy và học để thấy được khả năng tổng hợp kiến thức của học sinh THPT từ đó có phương pháp dạy hocc cầnn thiết với khả năng nhận thức của học sinh THPT.

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

Phương pháp tìm hiểu thực tế, phương pháp nghiên cứu tìm hiểu tài liệu, xuống trường Phổ thông tìm hiểu thực tế, hứng thú, khả năng tu duy của học sinh THPT.

Nghiên cứu tài liệu liên quan, nghiên cứu ¸sách báo, lý luận có liên quan đến tài.

3

V Đóng góp của đề tài

Trong giờ hoc số đông phương pháp trắc nghiệm táo hứng thú cho hoc sinh và thu được hiệu quả cao trong quá trình dạy học.

Phương pháp trắc nghiệm số đông trong dạy học có tính khả thi cao.

Qua điều tra và ứng dụng vào thực tế só đông phương pháp này vào giờ hoc nhằm phân loại được học sinh nắm bắt được trình độ kiến thức, trình độ

nhận thức của tổng loại học sinh từ đó đề ra phương pháp dạy và hoc tốt nhất.

Ứng dụng phương pháp trắc nghiệm vào dạy học giúp quá trình dạy học

B Phần nội dung

Chương I:phân tích thiết kế hệ thống

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

Hình 1 : biểu đồ phân cấp chức năng của chương trình

4

h Văn Hoc

KểmTra Elgish Tin Học

QUẢN LÝ TRẮC NGHIỆM

Thoát Khoa Tự Nhiên

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

Các biểu đồ luồng dữ liệu có tác dụng mô tả sự hoạt động của hệ thống quản lý.

Chú thích:

Tác nhân ngoài: là một người,hay nhóm ngưòi

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.

Hình 2 Biểu đồ luồng dữ liệu mức khung cảnh

5

ban giám hiệu

Quản lý trắc nghiệm

Hình 3: Biểu đồ luồng dữ liệu mức đỉnh của hệ thống

2.Luồng dữ liệu mức dưới đỉnh

a.Chức năng “Trắc nghiệm ở khoa Tự Nhiên”:

gồm các chức năng con Toán,lý Hoá,Sinh

6

Ban giám hiệu Học Sinh

Giáo viên Đáp án

Hình 4 Biểu đồ luồng dữ liệu mức dưới đỉnh của chức năng "Trắc nghiệm khoa

tự nhiên"

7

Hình 5 Biểu đồ luồng dữ liệu mức dưới đỉnh của chức năng "Trắc nghiệm khoa

+ FrmSinh.frm

II Khoa học xã hội

Phần này là các bài trắc nghiệm về các môn khoa học xã hội như: văn học, lịch sử, địa lý

1 FrmGioithieu: Giới thiệu chương trình

Phần này giới thiệu và chương trình trắc nghiệm.

2 Frmhoatdong: Hướng dẫn sứ dụng

Phần này hướng dẫn sử dụng, hoạt động của chương trình.

V Thoát

Thoát khỏi chương trình.

2 Hoạt động của chương trình.

2.1 Form chính:frmmain.frm.

Bên phải của form là phần giới thiệu về chương trình trắc nghiệm, bên trái

là phần giới thiệu về các form trong chương trình, bạn Click chuột vào mục nào thì mục đó đỏi màu và xuất hiện dòng giới thiệu vÒ mục đó ở bên dưới.

9

Bạn có thể truy cập nhanh vào các form bằng cách nhấn chuột phải vào form chính để vào bài trắc nghiệm của môn nào đó.

2.2 Form trắc nghiệm

Đối với mỗi bài trắc nghiệm của mỗi môn bận sẽ có tùy chọn là 5

câu hay 10 câu trắc nghiệm và trong khoảng thời gian là 2 phút hay 5 phút theo lựa chọn Khi Click vào một môn sẽ có 1 form làm trắc nghiệm hiện

ra.

Chẳng hạn khi bạn Click vào form “Văn “ form hiển thị với các chức năng sau.

+ Command cău tiếp: bạn nhấn vào đây để đến câu hỏi kế tiếp.

+ Command câu trước: bạn nhấn vào đây để xem hoặc trả lời câu hỏi trước.

+ Command kết quả: bạn click vào mục này thì một hộp thoại xuất hiện yêu cầu bạn nhập tên của mình vào, tiếp đó mét hộp thoại hiện ra cho biết kết quả điểm bài trắc nghiệm của bạn,bạn nhấn OK một hộp thoại khác hiện ra hỏi bạn có muốn ghi tên vào danh sách những người đã làm bài trắc nghiệm không, bạn chọn có thì tên bạn sẽ được ghi trong khung danh sách bên cạnh.

+ Command đáp án: bạn nhấn vào đây để xem đáp án bài trắc nghiệm của bạn để kiểm tra xem mình lám đúng hay sai.

+ Command xóa danh sách: bạn nhấn vào đây để xóa khái danh sách những người đã làm bài trắc nghiệm.

+ Command thêm: bạn có thể thêm những câu hỏi để chương trình thêm phong phú khi bạn nhấn vào nút này.

+ Command thoát: bạn nhấn vào đây để kết thúc bài trắc nghiệm để trở về chương trình chính, bạn có thể làm tiếp bài trắc nghiệm các môn khác.

10

Chương II: Nội dung chính

1 Tập tin văn bản *.Txt

Các câu hỏi trắc nghiệm được soạn sẵn trong một tập tin văn bản (ví dụ như: Toan.txt, Vatly.txt ) Mọi câu trăc nghiệm chiếm 6 dòng trong tập tin (1 câu hỏi, 4 cách lựa chọn và một đáp án ).

Số đông chương trình Notepad trong Windows hay bất kỳ một trình soạn thảo văn bản nào khác để tạo tập tin *.Txt(ví dụ như: Toan.txt, Hoa.txt ) lưu danh sách câu trắc nghiệm với nội dung như sau, với tệp Toan.txt:

Giao điểm của 3 đường cao là:

A Trọng tâm

B Trực tâm

C Tâm đường tròn ngoại tiếp

D Tâm đường tròn nội tiếp

2 Module của chương trình: Mymodule

Public totals, counts As Integer 'khai bao bien toan cuc

Public question(20) As Byte 'Mang luu so hieu cac cau da ra

Public sentence(20, 6) As String 'Mang chua noi dung 20 cau trac nghiem

Public orderno, curnum, grade, sumsent As Integer

Public Dialy(20, 6) As String

Public English(20, 6) As String

Public Hoa(20, 6) As String

Public Lichsu(20, 6) As String

Public Vatli(20, 6) As String

Public Vanhoc(20, 6) As String

11

Public Toan(20, 6) As String

Public Sinhhoc(20, 6) As String

Public Tinhoc(20, 6) As String

3 Form chính: Frmmain.frm

3.1 Thiết kế

+ Thiết kế menu: Chọn lệnh Tools  Menu Editor

+Thiết kế Statusbar: Chọn lệnh Project  components Nhập trang Controls, đánh dấu chọn Microsoft Windows Common Controls 6.0 để thêm điều khiển Status bar vào Toolbox.

3.2 Code lệnh của Form này:

Private Sub cau_Click(Index As Integer)

Select Case Index

Private Sub cau1_Click(Index As Integer)

Select Case Index

Select Case Index

Private Sub cau3_Click(Index As Integer)

Select Case Index

Private Sub cau4_Click(Index As Integer)

Select Case Index

Private Sub cau5_Click(Index As Integer)

Select Case Index

Private Sub cau6_Click(Index As Integer)

Select Case Index

Select Case Index

Case 0: totals = 5

cau7(0).Checked = True

cau7(1).Checked = False

Case 1: totals = 10

cau7(0).Checked = False

cau7(1).Checked = True

End Select

End Sub

Private Sub cau8_Click(Index As Integer)

Select Case Index

Case 0: totals = 5

cau8(0).Checked = True

cau8(1).Checked = False

Case 1: totals = 10

cau8(0).Checked = False

cau8(1).Checked = True

End Select

End Sub

Private Sub F_Click(Index As Integer)

Select Case Index

Case 0: Frmtoan.Show ‘

Case 1: Frmly.Show ’

Case 2: Frmhoa.Show

Case 3: frmsinh.Show

Case 4: Frmvan.Show

Case 5: Frmsu.Show

Case 6: Frmdia.Show

Case 7: Frmtin.Show

Case 8: Frmenglish.Show ’

End Select Frmmain.Hide End Sub Private Sub Form_Load() Timer1.Interval = 100 Label1.Caption = " Chào mừng các bạn đến với chương trình trắc nghiệm kiến thức THPT " _ & "Chương trình được thực hiện dưới sự hướng dẫn của Thầy giáo Lê Đức Khiêm " _ & "và sinh viên Nguyễn Thị Xuyến_Lớp Tin 27A." _ & "Chương trình còn chưa thựt sự đầy đủ rất mong được sự góp ý của thầy cô và các bạn " _ & "Để chương trinh hoạt thiên hơn Xin chân thành cảm ơn !!! " _ & "Mọi sự góp ý xin gửi về: Nguyễn Thị Xuyến_Lớp Tin 27A hoặc " _ & "Sao_choi_x @gmail.com" Close 2

totals = 10 'tong so cau trong bai trac nghiem counts = 5 'So thoi gian lam bai toi da (phut) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 15

'nut trai chuot

Private Sub ktdia_Click()

Frmdia.Show ’ Hiện form địa

End Sub

Private Sub ktenglish_Click()

Frmenglish.Show ’ Hiện form english

End Sub

Private Sub kthoa_Click()

Frmhoa.Show ’ Hiện form hoá

End Sub

Private Sub ktly_Click()

Frmly.Show ’ Hiện form lý

End Sub

Private Sub ktsinh_Click()

frmsinh.Show ’ Hiện form sinh

End Sub

Private Sub ktsu_Click()

Frmsu.Show ’ Hiện form sử

End Sub

Private Sub kttin_Click()

Frmtin.Show ’ Hiện form tin

End Sub

Private Sub kttoan_Click()

Frmtoan.Show ’ Hiện form toán

End Sub

Private Sub ktvan_Click()

Frmvan.Show ’ Hiện form văn

End Sub

Private Sub lbl2_Click(Index As Integer)

Dim xh As String

xh = Chr(13) & Chr(10)

On Error Resume Next

'phan biet index cua lable de thuc thi chuc nang tuong ung

Select Case Index

txt1.Text = " Đây là form trắc nghiệm kiến thức môn Tiếng Anh ở trường THPT " Case 5:

txt1.Text = " Form này là form Giải trí, bạn có thể nghe nhạc hoặc chơi game "

Private Sub mnuexit_Click()

If MsgBox("Ban co muon thoat khong?", vbOKCancel, "Thong bao") = vbOK Then Unload Me

Private Sub mnuhoatdong_Click()

frmhoatdong.Show ’ Hiện form hoạt động

End Sub

Private Sub mnunhac_Click()

frmcanhac.Show ‘Hiện form ca nhạc

End Sub

Private Sub phut_Click(Index As Integer)

Select Case Index

Case o: counts = 2 ’ Thêi gian làm bài la 2 phút

phut(0).Checked = True ’ Bật dấu chọn trước tùy chọn 2 phút

phut(1).Checked = False ’ Tăt dấu chọn trước tùy chọn 5 phút

Case 1: counts = 5 ’ Thời gian làm bài là 5 phút

phut(0).Checked = False ’ Tắt dấu chọn trước tùy chọn 2 phút

phut(1).Checked = True ’ Bật dấu chọn trước tùy chọn 5 phút

End Select

End Sub

Private Sub phut1_Click(Index As Integer)

Select Case Index

Private Sub phut2_Click(Index As Integer)

Select Case Index

Private Sub phut3_Click(Index As Integer)

Select Case Index

End Select

End Sub

Private Sub phut4_Click(Index As Integer)

Select Case Index

Private Sub phut5_Click(Index As Integer)

Select Case Index

Private Sub phut6_Click(Index As Integer)

Select Case Index

Private Sub phut7_Click(Index As Integer)

Select Case Index

Private Sub phut8_Click(Index As Integer)

Select Case Index

+ Frame: Nhóm các đối tượng có cùng thuộc tính

+ Option button: Tích câu trả lời đúng

+ Command: nứt lệnh

+ Lable: Ghi tựa đề, hiện câu hỏi và câu trả lời

+ Listbox: hiện danh sách những người đã làm bài trắc nghiệm

20

4.2 Code lệnh của form :

Option Base 1 'chi so mang bat dau tinh tu 1, thay vi tu 0

Dim result(10) As String * 1 'Mang luu ket qua lam bai

Dim ntest, nduplicate

Dim s As String

Dim i, j, ncount As Integer

Dim nameofper

Dim LUU, kq

Dim ghi As Integer

Private Sub cmddapan_Click()

frmdapantoan.Show

End Sub

Private Sub cmdds_Click()

Open App.Path & "\KetquaToan.txt" For Output As 2 'xoa noi dung tep tin

ketquaenglish

Close 2 'dong tep

List1.Clear 'xoa danh sach can luu trong list1

'neu khong thi khi an cmdxoa no se xoa trong tap tin ma van con danh sach hien ra trong list

End Sub

21

Private Sub cmdketqua_Click()

nameofper = InputBox("Nhap ten cua ban:", "Thong bao")

For i = 1 To totals 'Cong diem cac cau trac nghiem

If result(i) = UCase(Toan(question(i), 6)) Then 'Neu tra loi dung

grade = grade + (10 / totals)

End If

Next i

MsgBox "Diem so ban dat duoc :" & CStr(grade) & Chr(13) & Chr(10) & "Nhan OK

de ket thuc."

'mo hop thoai hoi xem co muon ghi vao khong

ghi = MsgBox("Ban co muon ghi ten minh vao danh sach khong?", vbYesNo, "Luu ten

")

Select Case ghi

Case vbYes:

Open App.Path & "\KetquaToan.txt" For Append As 2

'Luu ten nguoi lam va ket qua lam bai, thoi gian lam bai

LUU = nameofper & " Điểm đạt đợc:" & CStr(grade) & ", " & CStr(Hour(Time)) &

":" & CStr(Minute(Time)) & ":" & CStr(Second(Time)) & "," & Space(1) &

Private Sub cmdquaylai_Click()

If optchon(0).Value Then 'Neu option button dau tien duoc chon

result(orderno) = "A" 'Luu ket qua tra loi cua cau trac nghiem nay la A

End If

If optchon(1).Value Then 'Neu option button thu hai duoc chon

result(orderno) = "B" 'Luu ket qua tra loi cua cau trac nghiem nay la B

Select Case result(orderno)

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

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

22