化学考试系统程序开发应用研究_程序开发学什么专业

　　 [摘要] 根据中等职业学校学生的学习基础情况,开发适合中等职业学校学生化学考试系统。本文主要阐述化学考试系统设计思想、主要功能和结构,并给出了主要功能模块部分代码。
　　 [关键词] 职业学校 化学考试 考试系统
　　
　　一、考试系统设计思想
　　为了进行考试方法改革和考试手段改革,向无纸化考试迈进,设计开发了一个适合中等职业学校学生化学考试的考试系统。考试分为客观试题和主观试题两大部分,客观试题有判断题和选择题两部分,客观试题由计算机自动阅卷,主观试题由教师调出学生答卷,根据评分标准,按步骤赋分。
　　二、考试系统结构
　　三、系统开发环境及应用环境
　　系统采用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浏览器用户请先下载安装 原版全文