开篇:润墨网以专业的文秘视角,为您筛选了一篇化学考试系统程序开发应用研究范文,如需获取更多写作素材,在线客服老师一对一协助。欢迎您的阅读与分享!
[摘要] 根据中等职业学校学生的学习基础情况,开发适合中等职业学校学生化学考试系统。本文主要阐述化学考试系统设计思想、主要功能和结构,并给出了主要功能模块部分代码。
[关键词] 职业学校 化学考试 考试系统
一、考试系统设计思想
为了进行考试方法改革和考试手段改革,向无纸化考试迈进,设计开发了一个适合中等职业学校学生化学考试的考试系统。考试分为客观试题和主观试题两大部分,客观试题有判断题和选择题两部分,客观试题由计算机自动阅卷,主观试题由教师调出学生答卷,根据评分标准,按步骤赋分。
二、考试系统结构
三、系统开发环境及应用环境
系统采用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浏览器用户请先下载安装 原版全文