2024年5月24日发(作者：)

毋　≯　

练　口　

运用ＶＢ设计全国计算机等级考试模拟软件　

文／高鑫　

摘要：Ｖｉｓｕａｌ　Ｂａｓｉｃ（简称ＶＢ），可实现大多数其它Ｗｉｎｄｏｗｓ　

判断考生是否登陆过系统，可通过查找系统目录下的“笔试”或　

“机试”目录下是否有该考生的考生日录。如已存在，则重新登　

陆后删除该目录后重新建立一个新目录。为了使所输入的考生　

编程语言的功能，具有面向对象的开发方法，支持图形用户界面　

以及数据库应用程序的开发。本文利用ＶＢ设计了全国计算机　

等级考试的模拟软件，就软件的功能、主要模块及程序加以　

阐述。　

姓名和考号能在其它窗ＶＩ中调用，建立一个模块ｒｅｓｕ，定义了两　

个全局变量ｎａｍｅ和ｎｕｎ，按确定键后分别将其初始化为考生姓　

名和学号。　

二、笔试部分模块设计　

１．随机抽题的设计　

关键词：ＶＢ；计算机考试；模拟　

作者：吉林长春医学高等专科学校　

一

、

登陆模块设计　

模拟考试环境，本模块要求考生使用合法姓名同考号登录。　

窗口所实现的功能是输入正确的考生名和考号后进入抽题窗　

考生选择由计算机随机抽题。首先清　选择题和填空题表　

的记录，通过调用（；ａｌｌ　ｓｊ（）函数分别抽同定题库中的题目添加　

到随机题表中去，、力ｍａｉｎ窗体的ｄａｔａ对象“ｍｙｄａｔｅ”Ｒｅｃｏｒｄｓｅｔ　

口　如有其中一项不正确都会弹出提示信息要求重新输入。判　

断考生姓名和考号正确性通过查找考生资料表中是否有相对应　

的记录来确定，通过语句：　

Ｓ“ｓｅｌｅｃｔ｝ｆｒｏｍ　ｙｚ　ｗｈｅｒｅ姓名一”‘＆．Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ）　

传数据源，为ｔｋ—ｍａｉｎ窗体的Ｒｅｃｏｒｄｓｅｔ对象ｒｓ传数据源。代　

码如下所示：Ｆｏｒ　ｉ一１　Ｔｏ　５Ｃａｌｌ　（“ｓｊ”，ｓｔｒｉｎｇｓ（ｉ一１），１０，５Ｏ，　

５０，６）选择题随机抽题Ｎｅｘｔ　ｉＦ０ｒ　ｉ一１　ＴＯ　５Ｃａｌｌ　ｓｉ（“ｓｊｌ”，　

ｔｋｓｔｒｉｎｇｓ（ｉ一１），３，ｌ５，１５，２）　

“‘Ａｎｄ考号一”‘＆　Ｔｒｉｍ（ｔｅｘｔ２．Ｔｅｘｔ）＆’来实现。　

选择笔试时利用输入的考生姓名和考号来建立考生目录：　

Ｆｓ．ｃｒｅａｔｅｆｏｌｄ　ｅｒ（Ａｐｐ．Ｐａｔｈ＋“＼笔试＼，＇＋Ｔｅｘｔ１．Ｔｅｘｔ＋　

“８　”＋ｔｅｘｔ２．Ｔｅｘｔ）；　

填空题随机抽题　

Ｎｅｘｔ　ｉ　

２．固定抽题设计　

选择机试时也是利用输入的考生姓名和考号来建立考生　

目录：　

Ｆｓ　ｃｒｅａｔｅｆｏｌｄｅｒ（ＡＰＰ．Ｐａｔｈ手　｜　

“

一

考生选择指定题目。点击选题的代号，Ｒｅｃｏｒｄｓｅｔ传数据源　

所输入的固定选择题库，为ｔｋｍａｉｎ窗体的Ｒｅｃｏｒｄｓｅｔ对象ｒｓ传　

手Ｔｅｘｔ１．Ｔｅｘｔ手　

定填空题库，显示ｍｙｓｔａｔｕｓ窗体，为ｂｒｒｏｗｓ。ｃｆｌ传值（重复　

抽题的题库），通过获取ｉｎｐｕｔｂｏｘ的值，运用ｓｅｃｅｃｔ　ｅａｓｅ语句来　

获取题库。代码如下所示：ｉｄ—Ｖａｌ（ＩｎｐｕｔＢｏｘ（“请输入抽题的　

套号（１—５）”，“抽题”））Ｓｅｌｅｃｔ　Ｃａｓｅ　ｉｄ’为ｍｉａｎ的ｄａｔａ选择表连　

接，选择题的套号。　

●　●　●｜ｃ●　●　●　●　●　●　●ｌＩｌ●　●　●　●０●　●　●　●　●　●１　●　●ｌ　●　●、●　

”＋ｔｅｘｔ２．Ｔｅｘｔ）Ｃａｌｌ　ｃｏｐｙｔｉ．ｇｅｔｓｔｒ（Ａｐｐ．Ｐａｔｈ＋“＼机试＼．＇　

＋Ｔｅｘｔ１．Ｔｅｘｔ＋“”＋ｔｅｘｔ２．Ｔｅｘｔ）。　

通过随机函数来产生一个随机数ｔｎ一（（Ｒｎｄ　４）＋１），然后　

将随机数指定的题目复制到考生目录，为后面的机试窗口调用。　

●　●　０●【　●　●　●、●　●　）●　●　●　●’●、●　∞●０ｎ●　●－●　●　●ｌｌ●（　●　●　●　

根据表１永诚保险ＳＷＯＴ矩阵分析可知，永诚保险的发展　

机会大于外部的威胁，公司的业务战略应选择Ｓ＋（）选择，即采　

取扩张型战略。外部环境有发展的机遇，永诚也正具备着迎接　

机遇和挑战的能力，采取扩张型战略，以股东电力能源业务为核　

特别构建了股东业务部，旗下的员工是专门为电力能源和股东　

业务提供服务的；另外积极开展其他非股东的非车险业务，给机　

构拓展非车险业务最大的支持力度。保证非车险占比达　

到４Ｏ　。　

心竞争力，不断开发新的业务领域，增强现有的市场份额。根据　

迈克尔．波特的ｉ种通用战略分类，差异化战略最符合永诚现有　

的能力与状态，公司能提供独特的产品，通过技术、品牌形象和　

附加特性与特色服务来强化产品的特点。最后得出的结论是永　

２．树立差异化服务　

公司通过核心业务系统内筛选出客户的信息资料，对于优　

质的客户，专人维护。特将建立ＶＩＰ绿色理赔通道。而对于大　

众客户，提供尽量便捷的服务。有别于其他公司，例如２０００元　

诚保险的业务转型采取的是扩张型差异化战略。　

实施方案：　

以下车险小案件。在客户资料齐全的情况下，现场快处快赔。真　

正做到赔款立等可取。通过风险控制手段减少交强险业务的占　

比，提高车险单均保费，提高非车险业务的占比，使永减的差异　

化服务成为公司特有的．其它公司无法复制的特色。　

战略目标：扩张型差异化战略转型就是对于公训专业的能　

源电力业务，加强市场拓展力度．强化公司核心竞争力，尽量争　

取大的市场份额。　

１．巩固股东业务　

现阶段永诚保险湖南分公司的业务定位在于大力拓展电力　

能源业务和大型商业风险业务，积极发展非车险业务，稳妥开展　

传统业务。保证股东业务优先发展，将电力能源业务的拓展作　

为重点项目，公司资源，各项服务、费用都向此倾斜。保证永诚　

电力能源保除市场Ｊ：的占比为２ｊ　以上。自总部到分公司　

企业家天地・１８９　

综　合　

Ｃａｓｅ　ｌ　

串，将返回的字符串赋给“ｔｅｘｔ３”．ｇｅｔｓｉｒ（ｒｅｃｏｒｄｓ）通过参数传人　

Ｓｅｔ　ｒｓ＝ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（“ｖｂｌ　１”）　

填空题库记录，获取记录的第二个字段，即题目字符串，查找标　

记号“＠”，每查到一个使ｇｃｔｓ　ｒ—ｇｅｔｓｉｒ＋提取到“＠”为止的字　

符串十换行符（ｖｂｃｒｌｆ），新的字串为后面的字串，重复以上操作　

至最后一个“＠”为止。每次移动题口都要判断该题共有几个　

宅。从而　“答案”后【丘『　几个下划线以供考生填写答案．通过　

渊ｆｌｊ　ｇｅｔｄａ（）来设置所显示的下划线个数，在ｇｅｔｄａ（）中下划数　

Ｓｅｔ　ｍａｉｎ．ｍｙｄａｔｅ．Ｒｅｅｏｒｄｓｅｔ－－ｒｓ’为选择题表单添加数据源　

Ｂｒｒｏｗｓ．ｃｆｌ一２　

Ｓｅｔ　ｔｋｍａｉｎ．ｒｓＩ－ｄｂ．（）ｐｅｎＲｃｃ０ｒｄｓｅｔ（“ｖｂｌ２”）’为填空题添　

加数据源　

Ｃａｌｌ　ｔｋｄａ（“ｖｂｌ２”，“ｔｋｒｅｓｕｈ”）　

Ｃａｓｅ　５　

Ｓｅｔ　ｒｓ－－ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（“ｖｂ５ｌ”）　

Ｓｈｏｗｍａｉｎ．Ｓｈｏｗ　

个数是　答案表ｌ卡７Ｊ始化时“￥”个数决定，显示个数为“￥”个数　

加一即可。当焦点离开　划线时．‘Ｆ－￣，Ｊ线上的答案将写人到表　

“ｔｋｒｃｓｕｈ＂中同时存窗口下面答案表中相应题相应空中显示出　

Ｓｅｔ　ｍａｉｎ．ｒｌｌｙｄａｔｅ．Ｒｅｃｏｒｄｓｅｔ—ｒｓ　

ｅＳｔ　ｔｋｍａｉｎ．ｒｓ—ｄｂ。（）ｐｅｎＲｅｃｏＭｓｅｌ（“ｖｂ５２”）　

Ｃａｌｌ　ｔｋｄａ（“ｖｂ５２”，“ｔｋｒｅｓｕｈ”）’卡玎始化答案　

Ｂｒｒｏｗｓ．ｃｆＩ＝５’给ｂｒｒｏｗｓ传值　

Ｍｙｓｔａｔｕｓ．Ｓｈｏｗ　

Ｕｎｌｏａｄ　Ｍｅ　

Ｃａｓｅ　０　

ｍｓｇ—ＭｓｇＢｏｘ（“还未捕题”，０，“提示”）　

Ｃａｓｅ　Ｅｌｓｅ　

ｍｓｇ—ＭｓｇＢｏｘ（“请选择１—５”，Ｏ十４８。“提示”）　

Ｅｎｄ　Ｓｅｌｅｃｔ　

３．选择题模块没计　

选择题考试，采取在四个选项选一个合适的答案。考　吖　

按顺序作答，也ｎ丁以点击题号，先选做自己有把握的题¨。　

首先建立ｄａｔａｂａｓｅ和Ｒｅｃｏｒｄｓｅｔ对象Ｄｉｍ　ｄｂ　Ａｓ　Ｄａｔａｂａｓｅ；　

Ｄｉｍ　ｒｓ　Ａｓ　Ｒｅｃｏｒｄｓｅｔ，再将ｄ【］连接到数据库，ｒｓ连接到表ｒｅｓｕｌｔ　

“Ｓｅｔ　ｒｓ—ｄｂ．（）ｐｅｎＲｅｃｏｒｄｓｅｔ（“ｒｅｓｕｌｔ”）”．　

显示选择的题目．通过双击获取“ｌＩ”控件数组的ｉｎｄｅｘ，从而　

使ｍｙｄａｔｅ．ｒｅｃｏｒｄｓｅｔ跳到对应的记录，获得ｉｎｄｅｘ值比较ｉｎｄｅｘ　

为１－－５０中某数ｉ，然后ｍｙｄａｔｅ．ｒｅｃｏｒｄｓｅｔ．ｍｏｖｅｆｉｒｓｔ（先移到首　

记录），再移到目标　录：ｍｙｄａｔｅ．ｒｅｃｏｒｄｓｅｔ．ＩＴＩＯＶＣ　ｉ．考生作答完　

毕，按“提交”按钮，返回考试主窗门，间时系统将考生的答案与　

标准答案对比，评分。　

在答题过程中，可借助“计算器”进行数据计算。“计算器”　

按钮用ｓｈｅｌｌ直接调用系统文件ｃａｌｃ。ｅｘｅ，具体代码如下：　

ｓｔａｒｔｄｏｃ—Ａｐｐ．Ｐａｔｈ＋“＼ｃａｌｃ．ｅｘｅ”；ｓｃｒｌ　ｓｈｅｌｅｘｅｃｕｔｅ（ｓｃｒ．　

“

ｏｐｅｎ”，ｓｔａｒｔｄｏｃ，　’，“Ｃ：＼”，１）　

４．填空题模块设计　

填空题考试，每题需作答的考点小定，有的题只有一处要作　

答，有的题则是需多处作答。所以填空题考试模块的设计较为　

复杂。首先通过调用模块表ｇｅｔｔｉｍｕ的ｇｅｔｓｉｒ（）来获取题目文　

字，ｇｅｔｓｉｒ（）的参数是一个Ｒｅｃｏｒｄｓｅｔ类型，该函数返　的是字符　

ｌ９０・ＥＮＴＲＥＰＲＥＮＥＵＲ　ｗ（）Ｒ１　１１　

来．（每个答案以‘￥’分丌）．其原理是当焦点离开时通过获取　

ｒｅｓｕｌｔＳ组的ｉｎｄｅｘ（即获取当前在哪个横线上写答案），来决定将　

答案　第几个‘￥’前向。考牛作答完毕，按“提交”按钮，返回　

考试主窗１７１。　时系统将考生的答案　标准答案对比，评分。　

设　‘算法：ｉｆ　ｒｅｓｕｌｔｓ（ｉ）不为夺，对ｔｋｒｅｓｕｈ表记录答案字段　

进行判断，不含有‘￥’，直接添加；含有‘￥’，凋用ｓｅｔｄａ（）．ｓｅｔｄａ　

（）有　个参数，分别为ｒｅ　ｓｕｉｔｓ组的ｉｎｄｅｘ　ｉｎｄ，写人的答案字　

段ｓｉｒｌ，表记录ｓｔｒ２．首先取得表记录含有‘￥’的个数ｉ，如果ｉ—　

ｉｎｄｅｘ，直接在最后一个‘￥’加～Ｉ　ｓｉｒｌ，否则在第ｉｎｄ个‘￥’加上　

ｓｔｒｌ，　加　面的宁串。　

５．　永评分界面设计　

实现考试系统的标准答案和考生答案的对比，评分，可返回　

抽题模块，重新进行抽题。在选择题答案中，标准答案ｌ～５Ｏ题　

分别显示的是ｍａｉｎ窗体中ｍｙｄａｔｅ．Ｒｅｃｏｒｄｓｅｔ。Ｆｉｅｌｄｓ（６）的答　

案，　永颜色为绿色，考生答案分别显示ｒｅｓｕｌｔ表中ｌ　５０字段　

的值，该值与标准答案值相比较，正确的为黑色显示，不正确的　

用红色　示。得分统计为：前３（）题每题正确则ｆｅｎｄ加ｋ　１．后　

２０题每题正确则ｆｅｎｄ加上２．最后得分在选择题得分ｌａｂｅｌ中　

示ｆＨ来。填空题答案　示直接将ＭＳＦｌｅｘＧｒｉｄ连到ｄａｔａ中　

去，　ｄａｔａ连接的是表ｔｋｓｈｏｗ，得分统计为：通过调用ｔｋｄａ（）来　

比较标准答案ｔｂｈｏｗ的Ｆｉｅｌｄｓ（２）和考生答案ｔｋｒｅｓｕｈ的Ｆｉｅｌｄｓ　

（１），由于每题的的分值是固定２分，但填空个数是不同的，因此　

ｔｋｄａ（）是通过比较答案每个卒的一致性，返同每题的正确率　

（ｄｏｕｂｌｅ类型数），每题的得分为返同值ｔｋｄａ的２倍，填空题总　

得分为每小题得分之和，显示存填窄题得分ｌａｂｅｌ中。总得分为　

选择题得分与填　题得分之和，　示在总分的ｌａｂｅｌ中。　

参考文献：　

［１］王兴晶．Ｖｉｓｕａｌ　Ｂａｓｉｃ．ｎｅｔ数据库开发典型实例［Ｍ］．电子工业出　

版社．　

［２］李光明．Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０编程实例大制作　Ｍ］．；台金工业出版　

社．２０（／２．