VB等级考试题目

VB等级考试题目（精选8篇）

VB等级考试题目 篇1

1.求自然数1～100之间奇数之和。

2.求自然数1～100之间偶数之和。

3.编程计算从200到1000之间的所有4的倍数之和。

4.编程计算从300到1000之间的所有7的倍数之和。

5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2

6.编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。

7.在窗体的单击事件过程中，编写程序计算1！+2！+3！+ „ +20!

8.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+„+10!,将结果显示在文本框Text1中。(或参照 7 用教材:P86 [例4-21] 方法)

9.编写程序计算：s=1+1/2!+1/3!+„+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。(或 参照7 用教材:P87 [例4-22] 方法)

10.编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。

说明: 程序中红色标示的部分 控制 每行输出5个数

11.求s=a+aa+aaa+„+aaa„aaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。

12.在窗体上输出下三角的九九乘法表。

13.编写程序，将26个字母逆序输出。

14.编写程序，将字符串“山高人为峰”按逆序“峰为人高山”输出。

15.设纸的厚度为0.5毫米，将纸对折，再对折„，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。

16.编写程序，求s的值，s=1×2×3+2×3×4+„+n×(n+1)×(n+2)的值。n由程序输入。

17.编写一个程序，用户连续输入N个值，直到输入非数值数据为止。最后输出其中最大的一个数。

VB等级考试题目 篇2

关键词：计算机等级考试,Viusal Basic(VB),题型分析,应试策略

1 概述

计算机等级考试,用于测试应试人员计算机应用知识与能力的等级水平考试。在很多高校,学位的获取也和计算机等级考试挂钩,例如在我校就明确规定,非计算机专业学生申请学士学位,计算机等级考试水平必须通过江苏省普通高校计算机等级考试二级或全国计算机等级考试二级。所以当学生参加计算机等级考试时,首先都面临着这样一个问题:我究竟是参加所在省的考试还是参加全国的计算机等级考试呢?学生去咨询任课老师,因为老师教学中一般都有一个侧重点,比如在我校,教学以江苏省计算机等级考试考纲为主要参考,所以有些老师自身对全国计算机等级考试关注较少,从而忽略了对想参加全国计算机等级考试学生的有效指导。为了让学生更好地了解这两种考试,帮助他们顺利地通过计算机等级考试,本文介绍了两者的基本情况,分析了两者的题型构成、异同点,同时给出了各种题型的应试策略。

全国计算机等级考试(National Computer Rank Examination,简称NCRE),采用全国统一命题,统一考试的形式。NCRE考试每年考两次,分别在3月及9月举行,笔试和上机操作考试相结合,两者考试时间均为90分钟。NCRE成绩考核时,笔试、上机均实行百分制计分,但以等第分数通知考生,等第分数分为“不及格”、“及格”、“良好”、“优秀”四等。总成绩取笔试和上机成绩中较低的一个等级。笔试和上机考试成绩均“及格”,由教育部考试中心发合格证书。笔试和上机考试成绩均“优秀”,合格证书上会注明“优秀”字样。此外,笔试或上机考试成绩只有一门合格者,发单科合格证,下次考试时仅补考不合格的一门,补考合格,仍可颁发合格证书,但每个考生,一个级别的考试仅在相近的下一次考试中有一次补考机会。全国计算机等级考试合格证书全国通用,是持有人计算机应用能力的证明。

江苏省计算机等级考试以“重在基础、重在应用”的原则为指导,采取统一命题、统一考试的方式,每年3月和10月各举行一次考试。VB笔试的考试时间120分钟,上机考试时间为70分钟。等级考试笔试60分,机考40分,总分100,但已等第通知考生,等第分为不合格、合格和优秀。笔试和上机考试成绩均合格才为合格,两部分都达到优秀方为优秀。不合格的可以再次参加等级考试,但笔试和上机都必须考。考试成绩合格者,由江苏省教育厅委托江苏省高等学校计算机等级考试中心颁发统一的合格证书,考试成绩优秀者,合格证书上注明“优秀”字样。

2 题型分析

全国VB等级考试分笔试和上机。笔试由选择题题和填空题构成,选择题共35题70分,前10题是公共基础知识[1],后20题是VB[2]单选题;填空题共15空30分,前5空是公共基础知识,后10空是关于VB知识的填空题。公共基础知识部分包括:数据结构与算法、程序设计基础、软件工程基础和数据库设计基础。VB上机考试采用随机抽题的方式,其中简单操作题两题每题15分,简单应用题两题每题20分,综合应用一题30分。

江苏省VB等级考试也由笔试和上机构成。笔试部分60分,包括基础知识[3]单选题20分、VB[4]单选题10分、关于VB知识的填空题30分。基础知识部分包括:信息技术概述、计算机组成原理、计算机软件、计算机网络与因特网、数字媒体及应用、计算机信息系统与数据库以及office软件基本操作。上机部分40分,包括1题改错题14分,1题编程题26分。

通过对两者考试题型和考试大纲的分析,两者对VB部分的教学范围和教学要求基本类似,笔试部分的题型也均由选择题和填空题构成,但单选题和填空题在试卷中的比值不同,各题型在笔试卷中的比值如表1所示:

由表1可知,两者在VB单选和VB填空上的比值近似互换,尤其是VB程序的读程题,全国卷中大多数以选择题的形式出现,这对考生是有利的,因为如果是填空题,只要推导的过程中有一点点的失误,就会导致整个结果错误。

两者基础知识在笔试卷中的比值类似,但全国卷中10题单选和5题填空,后者20题单选,前者包括填空题,对考生增加了一些难度,但通过对往年试卷的分析可见NCRE中的基础题难度不大,常考的一些知识点比较集中,没有偏题怪题。尤其要注意,两者对基础知识的考核要求不同,侧重点不同。例如数据结构部分,在NCRE中是重点,在江苏省等级考试中仅作为一个概念了解,并没有深入去学习。此外,江苏省笔试卷中最后1~2题为office软件操作中的相关选择题,NCRE中没有office方面的要求。

无论NCRE,还是江苏省计算机等级考试,机考都是学生的弱项。全国卷中共5题,考试总体难度不高,知识点分布比较均匀,对基础知识的考察比较全面。江苏省机考卷中只有两道题,第一道改错,一般改出3个错误,只要对历年试卷好好练习,会有很多共性的错误。第二道综合编程题,界面设计、“清空”按钮、“结束”按钮编程不应失分,此外还有1~2个实现程序核心功能的事件过程,在这些过程中再去调用用户自定义的某个函数或过程,学生往往在这一步失分较高,主要是对VB中几个常用算法的实现不熟悉,比如判素数、找最大数、最大公因子、排序等,平时这些常用算法在理解的基础上多上机实践实践,考试时这些问题就能迎刃而解。

3 应试技巧

计算机公共基础知识,以理解为主,切忌死记硬背,历年特别是近几年的试题是最好的复习资料,针对性强,而且不排除同样的题目会再次考到的可能性。对于基础题中的计算题,比如进制转换、求波形声音的码率等,要牢记方法,不能丢分。

VB读程题,要求对VB基本语法要非常熟悉,包括常用控件的常用属性和方法、常用的系统函数、IF语句、For语句、D0…LOOP语句的执行流程等。考试中过程调用是难点部分,要通过多做习题总结解题的技巧,在文献[5]中结合我自己的解题经验,给出了过程调用中行之有效的分析方法。平时要多读程序,了解VB编程中一些有新意的思想,熟悉VB编常见算法的代码段,如求素数、求质因子、排序等,在读程中如果对这些程序段一目了然,能加快读程题的解题速度且不易出错。

VB程序完善题,首先仔细读题,明确程序的功能。对给出的程序代码进行划分,整个程序是由几个过程构成的?在每个过程中,又是由哪些基本语句(如IF语句,For语句等)构成的?然后去分析每个语句的功能,对涉及到的变量,通过上下文仔细揣摩各变量的含义,再根据题目所需达到的功能,仔细阅读每个完整的语句块,分析其要达到的局部功能,根据语句块中前后语句的关系,有时可结合具体的实例进行推导,使用合法的VB语句进行填空。

VB上机题,是很多学生的弱项,说明我们学生很少或不愿意动手编写与调试程序,使得程序设计能力较弱。熟悉基本控件的使用,界面设计部分不能失分;熟悉VB基本语句的使用格式,语法上不能出错;熟悉常用的算法,在理解的基础上进行有针对性的强化练习,牢记这些算法的实现。此外注意编程书写的规范化,如要求锯齿形输入,注意及时保存,以免死机,注重程序调试的方法等。

4 结束语

本文比较了全国计算机等级考试和江苏省计算机等级考试在考试形式、考试内容、考核方式等方面的异同,让学生在参加VB等级考试时能根据自己的实际需求和复习情况进行有针对性的报考。同时对两种考试的题型构成进行了分析,并给出了各种题型的注意要点和应试方法,以帮助学生更好地为参加计算机等级考试进行复习,提高计算机等级考试的通过率。

参考文献

[1]教育部考试中心.全国计算机等级考试二级教程:公共基础知识(2011年版)[M].北京:高等教育出版社,2011.

[2]教育部考试中心.全国计算机等级考试二级教程:Visual Basic语言程序设计(2011年版)[M]北京:高等教育出版社,2011.

[3]张福炎,孙志挥.大学计算机信息技术教程[M].南京:南京大学出版社,2011.

[4]牛又奇,孙建国.新编Visual Basic程序设计教程[M].苏州:苏州大学出版社,2008.

VB等级考试题目 篇3

关键词 三级网络技术；VB；模拟考试系统；随机抽题

中图分类号：G652 文献标识码：B

文章编号：1671-489X（2016）16-0029-03

1 引言

随着计算机网络技术的发展，计算机网络技术知识变得越来越重要，计算机等级考试合格证书也已成为用人单位录用大学毕业生的基本条件之一。为方便广大学生检验习得的网络技术知识，并积极备战全国计算机三级网络技术等级考试，在此进行基于VB的三级网络技术模拟考试系统的研究。

本研究所设计的三级网络技术模拟考试系统从学生角度出发，最终完全面向学生。它既考核学生对所学知识的掌握情况，还能够模拟真实的考试环境，提高考生认知能力和适应考试的能力。该系统随机抽取题目，自动对试卷进行评分，增加了考试的实时性和全面性。此外，三级网络技术模拟考试系统作为学生独立进行自主学习的平台，有助于促进远程教育中教育资源的开发。

2 系统功能概述

该三级网络技术模拟考试系统使用了VB、Access主要开发工具和Photoshop辅助工具，由管理员模块和考生模块两个模块组成。由于三级网络技术知识随着技术的不断发展会有所更新，则管理员模块可以解决知识更新伴随的试题更新问题。三级网络技术考试题型主要是选择题、填空题和综合题，综合题作答形式与填空题相近，本模拟考试系统将其归类为填空题。此外，考虑到初学者学习网络技术知识会有感到枯燥的时候，故在此增设娱乐区域，希望使学习者得到适时放松，促进学习效率的提高。

3 系统功能分析与实现

系统功能分析

1）系统客户端功能分析。该三级网络技术模拟考试系统主要分为管理员模块和考生模块，由于该系统面向的对象是网络技术知识的学习者，因此两个主要模块的功能都是为学习者量身打造。本系统的具体功能模块如图1所示。

2）系统数据库功能分析。该模拟考试系统要长期存放大量的试题和考生信息等数据，即需将数据存放在数据库中，在上述的模块中除了娱乐区域，都需要对数据库进行操作。该系统涉及的数据库系统以模拟考试系统功能为基础，建立一个名为“模拟考试系统数据库”总的数据库。总库中包含学生信息表、选择题题库表、填空题题库表、试卷参数表和学生考试试卷表等5个数据表。该数据库主要用于登录系统和抽取试题进行考试，用户实际操作的是数据库中这5个不同数据表相互连接后的结果，以便系统正常运行，从而提高学习者的工作效率。

系统功能实现

1）数据库实现。依据本系统的实际特点和功能要求，该数据库中主要选择题题库表和学生考试试卷表等5个表。选择题题库表项主要有选择题号、题干、选项、标准答案、解析、错误次数等。学生考试试卷表项主要有试题在试卷中编号、试题在题库中编号、试题答案、学生答案、得分等。

2）客户端功能实现。在考生总界面中，单击“模拟考试”按钮，再单击随之出现的“开始考试”按钮，即可进入与全国计算机三级网络技术等级考试类似的考试界面中，系统客户端主要功能如图2所示。

3）计时功能。由于考生已知道考试总时间，没有必要再设计一个倒计时功能来增加考生心理压力；另一方面，考生知晓实际所用考试时间能反思出自己对试题的掌握情况。综上，本模拟考试系统将真实考试环境中的倒计时功能改进为直接计时功能，流程如图3所示。

4）随机抽题功能。考生在单击“开始考试”按钮的同时，系统自动从数据库对应表中通过循环产生的随机数生成40道选择题、4道填空题的题号，逐个保存至数组，然后将抽取的试题题号植入考生考试试卷表中。在考试界面中需新建一个Adodc控件，将Adodc控件的数据源设为考生考试试卷表和选择题表与填空题表的条件连接体。随机抽题的流程如图4所示。

5）统计考生的成绩。考生顺利答完所有题目，单击“交卷”按钮，或者考生考试已到120分钟的真实考试时间，系统会自动判断考生的答案正确与否，统计出考生所得分数，关闭模拟考试界面。统计分数的流程如图5所示。

4 总结

本文是针对计算机三级网络技术的学习和模拟考试所做出的一些研究，对于自主学习三级网络技术的学生来说，具有很高的研究价值和广泛的应用前景。本系统经过多次修改和调试，基本能实现模拟考试、总结学习成果等功能，具有较高的稳定性。但是本系统分数统计的细化方面还需要进一步深入和完善。

参考文献

[1]许洋，李胜.基于VB的计算机二级考试练习系统设计[J].徐州师范大学学报：自然科学版，2006（3）：27-29.

[2]唐建国.基于VB+ACCESS的无纸化考试系统的设计与实现[J].软件，2012（2）：19-20，23.

[3]唐赞玉，瞿绍军，彭华.基于VB的计算机考试复习系统的设计与实现[J].吉首大学学报：自然科学版，2006，27（2）：39-42.

[4]武怀生.基于VB&ACCESS的考试系统中生成不重复随机试题的算法及程序设计[J].自动化与仪器仪表，2015（10）：132-134.

vb期末考试复习题 篇4

1). 数据库系统的核心是( )。

A.数据模型

B.数据库管理系统

C.数据库

D.数据库管理员

正确答案：B

2). 为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是( ).

A.按住Alt键，不要松开，然后单击每个要选中的控件

B.按住Shift键，不要松开，然后单击每个要选中的控件

C.按住Ctrl键，不要松开，然后单击每个要选中的控件

D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内

正确答案：A

答案解析：按住Alt键只能选中单个控件，不能同时选中多个控件。故选A。

3). 下面的变量名合法的是( )

A.k_name

B.kame

C.name

D.k-name

正确答案：A

4). 为了使窗体左上角不显示控制框，需设置为False的属性是( ).

A.Visible

B.Enabled

C.ControlBox

D.Caption

正确答案：C

答案解析：窗体的Visible属性是设置窗体可见不可见;Enabled属性是设置可用不可用;Caption属性是用来设置窗体标题栏上显示的内容;ControlBox属性是设置窗体左上角是否显示控制框，当属性值为True时，显示控制框，否则False时，不显示。故选项C正确。

5). 以下关于控件的叙述中，正确的是( )

A.标签控件能够获得焦点

B.不能对列表框中的.列表项进行多项选择

C.命令按钮的外观可以被设置为图形

D.设置形状控件的Shape属性，可以使其呈现为直线

正确答案：C

答案解析：标签、框架、菜单、直线、形状、图像框、计时器都不能接收焦点，选项A错误;列表框用于显示可供做单一或多个选择的列表项，选项B错误;形状控件(Shape)提供了显示一些规则图形的简易方法，通过设置形状控件Shape属性值，可显示6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形，选项D错误。

wpsB022.tmp.jpg

正确答案：A

wpsB035.tmp.jpg

正确答案：C

wpsB047.tmp.jpg

正确答案D

wpsB001.tmp.jpg

正确答案：A

wpsB034.tmp.jpg

VB等级考试题目 篇5

x = 0

n = InputBox(“”)

For i = 1 To n

For j = 1 To i

x = x + 1

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:

2. Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Next i

Print s

End Sub

单击命令按钮后，程序的运行结果为：

1、6

2、9

1.计算机等级考试二级VB程序设计题

2.计算机等级考试二级VB程序设计填空题

3.计算机等级考试二级VB程序设计选择题

4.计算机等级考试二级VB程序设计模拟试题

5.计算机等级考试二级VB考试题及答案

6.计算机等级考试二级VB考点：VB的过程设计

7.计算机考试二级VB语言程序设计考试大纲

8.计算机等级考试二级Access练习题(一)

9.计算机等级考试二级VB考点：进程条和滑块

VB等级考试题目 篇6

下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

(1)下列叙述中正确的是

A)对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n

B)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)

C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)

D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n log2n)

(2)算法的时间复杂度是指

A)算法的执行时间

B)算法所处理的数据量

C)算法程序中的语句或指令条数

D)算法在执行过程中所需要的基本运算次数

(3)软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是

A)编辑软件

B)操作系统

C)教务管理系统

D)浏览器

(4)软件(程序)调试的任务是

A)诊断和改正程序中的错误

B)尽可能多地发现程序中的错误

C)发现并改正程序中的所有错误

D)确定程序中错误的性质

(5)数据流程图(DFD图)是

A)软件概要设计的工具

B)软件详细设计的工具

C)结构化方法的需求分析工具

D)面向对象方法的需求分析工具

(6)软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于

A)定义阶段

B)开发阶段

C)维护阶段

D)上述三个阶段

(7)数据库管理系统中负责数据模式定义的语言是

A)数据定义语言

B)数据管理语言

C)数据操纵语言

D)数据控制语言

(8)在学生管理的关系数据库中，存取一个学生信息的数据单位是

A)文件

B)数据库

C)字段

D)记录

(9)数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的

A)需求分析阶段

B)逻辑设计阶段

C)概念设计阶段

D)物理设计阶段

(10)有两个关系R和T如下：

则由关系R得到关系T的操作是

A)选择

B)投影

C)交 D)并

(11)在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是

(12)设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是 A)|x| B)-|x| C)x D)-x(13)设窗体文件中有下面的事件过程： Private Sub Command1_Click()Dim s a%=100 Print a End Sub 其中变量a和s的数据类型分别是 A)整型，整型 B)变体型，变体型 C)整型，变体型 D)变体型，整型

(14)下面哪个属性肯定不是框架控件的属性 A)Text B)Caption

C)Left

D)Enabled

(15)下面不能在信息框中输出“VB”的是

A)MsgBox “VB”

B)x=MsgBox(“VB”)

C)MsgBox(“VB”)

D)Call MsgBox “VB”

(16)窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程

Private Sub Option1_C1ick(Index As Integer)

„

End Sub

下面关于此过程的参数Index的叙述中正确的是

A)Index为1表示单选按钮被选中，为O表示未选中

B)Index的值可正可负

C)Index的值用来区分哪个单选按钮被选中

D)Index表示数组中单选按钮的数量

(17)设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发

A)Text1的SetFocus事件

B)Text1的GotFocus事件

C)Text1的LostFocus事件

D)窗体的GotFocus事件

(18)VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母

A)这3个事件都会触发

B)只触发KeyPress事件

C)只触发KeyDown、KeyUp事件

D)不触发其中任何一个事件

(19)下面关于标准模块的叙述中错误的是

A)标准模块中可以声明全局变量

B)标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程

C)标准模块中可以包含一些Public过程

D)一个工程中可以含有多个标准模块

(20)设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是

A)Form1_MouseDown

B)Win_MouseDown

C)Form_MouseDown

D)MouseDown_Form1(21)下面正确使用动态数组的是

A)Dim arr()As Integer

„

ReDim arr(3,5)

B)Dim arr()As Integer

„

ReDim arr(50)As String C)Dim arr()„

ReDim arr(50)As Integer D)Dim arr(50)As Integer „

ReDim arr(20)(22)下面是求最大公约数的函数的首部

Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是 A)Print gcd(8,12)，gcd(12,16)，gcd(16,8)B)Print gcd(8,12,16)C)Print gcd(8)，gcd(12)，gcd(16)D)Print gcd(8,gcd(12,16))(23)有下面的程序段，其功能是按图1所示的规律输出数据 Dim a(3,5)As Integer For i=1 To 3 For j=1 To 5 A(i,j)=i+j Print a(i,j);Next Print Next

若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是 A)For i=1 To 5 For j=1 To 3 Print a(j,i);Next Print Next B)For i=1 To 3 For j=1 To 5 Print a(j,i);Next

Print

Next

C)For j=1 To 5

For i=1 To 3

Print a(j,i);

Next

Print

Next

D)For i=1 To 5

For j=1 To 3

Print a(i,j);

Next

Print

Next(24)窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序

Private Sub Commandl_Click()

Dim n

If Text1.Text<>“23456” Then

n=n+1

Print “口令输入错误” & n & “次”

End If

End Sub

希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是

A)在Dim n语句的下面添加一句：n=O

B)把Print “口令输入错误” & n & “次”改为Print “口令输入错误” +n+“次”

C)把Print “口令输入错误” & n & “次”改为Print “口令输入错误”&Str(n)&“次”

D)把Dim n改为Static n

(25)要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A)Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

Print X,Y

End Sub

B)Private Sub P1_MouseDown(Button AS Integer,Shift As Integer,X As Single, Y As Single)

Picture.Print X,Y

End Sub

C)Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

P1.Print X,Y

End Sub

D)Private Sub Form_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

P1.Print X,Y

End Sub

(26)计算二的近似值的一个公式是

某人编写下面的程序用此公式计算并输出π的近似值：

Private Sub Comand1_Click()

PI=1。

Sign=1

n=20000

For k=3 To n

Sign=-Sign/k

PI=PI+Sign/k

Next k

Print PI*4

End Sub

运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是

A)把For k=3 To n 改为 For k=1 To n

B)把n=20000改为n=20000000

C)把For k=3 To n改为For k=3 To n Step 2

D)把PI=1改为PI=0(27)下面程序计算并输出的是

Private Sub Comand1_Click()

a=10

s=0

Do

s=s+a*a*a

a=a-1

Loop Until a<=0

Print s

End Sub

A)13+23+33+„+103的值

B)10!+„+3!+2!+1!的值

C)(1+2+3+„+10)3的值

D)10个103的和

(28)若在窗体模块的声明部分声明了如下自定义类型和数组

Private Type rec

Code As Integer

Caption As String

End Type

Dim arr(5)As rec

则下面的输出语句中正确的是

A)Print arr.Code(2),arr.Caption(2)

B)Print arr.Code,arr.Caption

C)Print arr(2).Code,arr(2).Caption

D)Print Code(2),Caption(2)

(29)设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框

Private Sub Comand1_Click()

CD1.DialogTitle=“打开文件”

CD1.InitDir=“C:”

CD1.Filter=“所有文件|*.*|Word文档|*.doc|文本文件|*.Txt”

CD1.FileName=“" CD1.Action=1 If CD1.FileName=”“Then Print”未打开文件“ Else Print”要打开文件“& CD1.FileName End If End Sub

但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是

A)把CD1.Action=1改为CD1.Action=2

B)把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”

C)在语句CD1.Action=1的前面添加：CD1.FilterIndex=3

D)把CD1.FileName=”“改为CD1.FileName=”文本文件“

(30)下面程序运行时，若输入395，则输出结果是

Private Sub Comand1_Click()

Dim x%

x=InputBox(”请输入一个3位整数“)

Print x Mod 10,x100,(x Mod 100)10

End Sub

A)3 9 5

B)5 3 9

C)5 9 3

D)3 5 9(31)窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：

Private Sub Comand1_Click()

For k=List1.ListCount-1 To 0 Step-1

If List1.Selected(k)Then

List2.AddItem List1.List(k)

List1.RemoveItem k

End If

Next k

End Sub

程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是

A)在List2中插入了“外语”、“物理”两项

B)在List1中删除了“外语”、“物理”两项

C)同时产生A)和B)的结果

D)把List1中最后1个列表项删除并插入到List2中

(32)设工程中有2个窗体： Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

If Text1.Text=”Teacher“ Then

Form2.input.visible=True

Else

Form2.input.visible=False

End If

End If

Form1.Hide

Form2.Show

End Sub

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是

A)把Form1中Text1文本框及相关程序放到Form2窗体中

B)把Form1.Hide、Form2.Show两行移到2个End If之间

C)把If KeyAscii=13 Then改为 If KeyAscii=”Teaeher“ Then

D)把2个Form2.input.Visible中的“Form2”删去

(33)某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中

Private Sub Comand1_Click()

Open ”out.txt“ For Output As #2

Print ”Text1“

Close #2

End Sub

调试时发现没有达到目的，为实现上述目的，应做的修改是

A)把Print ”Text1“改为Print #2,Text1

B)把Print ”Text1“改为Print Text1

C)把Print ”Text1“改为Write ”Text1“

D)把所有#2改为#1(34)窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Comand1_Click()Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next k prog arr()For k=1 To 5 Print arr(k)Next k End Sub Sub prog(a()As Integer)n=Ubound(a)For i=n To 2 step-1 For j=1 To n-1 if a(j)t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是 A)12345 B)54321 C)01234 D)43210(35)下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 Private Sub Comand1_Click()Dim count(25)As Integer, ch As String ch=Ucase(InputBox(”请输入字母字符串“))For k=1 To Len(ch)n=Asc(Mid(ch,k,1))-Asc(”A“)If n>=0 Then Count(n)=Count(n)+ 1 End If Next k m=count(0)For k=1 To 25 If m<> m=count(k)End If Next k Print m

End Sub

A)0

B)1

C)2

D)3

二、填空题

(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 【1】。

(2)设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有 【2】 个元素。

(3)设二叉树如下：

对该二叉树进行后序遍历的结果为 【3】。

(4)软件是 【4】、数据和文档的集合。

(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，【5】，成绩)。

(6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为 【6】。

(7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()

Label1.Caption=”欢迎“

Timer1.Enabled=False

Timer1.Interval= 【7】

End Sub

Private Sub Timer1_Timer()

Label1.Visible= 【8】

End Sub

Private Sub command1_Click()

【9】

End Sub

(8)有如下程序：

Private Sub Form_Click()n=10 i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【10】。

(9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a(10)As Integer

For i=1 To 10

a(i)=i

Next

Call swap(【11】)

For i=1 To 10

Print a(i);

Next

End Sub

Sub swap(b()As Integer)

n=Ubound(b)

For i=1 To n / 2

t=b(i)

b(i)=b(n)

b(n)=t

【12】

Next

End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，„„。请填空。

(10)在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

Private Sub Form_Click()

Open ”d:testsmtext1.Txt“ For Input As #1

Do While Not 【13】

Line Input #1, aspect$

Whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

【14】

Open ”d:testsmtext2.Txt" For Output As #1

Print #1, 【15】

Close #1

End Sub

运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。选择题

1、A

2、D

3、B

4、A

5、C

6、B

7、A

8、D

9、A

10、A

填空题

1、A,B,C,D,E,5,4,3,2,1 2、15

3、EDBGHFCA

4、程序

VB等级考试题目 篇7

目前在国内外的无纸化考试软件有十多种。从1996年起,我国开始着手进行无纸化考试软件的研制和开发,经过不断改进、完善和提高,一些无纸化考试软件取得了重大突破,并处于产品化进程,如北京无忧,北京朔日科技等开发的考试软件产品,不过高校使用还不普遍。通过无纸化考试系统的推广,有助于加快高等教育信息化管理进程,有着广泛的应用前景。

1 系统结构与模块分析

本系统采用C/S(服务器与客户端)的设计模式,使用Visual Basic 6.0编程工具开发,分为考试端和服务器端。考试端主要基于Windows XP Sp2平台,服务器端采用Windows2000 Server操作系统,数据库为MS SQL Server 2005。

如图1所示,考生可以在客户端输入自己的学号,系统通过后台数据库服务器判断信息的正误,如果正确则自动显示学生的姓名,否则,提示学号输入错误。进入考试系统后,考生按照预先设定好的科目和题型在给定时间内进行考试,计时采用全程的时钟控制,考试结束后系统自动交卷。考试过程中,考生可以随时检查和修改已经做过的题目。

服务器端主要提供给考试管理员使用,在考试前管理员需要设定考试科目、考试时间、题型、题量、分值等内容,在设定好题型题量的基础上,再按照各章知识点的重要程度和考生人数随机生成试卷。同时,管理员可以导入考生信息,设置考生状态,对试题进行编辑修改,对考生试卷进行成绩批改,并可以对每批次的考试成绩进行统计分析。除此之外,通过服务器端还可以查看每个考生的考卷,了解考生的答题情况。

本系统客户端主要包括登录、考试、交卷和时钟控制模块;服务器端主要包括用户管理、考试管理、成绩管理、试题管理、试卷管理,如图2所示。

时钟控制模块主要实现考试全过程的计时功能,每分钟自动刷新时间,当考试结束时,本模块会判断考生的当前状态,如果正在答题没有保存或者其他异常情况,会自动黑屏,使考试机器不能响应鼠标和键盘控制,等待监考人员处理;如果考生一切正常,会提示交卷成功并退出系统。

用户管理模块主要实现考生的信息维护和管理员的信息维护功能。

考试管理模块主要实现考试的设置和试卷生成功能。

成绩管理模块主要实现成绩批改、成绩查询、成绩备份和统计分析功能。

试题管理模块主要对试题库进行更新、修改和删除。

试卷管理模块主要实现考生试卷的查询、打印及导出功能。

2 关键技术

2.1 组卷

由于题库中包括单项选择题、多项选择题、判断题、填空题和简答题,每类题都包含多个知识点,每个知识点又包含多道题,以往的固定几套题的方法,显然不是很灵活。对于几百人同时参加考试的实际情况,少数几套题容易使学生摸清题目规律,无法反馈学生的真实成绩。过多的套题又大大增加教师的教学负担,也不符合课程的教学实际。那么,如何在现有题库的基础上随机组成多套试卷,同时保证试卷中试题涵盖多个知识点,不存在重复的题目是一个技术难点。

通过查阅大量相关资料,并实践论证其可行性,最终解决了这个难题。首先采用随机函数并对其进行一定的修改,使其符合本系统的要求。然后按照知识点、题型及难点进行分类,并给每个知识点赋予一定的权重,最后在每一类中按照系统的设置随机抽题,同时对题目进行比较,防止出现重复题目。抽题算法的基本思想如下。

按题型设置每类题所包含的知识点:

按照设定的每类题的题量求每个知识点所包含的题数。其中num代表每类题的题量,td代表每个知识点的题量。

在总题量和每个知识点包含题量的基础上,进行随机抽题。

查询数据库中满足条件的记录

2.2 Word文件存储

由于简单题的答题文件是以Word文档的形式存储,而系统服务器采用MS SQL Server 2005,由于不能直接存储该类文件,造成无法直接同选择题、判断题那样直接读出和存入,这样就无法实现简答题的数据库存储,只能将答题文件存储在其他存储设备上,给试卷管理带来不便。

通过小组成员的认真钻研,发现SQL Server2005可以存储二进制数据,而Visual Basic6.0又提供了二进制数据的读取,经过两个多月的研究终于解决了这个问题。实现过程中主要采用ADODB中的Stream对象来对Word文件进行读取。读文件的代码如下:

2.3 自动评分

自动评分是在无人干预的情况下,根据学生的考试情况,客观准确地给出分数。其中难点在于填空题和简答题的评分上,因为这两类题的答案有时并不唯一,特别是简答题往往由许多要点组成,自由发挥的空间很大,这就需要在后台数据库中存储许多可能出现的答案,并且评分时需要根据答案中的关键字进行智能评判,真正实现机器的智能化评分。本系统根据人工智能的思想,利用数据挖掘原理,通过多次模拟考试,对学生的试题答案进行分析整理,丰富了试题库的准确答案库,提高了判分的准确性。

3 结语

根据理论性课程的教学现状,以及社会对大学生知识水平实践创新能力的要求,经过小组成员一年时间的潜心研制,现已开发成功。经过马列教研室的一次期末上机考试,考生人数1082人,最多并发访问量240人,本系统响应时间和稳定性均达到了预期的设计目标,提高了理论性课程的教学效果,减轻了教师的教学工作量,同时也将大大推动现代化教学的无纸化考试进程。

摘要：在研究某学院理论性课程教学现状的基础上,旨在推进现代化教学改革,切实提高学生的知识掌握水平,并结合多年的教学实践经验及学生的实际特点,阐述了沈阳体育学院理论型课程无纸化考试系统的设计与实现。

关键词：无纸化考试,文件存储,数据挖掘

参考文献

[1]张跃廷.SQL SERVER应用与开发范例宝典.第2版.北京:人民邮电出版社,2009.

[2]张孝祥.VISUAL BASIC基础与案例开发详解.北京:清华大学出版社,2009.

[3]浙江省体育局办公室.“数字体育”在体育管理中的应用与建设.浙江体育科学,2009.

[4]王珊.无纸化考试系统组卷算法的研究与实现.东北林业大学,2008.

计算机二级VB考试题及答案 篇8

计算机二级VB考试题及答案

1.设有如下程序段：

x=2

For c=1 To 4 Step 2

x=x+c

Next c

运行以上程序后，x的值是(A)(单)

A.6

B.7

C.8

D.9

2.以下叙述中错误的是(A)(单)

A.在KeyPress事件过程中不能识别键盘键的按下与释放

B.在KeyPress事件过程中不能识别回车键

C.在KeyDown和KeyUp事件过程中，从键盘输入的字母“A”和字母“a”对应的KeyCode视作相同的字母

D.在KeyDown和KeyUp事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符

3.执行如下两条语句，窗体上显示的是(C)(单)

A=9.8596

Print Format(a,“000.00”)

A.0,009.86

B.9.86

C.009.86

D.0,009.86

4.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click( )

CommonDialog1.FileName =“”

CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle=“VBTest”

CommonDialog1.Action=1

End Sub

对于这个程序，以下叙述中错误的是(D)(单)

A.该对话框被设置为“打开”对话框

B.在该对话框中指定的文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

5.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：

Private Sub Command1_Click( )

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=Iif(x>10,100,-100)

f.Show

f.Caption=y

End Sub

运行以上程序，正确的结果是(B)(单)

A.Form1的Caption属性值为100

B.Form2的Caption属性值为-100

C.Form1的Caption属性值为-100

D.Form2的Caption属性值为100

6.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click( )

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)

A.10 5

B.12 5

C.10 7

D.12 7

7.Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

Dim n As Integer

n=3

If n<10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b( ) As Integer,n As Integer)

Dim c(10) As Integer

j=0

For t=1 To n

b(t)=Rnd*100

If b(t)/2=b(t)2 Then

j=j+1

c(j)=b(t)

End If

Next t

Print j

End Sub

以下叙述中错误的是(C)(单)

A.数组b中的数范围为0-100

B.c数组下标的下界从1开始

C.GetArray过程的参数n是按值传送的

D.语句If b(t)/2=b(t)2 Then 是判断数组b中元素的值是否为整数

8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click( )

Dim a

a= Array(1,2,3,4,5)

For c=1 To Ubound(a)

a(c) = a(c)+c-1

Next c

Print a(3)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)

A.4

B.5

C.6

D.7

9.阅读程序：

Option Base 1

Private Sub Form_Click( )

Dim arr

Dim Sum%

Sum = 0

arr = Array(1, 3, 5, 7, 9)

For t = 1 To 5

Sum = Sum + arr(t)

Next t

Print Sum

End Sub

程序运行后，单击窗体，输入结果为(B)(单)

A.5

B.9

C.25

D.15

10.在窗体上画一个名称为File1的文件列表框，并编写如下程序：

Private Sub File1_DblClick( )

x=Shell(File1.FileName,1)

End Sub

以下关于该程序的叙述中，错误的是(A)(单)

A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

B.双击文件列表框中的文件，将触发该事件过程

C.要执行的文件的名字通过File1.FileName指定

D.File1中显示的是当前驱动器、当前目录下的文件

11.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的.计时器控件，并把其Interval属性设置为500。编写如下程序：

Private Sub Form_Load( )

Timer1.Enabled=False

End Sub

Private Sub Command1_Click( )

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer( )

If Label1.Left< Form1.Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序运行后，单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)

A.标签的移动方向为自右向左

B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D.标签按指定的时间时隔移动

12.规范地说，VB是一种(A)的开发工具(单)

A.面向对象

B.面向用户

C.面向屏幕

D.面向窗体

13.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)

A.文件

B.工程

C.编辑

D.视图

14下面(D)操作不是激活或显示属性列表框的操作(单)

A.按快捷键F4

B.点击工具栏中的“属性列表框”按钮

C.选择“视图”下拉菜单的“属性窗口”项

D.双击窗体中的某一对象

15.Visual Basic程序中分隔各语句的字符是(B)(单)

A.′

B.:

C.

D._

16.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VB Test”的语句为(B)(单)

A.Form1 = “VB Test”

B.Caption =“VB Test”

C.Form1.Text = “VB Test”

D.Form1.Name =“VB Test”

17.下列不能打开代码窗口的操作是(D)(单)

A.双击窗体上的某个控件双击

B.双击窗体

C.按F7键

D.单击窗体或控件

18.Visual Basic程序中语句行的续行符是(D)(单)

A.′

B.:

C.

D. _

19.Visual Basic程序中的注释所使用的字符是(A)(单)

A.′

B.:

C.

D._

20.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)

A.只保存窗体模块文件(.frm)

B.只保存工程文件(.vbp)

C.分别保存工程文件和标准模块文件(.bas)