VB编程题自动评分系统的设计与实现
基于VBA技术的计算机基础自动阅卷系统的设计与实现

【 b tatT i pprpee t advlp n ni n e t nV o  ̄ edc m ns cm ue eh ooy bsdo B bsdA tm t A s c]hs ae rsns ee metevr m n B fr c ou e t o p t tcn lg, ae n V A- ae uo ai r o o i Of , r c
( .in n n Un v r i c o l f n o ma in T c n lg , 1 a g a i est S h o f r t e h oo y W J y oI o
Ja g u, 1 0 6 Chn ; in s 2 4 3 i a
2T ih u P ltc nc C l g , ih uJ a g u,2 3 0 C ia . az o o ye h i ol e e Taz o in s 2 5 0 h n )
评 分 的标 准 及 内部 过 程 , 开 放 式题 目和 表 现性 活 动 进 行 评 分 及 反 馈 O je L bay 对 be t irr ”的 E c l的 对 xe 中 的 一部 分 【 ” 。 象 库 ( 安 装 了 0 e2 0 在 mc 0 0的 E cl是 计 算 机 操 作 技 能 中最 基 本 也 是 需 要 熟 练 掌 握 的 软 件 之 计 算 机 中 是 90 xe .。而 0 e 侬c
VB答题系统制作教程

VB答题系统制作图文教程1、打开Visual Basic 6.0企业版程序,选择创建exe文件2、创建后,根据自己的需求设置窗口大小,窗口名称等属性值。
如:3、在窗口上放置四个按钮(commandButton1-4)控件、两个标签(Label1-2)控件、一个(TextBox1)控件、十个[TextBox(1-10)]控件和两个(Frame1-2)控件。
如图:控件名属性值Label1 1Label2 第题Command1 最前一题Command2 上一题Command3 下一题Command4 最后一题Option1(1) AOption1(2) BOption1(3) COption1(4) DFrame1 题目区Frame2 答题区Text1 MultiLine = true ; ScrollBars = 2 如图下:6、在所在工程文件目录下创建一个新文件夹,命名为question ; 同时再创建一个文件夹,命名为answer 。
如图:7、在question文件夹中创建文本文档,命名为1-10,题目以及选项都需输入。
8、在answer 文件中创建文本文档,命名为1-10,所对应的答案按序号入座。
9、双击窗体,输入以下代码:'______________________________________________________________________________ Private Sub Form_Load()Text1.Text = "" '卸载Text1的文本内容Dim Lstr As String '定义数据类型Open App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1 '读取文本文档Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1For i = 1 To 10Text2(i).Text = ""Next iCommand1.Enabled = False '第一题时前两个按钮失效Command2.Enabled = FalseEnd Sub'______________________________________________________________________________ Private Sub Command1_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iLabel1.Caption = 1Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = True: Command4.Enabled = TrueIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Command2_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iDim X As IntegerX = Val(Label1.Caption): X = X - 1: Label1.Caption = XIf X > 1 And X < 10 Then Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = TrueIf X = 1 Then Command1.Enabled = False: Command2.Enabled = FalseIf X = 10 Then Command3.Enabled = False: Command4.Enabled = FalseIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Command3_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iDim X As IntegerX = Val(Label1.Caption): X = X + 1: Label1.Caption = XIf X > 1 And X < 10 Then Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = TrueIf X = 1 Then Command1.Enabled = False: Command2.Enabled = FalseIf X = 10 Then Command3.Enabled = False: Command4.Enabled = FalseIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Command4_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iLabel1.Caption = 10Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = False: Command4.Enabled = FalseIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Option1_Click(Index As Integer)For i = 1 To 4Option1(i).ForeColor = vbBlackNext ia = IndexOption1(a).Value = TrueOption1(a).ForeColor = vbRedText2(Label1.Caption).Text = Option1(a).CaptionEnd Sub'______________________________________________________________________________ Private Sub Text2_Change(Index As Integer)Dim s As Integers = 0For i = 1 To 10If Text2(i).Text = "" Then Exit SubNext imessage = MsgBox("答题完毕!是否结分?", vbOKCancel, "VB答题系统")If message = vbOK ThenFor i = 1 To 10Open App.Path + "\answer\" & i & ".txt" For Input As #1Line Input #1, LstrIf Text2(i).Text = Lstr Thens = s + 10End IfClose #1Next iEnd IfMsgBox "得分" & sendEnd Sub'______________________________________________________________________________ 10、测试运行。
自动评分程序

自动评分程序设计一个由计算机来当小学低年级学生算术老师的VB应用程序,要求给出一系列的两个1~9数的四则运算的算术题,学生输入该题的答案,计算机根据学生的答案判断正确与否,并给出成绩,单击出题命令按钮,开始答题,输入答案后按回车键即可继续答下一题,单击结束命令按钮,退出应用程序。
1、用到的控件:1个PictureBox控件,1个Timer控件,2个CommandButton 控件,5个Label控件,5个TextBox控件,1个Frame控件。
2、运行界面:3、答题过程的界面:4、详细代码:Option ExplicitDim X As Integer, Y As Integer, js As Integer, arr, a As String Public cuo As Integer, zq As Integer, sum As Integer, k As String Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()RandomizeX = Int((9 * Rnd) + 1)Y = Int((9 * Rnd) + 1)k = arr(Int(Rnd * 4))Select Case kCase "+"js = X + YCase "-"If Y > X Then a = X: X = Y: Y = ajs = X - YCase "×"js = X * YCase ElseIf Y > X Then a = X: X = Y: Y = ajs = X / YEnd SelectLabel1.Caption = Trim(Str(X)) & k & Trim(Str(Y)) & "="Text1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()arr = Array("+", "-", "×", "÷")Text2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Label1.Caption <> "" Thensum = sum + 1If V al(Text1.Text) = js Thenzq = zq + 1Picture1.Print Label1.Caption & V al(Text1.Text) & " " & "√" ElsePicture1.Print Label1.Caption & V al(Text1.Text) & " " & "×" cuo = cuo + 1End IfText2.Text = sumText3.Text = zqText4.Text = cuoText5.Text = Format(Str(zq / sum) * 100, "0.00") & "%" Command2_ClickEnd IfKeyAscii = 0End IfEnd Sub。
VBA的OFFICE操作题自动批阅技术的实现

VBA的OFFICE操作题自动批阅技术的实现唐学军【摘要】"Fundamentals of Computer Application," is one of the more important basic education classes, students learn that it is mainly to allow students to better grasp the Word, Excelland other basic work used in more applications. However, most of these applications run in VBA programming. However, when the end of the student teacher test, marking papers become their problem. On the one hand, OFFICE larger amount of operating problems, more objective questions, there is no uniform measure;other papers of these operations when the theme marking the workload is relatively large, low teacher marking efficiency. This paper will present the reasons for the development of VBA OFFICE operating problems automatically marking technology and simple exposition universities now use automatic marking technology and its principles, the last of the VBA OFFICE operation of an automatic marking simple programming.%《计算机应用基础》是我国高等教育中比较重要的基础课之一,学生学习它主要是为了让学生更好的掌握Word,Excel等最基本、工作中使用较多的应用程序。
基于vb的学生成绩管理系统设计与实现

基于VB的学生成绩管理系统设计与实现【1】简介学生成绩管理系统是一种能够帮助学校和老师管理学生成绩信息的工具。
通过该系统,可以方便地录入、查询、统计学生成绩,为学校和老师提供了高效便捷的管理方式。
本文将重点讨论基于VB的学生成绩管理系统的设计与实现。
【2】系统需求分析(1)功能需求学生成绩管理系统需要包括学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。
系统需要具有数据安全性和稳定性,能够保证学生成绩信息的准确性和完整性。
(2)性能需求系统需要能够实现快速的数据录入和查询,响应速度要较快。
系统需要支持大量数据的存储和处理,能够满足学校成绩管理的实际需求。
(3)界面需求系统的界面设计应简洁美观,操作要简单易懂,能够方便老师和管理员进行使用。
【3】系统设计(1)数据库设计设计学生成绩管理系统的数据库结构,包括学生信息表、成绩信息表和其他相关信息表。
需要考虑数据表的关联性和索引,以提高数据检索和统计的效率。
(2)界面设计通过VB的界面设计工具,设计系统的用户界面。
采用直观的界面布局和人性化的操作方式,使用户能够方便地进行各项操作。
(3)功能模块设计根据系统需求,划分出学生信息管理模块、成绩信息管理模块、成绩查询模块、成绩统计模块和报表打印模块。
设计各个功能模块的具体实现方式,并确保模块之间的协调和配合。
【4】系统实现(1)数据库连接与操作在VB中使用ADO技术,进行与数据库的连接和操作。
通过VB代码编写,实现对学生成绩数据库的增删改查等操作,确保数据的准确性和完整性。
(2)界面实现利用VB的窗体和控件设计,实现系统的用户界面。
包括各个功能模块的窗体设计和按钮控件的添加,使用户能够方便地进行各项操作。
(3)功能实现通过VB的编程语言,实现学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。
确保系统的稳定性和高效性,满足学校成绩管理的实际需求。
【5】个人观点与总结基于VB的学生成绩管理系统的设计与实现是一个综合性的工作,需要考虑到功能、性能和界面等多方面的需求。
自动组卷及评分系统的设计与实现

自动组卷及评分系统的设计与实现摘要:利用vb语言开发了一个自动组卷及评分系统。
系统主要由试题库、自动组卷、答题及评分三大部分组成。
试题库中存有大量的试题资料,为自动组卷提供了充足的试题来源;自动组卷模块能够根据出题者的意图,自动生成一套合理的试卷;而答题及评分模块能对生成的试题给出正确答案并对答题及答卷实现自动译分。
关键词:自动组卷;考试系统;试题库;评分系统design and implementation of a system of automatic composition of examination papers and gradingyang xiaomin(department of computer science and technology, yuncheng university, yuncheng, shanxi 044000, china)abstract: in this paper, the author develops a system of automatic composition of examination papers and grading by using vb language. it is mainly made up by three parts: the question database, the auto-paper-composing module, and the module of testing and grading on computers. the question database stores enough test questions. theauto-paper-composition module creates an examination paper automatically following the mind of examiner. the testing andgrading module gets examinees answer questions on computer and gives score automatically.key words: auto-paper-composition; examination system;question database; grading system0 引言考试是对学生的学习效果和技能达标的一种快捷方便的检验方法。
VB程序主观题自动评阅系统的设计与实现

VB程序主观题自动评阅系统的设计与实现作者:姜彦伟来源:《硅谷》2014年第16期摘要 VB程序主观题是对考生掌握VB程序编写能力的集中测试,能够较好地反映出考生的真实水平。
设计并实现自动评阅系统,可以最大限度地保持客观、谨慎的态度来对考生的答案进行核对。
同时节省了大量的人力,减轻了教师的工作负担。
关键词 VB程序;自动评阅系统中图分类号:TP311 文献标识码:A 文章编号:1671-7597(2014)16-0019-01随着计算机教育事业不断发展,各种程序的编写学习受到了学生的偏好。
特别是VB程序,VB就是Visual Basic,是目前windows操作程序所采用的最常见的设计编程语言。
它在程序编写方面的表现十分优异,受到广大用户的一致好评。
可以预见的是,未来的程序设计考试中,VB必然会占据更加重要的地位。
与此同时,数量庞大的程序题给教师的阅卷工作带来了极大的负担,为了将教师从繁重的评阅工作中解放出来,也为了更好地保证评阅工作的公平性和客观性,VB程序主观题自动评阅系统应运而生。
它采用了DLL技术,实现了Visual Basic 程序主观题目的自动评阅,整个系统的操作界面简洁流畅,易于上手,在有效避免传统考试方法中容易出现的一些漏洞的同时,还能够保证阅卷的公正性。
这既是对考生程序编写能力的最有效的测试方法,也能够较为客观地反应出考生掌握VB程序的能力。
1 系统设计目标根据系统的实际应用背景,即需要对大量考生的数据编写题目进行详细的审查阅览,考虑到系统未来的可发展空间,在建立系统的初期,要保证系统能够具有以下两种重要特点,也就是系统设计的最初目标:实用性和适应性。
1.1 实用性自动评阅系统面对的是广大学生和教师,其中可能不乏一些计算机水平并不高的初学者。
既然用户的素质参差不齐,就要考虑到系统的实用性,保证每一个用户都能够很快地学会系统的基本操作,熟练地使用各项技能。
同时,简洁的操作流程能够很好地提高教师评阅的工作效率。
VB程序员考试自动阅卷系统的设计与实现.

VB程序员考试自动阅卷系统的设计与实现
关键词:自动阅卷系统;vb;算法
随着计算机应用技能培训与考核的开展,越来越多的市民参与了计算机考核,因而机械阅卷替代人工阅卷成为必定。
在系统运转进程中,主动处置考生顺序中所呈现的各类错误,克制用户顺序中所呈现的各类错误对阅卷系统的影响,包管系统运转的强健性。
本文首要阐述了树立高效的主动阅卷系统的完成机制。
系统使用VB平台开发,运用真正的的32位计算机系统,包管系统运转的不变性和平安性,采用Windows处置机制模仿驱动用户顺序并引入脚本战略,对用户供应一个友好的接口,适应不同的VB应用程序的考核。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB 作为 Windows 程序设计的优秀编程语言之
一 , 在课堂教学与考核中占据越来越重要的地位 。 为了考核学生的 VB 编程实践运用能力 , 开发一个 能够对 VB 上机操作或考核进行自动评分的系统 , 成为大规模考核的必然选择 。 系统的开发可以克服 人工评阅的周期 长 、 需 要 大 量 的 人 力 和 物 力 、 评 阅 过程不规范等缺 点 , 可 以 把 教 师 从 繁 重 、 重 复 的 机 械阅卷中解放出来 。 并且在考核后 , 考生的成绩可 以通过网络保存在服务器上 , 教师可以在服务器上 集中阅卷 , 并快 速 给 出 成 绩 , 阅 卷 结 果 易 于 保 存 查 询 , 能够对考生的操作做出更客观公正的评价 。 通过对 VB 开发的应用程序分析 , 发现 VB 的 源程序主要由以下几类文件构成 。 VB 程序源文件 主要以文本方式并按照一定的格式保存 , 因此部分 评分策略可以根据这些文件 , 提取出相应对象包含 的具体控件属性或事件代码进行评阅 。
符及对应字符 。 显而易见 【2】 上下文标识 @then 和
WSH 的 全 称 是 Windows Script Host, 是 一 种 支 持 ActiveX(COM)的独立脚本语言 。 WSH 脚本程序本来 是为了替代 DOS 时代的批处理文件而产生的 , 后来
由于 WSH 的应用很广泛 ,已经不只是局限于批处理 的替代品了 。 从 Windows98 开始 , 操作系统就已经 自带了 WSH, 因此在 Windows98 或以上的操作系统 中 ,可以不安装任何软件就能直接使用 WSH。
第 9 卷第 6 期 2009 年 12 月
金华职业技术学院学报
Vol.9 Nห้องสมุดไป่ตู้.6 Dec. 2009
VB 编程题自动评分系统的设计与实现
胡海峰 1,赵 阳2
(1. 嘉兴学院 , 浙江 平湖 314200 ;2. 宁波大学 , 浙江宁波 315212 )
摘要 :VB 编程题的传统人工阅卷缺乏客观性与公正性 , 并且存在阅卷工作量大等诸多的缺点 。 针对一般 VB 程序 编程考核题的自动评判的阅卷系 统 的 实 现 , 对 多 种 不 同 类 型 考 题 给 出 了 不 同 的 解 决 方 案 , 并 详 细 描 述 了 该 系 统 的 设 计思想 、 设计目的 , 给出了阅卷过程的实现要点 , 经实践该系统用户界面设计友好 , 易于操作 。 关键词 : 自动阅卷 ;Visual Basic ;WSH 中图分类号 :TP317.2 文献标识码 :A 文章编号 :1671-3699 (2009 )12-0078-04
@exit 。 算法在进行处理时 , 还对数据流中的空格进
行了处理 , 使算 法 的 匹 配 结 果 更 加 合 理 , 即 把 字 符 之间空格数大于 1 的空格合并为一个空格 。 (3 ) 第 三 类 题 目 的 评 分 策 略 , 采 取 静 态 评 阅 与 动态评阅的方法 。 算法设计题属于程序设计当中灵 活运用型题目 , 其特点是编写的算法可以用不同的
Next 后面的循环变量不能加 , 故在预处理时要把循
环变量去除 。 经过预处理的文件上传至服务器 ,下一步是把考
参考文献 :
[1] 刘新民 , 蔡 琼 , 白康生 . Visual Basic 6.0 程序设计 [M]. 北京 : 清华大学出版社 ,2004. [2] 崔武子 . Visual Basic 程序设计教程 [M]. 北京 : 电子工业出版社 ,2007. [3] 张海藩 . 软件工程导论 [M]. 第三版 . 北京 : 清华大学出版社 ,1998. [4] 段汉周 , 凌 捷 , 郑衍衡 . VB 程序设计考核自动评阅系统中若干问题的研究 [J]. 计算机工程 ,2001 (4 ):167~168.
!"#$% &’ ()* +, $-./012
1 VB 编程题类型分析
1.1 VB 编程题分类
把 VB 编程题分成三类 :(1) 简单应用程序界面
收稿日期 :2009-06-12 作者简介 : 胡海峰 (1978- ) , 男 , 浙江海盐人 , 嘉兴学院助教 , 在读硕士 , 研究方向为数据库 、 计算机应用 ; 赵 阳 (1989- ) 女 , 浙江金华人 , 宁波大 学科技学院理工分院电气工程及其自动化专业在读本科生 。
脚本语言,利用这一特点,适合于对考生文件的函数或 过程的调用来测试其结果的正确性。 当然 VB 代码转 换成 VBScript 代码根据它们的语法特性进行预处理。 第 三 类 题 型 也 是 放 在 VB 的 .bas 模 块 文 件 中 , 图 5 的预处理 (1) 主要分以下几个步骤 。 (1) 去除模块文件的第一行内容 , 即 Attribute
图 3 第三类题型算法设计题
= "V isualBasic" | Text1.Text = "VisualBasic"@Text2. Text=Text1.Text| Text2=Text1。 匹配策略先查找事件 Command1_Click,再查找代码要点进行评分。 在评分
时还要考虑到程序代码的多种不同表达方式。 如文本 框的文本内容可以用其 Text 属性,也可以省略它直接 写对象,所以在标准答案设置时用 “|”表示多种方案中 的一种。 而“@”代号,表示它前后每一个要点的内容。 (2 ) 第 二 类 题 目 和 第 一 类 题 目 相 似 , 但 设 计 的 题目都是放在 VB 的 .bas 模块文件中的函数或过程 当中的 。 .bas 文件以文本文件记录工程所用到的模 块的内容 , 主要是用来声明常用的变量 、 常量 、 过程
图 4 窗体文件 .frm 部分内容
这类题目采取的评分策略是 , 打开学生的 .frm 源文件 , 获取各 个 控 件 的 属 性 , 进 行 比 对 后 给 出 考 生控件属性的分数 。 简单事件的代码的编写 , 通过 在读取文本文件对应的字符串中查询相关的事件 , 对代码进行匹配 , 并给出考生对应的得分 。 如一道 题 目 要 点 为 : Command1_Click 事 件 , 代 码 为 Text1
2 评分策略综述
(1)第一类题目主要是通过对窗体文件.frm 内容 的分析 ,.frm 文件是一个文本文件 , 它主要记录一个 窗体的所有信息 , 主要包括窗体本身的属性和事件 代码及窗体上所有的基本控件的属性信息和事件代 码 。 图 4 为对应图 1 界面的.frm 文件的文本内容 。
79
金华职业技术学院学报
生文件与程序验证代码及分数写入数据库两部分代 码进行合并生成 vbs 文件 ,即预处理 (2),完成后执行 该文件。 正确执行的 vbs 直接把考生成绩写入数据库, 如果出现错误则需要教师静态评阅给出考生成绩。
vbs 文件,从而对考生的算法设计编程题进行评分。 VBScript 与 Basic 语言有密切关系 ,VBScript 是 Microsoft Visual Basic 的简化版本 。 VBScript 是一种
1.2 应用举例
针 对 VB 编 程 题 的 分 类 , 给 出 三 个 实 例 来 说 明 。 图 1 属于第一类题型 。 例题要求 : 在考生目录下 有一个工程文件 1.vbp , 在窗体 Fom1 上放置两个按 键控件 , 其名称依次 为 CmdWelcome,CmdClose , 其 标题依次 “ 欢迎 ”,“ 关闭 ”。 另外放置一个文本框 , 名 称为 TxtShow, 内容为空 。 程序运行时 , 点击 “ 欢迎 ”, 文本框出 现 “VisualBasic ”, 点 击 “ 关 闭 ” 则 退 出 应 用 程序 。
WSH 脚 本 文 件 类 型 ,WSH 可 以 使 用 VBScript, 即使用的脚本语言与网页脚本是一样的。WSH 文件的 扩展名为.vbs。 本文在深入研究了 VB 和 VBScript 语
图 5 评分算法具体流程
80
第6期
胡海峰 等 :VB 编程题自动评分系统的设计与实现
法的基础上,把 VB 代码转换成 VBScript 代码形式的.
Design and Implementation Of Automatic Assessment System of Visual Basic Programming
HU Hai-feng 1 ,ZHAO Yang2 (1.Jiaxing College, Pinghu 314200,China ;2. Ningbo University,Ningbo 315212,China ) Abstract :Traditional manual marking of Visual Basic Programming is lack of objectivity and impartiality, and requires large man/hours of work. Aim at those disadvantages of manual marking, this paper introduces the design and implementation of automatic assessment of Visual Basic Programming, and gives solution to different type of questions, and represents the idea and objective of design for the system, and key points on automatic assessment procedure. It is proved that this system has a friendly User Interface and efficient to administer. Key words :automatic assessment ,Visual Basic,WSH