化学考试系统程序开发应用研究

[摘要] 根据中等职业学校学生的学习基础情况,开发适合中等职业学校学生化学考试系统。本文主要阐述化学考试系统设计思想、主要功能和结构,并给出了主要功能模块部分代码。

[关键词] 职业学校 化学考试 考试系统

一、考试系统设计思想

为了进行考试方法改革和考试手段改革,向无纸化考试迈进,设计开发了一个适合中等职业学校学生化学考试的考试系统。考试分为客观试题和主观试题两大部分,客观试题有判断题和选择题两部分,客观试题由计算机自动阅卷,主观试题由教师调出学生答卷,根据评分标准,按步骤赋分。

二、考试系统结构

三、系统开发环境及应用环境

系统采用Visual Basic可视化编程语言,在WINDOWS XP及以上环境运行。

四、系统主要模块代码示意

1.判断题模块代码:

Public tj As String

Public pd1, pd2, pd3, pd4, pd5, pd6, pd7, pd8, pd9, pd10 As Integer

Private Sub Cmdpdt1_Click()

Cmdpd1.Picture = LoadPicture("\\hx\\tp.jpg")

txtpd1.text = "原子中电子数目决定了元素的种类。"

txtth2.text = "1"

tj= "tj1"

End Sub

……

Private Sub cmdzq_Click()

Select Case tj

Case " tj1"

pd1 = 0

Case " tj2"

pd2 = 0

.

.

.

Case " tj10"

pd10 = 1

End Select

End Sub

Private Sub cmdcw_Click()

Select Case tj

Case " tj1"

pd1 = 1

Case " tj2"

pd2 = 1

.

.

.

Case " tj10"

pd10 = 0

End Select

End Sub

2.化学选择题模块代码:

Private Sub Cmdxzt1_Click()

Cmdxzt1.Picture = LoadPicture("\\hx\\tp.jpg")

txtxztm.Text = "同位素的特点是。"

txtxzth.Text = "1"

txtxztdan1.Text = "A.不同元素,有相同的质量数"

txtxztdan2.Text = "B.不同的元素,有相同的电子数"

txtxztdan3.Text = "C.同一元素,有不同的中子数"

txtxztdan4.Text = "D.同一元素,有不同的电子数"

m= 1

End Sub

……

Private Sub txtxztdan3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

Select Case m

Case 1

xzt1 = 1

Case 2

xzt2 = 0

.

.

.

Case 20

xzt20 = 0

End Select

End Sub

……

3.计算题模块代码:

将计算结果输入到richtextbox1中。

Private Sub hxjst1_Click()

Dim temp As String

Open "\\hx\\hxjst1.txt" For Input As #1

temp = StrConv(InputB(LOF(1), #1), vbUnicode)

richtextbox1.Text = temp

richtextbox1.SetFocus

Close #1

End Sub

Private Sub edittext1_Change()

Close #1

Open "\\hx\\cxsj1.txt" For Output As #1

Print #1,richtextbox1.Text

Close #1

End Sub

五、结束语

化学考试系统开发与实现,在教学中应用,能够丰富考试形式,促进考试方法改革。同时,有助于教学管理科学化、规范化,以便能公开、公平、公正、客观地考查学生的学习效果。

本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文