基于VB的试卷生成系统的实现
信息技术与课程整合本栏目责任编辑：贾薇薇基于VB 的试卷生成系统的实现
邵敏敏，胡碧金，赵琳
（天津天狮学院电子计算机系，天津301700）
摘要：利用Viaual Basic+Access 开发了一个试卷生成系统。系统能够实现手动组卷和自动组卷，生成的试卷以及试卷答案可以直接保存到字处理软件Word 中。
关键词：试卷生成系统；手动组卷；自动组卷
中图分类号：TP311文献标识码：A 文章编号：1009-3044(2009)08-2029-01
Implementation of Examination Paper Generation System with VB
SHAO Min-min,HU Bi-jin,ZHAO Lin
(Department of Electronic Computer,Tianshi College,Tianjin 301700,China)
Abstract:In this paper,a examination paper generation system is developed with Viaual Basic and Access database.Manual and automatic examination papermaking can be achieved in the system.The examination papers and answer papers can be directly saved to Microsoft Of -fice Word.
Key words:examination paper generation system;manual examination papermaking;automatic examination papermaking
1引言
在当今教学过程中，试卷一直是考察教学成果的重要手段，但是传统的试卷在选题和出题上都是由任课老师一手把关完成的，难免会出现知识点分布太集中、难易程度不当、分值分布不均等一些问题，因此，需要建立一个试卷生成系统，对试题及试卷进行管理，通过一定的组卷算法从试题库中抽取试题组成符合教师所要求的试卷，从而大大减少教师出卷的主观性，提高教师的工作效率。2系统功能需求分析
根据实际需求，试卷生成系统至少应该具有以下功能:
1)自动和手动出题功能。根据用户提出的要求，可以进行自动组卷和手动组卷。从题库中抽取全部所需的试题之后，要求系统按照试卷的模板进行排版，并以标准的格式输出到word 文档中。
2)题库维护：教师可以对题库进行浏览、增加、修改、删除等操作。
3系统的设计
3.1数据库设计
数据库设计的好坏是系统成败的关键，利用Access 建立了shijuan.mdb 数据
库，该数据库中包括选择题表，填空表，简答题表，设计题表，难度表，章节表，这里
只对选择题表结构加以说明，如表1所示。3.2系统模块设计
根据系统功能需求，系统包括以下模块:
1)题库录入模块：由教师根据要求录入各种题型的试题。
2)题库维护模块：对题库的试题进行维护，主要对试题进行修改和删除操作。
3)自动出题模块：按照出卷人员设置的条件由计算机从试题库总随机抽取试
题组成试卷。
4)手动出题模块：按照出卷人员设置的条件手动选取试题组成试卷。
5)试卷生成模块：将选处的试题从相关的数据表中由程序直接插入word 文档，并进行排版。
4系统的主要模块的程序实现
4.1自动出题模块
自动出题模块可以对试卷的试题类型、试题类型个数、难易程度，试题类型分值、所属章节等试题信息参数进行设置。确定之后即可抽取试卷。自动出题算法采用了随机选取，把抽取的题号放入整型数组RandNo 中。随机选取试题时，为了避免随机抽取的试题重复，应将每次抽到的题号和RandNo 中已经存在的题号作比较，如果已经存在，则退出此次循环，重新进行抽取。
随机生成题号的代码如下：
For index1=1To num ‘num 代表题目数量
Do While True
（下转第2032页）收稿日期：2009-01-22
作者简介：邵敏敏（1982-），女，山东济宁人，助教，硕士研究生，研究方向：计算机网络编程；胡碧金（1982-），女，助教，硕士研究生，
研究方向：软件工程；赵琳（1981-），女，助教，硕士研究生，研究方向：通信技术。
表1选择题表结构
ISSN 1009-3044
Computer Knowledge and Technology 电脑知识与技术
Vol.5,No.8,March 2009,pp.2029,2032E-mail:kfyj@https://www.360docs.net/doc/d69481257.html, https://www.360docs.net/doc/d69481257.html, Tel:+86-551-569096356909642029
本栏目责任编辑：贾薇薇信息技术与课程整合Computer Knowledge and Technology 电脑知识与技术第5卷第8期(2009年3月)（上接第2029页）
Randomize tempid =Int(Rnd()*(sum -1))+1‘随机抽取第一个题号，sum 为题库中总题量
flag =True For index2=1To index1If tempid =RandNo(index2)Then flag =False Exit For End If
‘判断本次抽到的题号是否曾抽到过
Next index2If flag =True Then Exit Do Loop RandNo(index1)=tempid ‘如果没有抽到，将题号存入数组RandNo 中。
Next index1
4.2试卷生成模块
在生成试卷的程序中首先定义一个word 应用程序对象wd,定义了一个word 文档对象dd ，创建一个空word 文档-模板.doc ，并且打开它，然后打开试题对应的数据库文件shijuan.mdb ，从数据库中读取抽取试题，读取一题就向word 文档写入一题并且调整格式，直到所有试题读取完毕。以向模板中插入选择题为例，主要实现代码如下：
Set wd =CreateObject("Word.Application")‘定义一个word 应用程序对象
wd.Visible =False Dim dd As Object Set dd =wd.Documents.Add(App.path +"\模版.doc",False)‘定义了一个word 文档
Dim ddSel As Word.Selection Set ddSel =wd.Selection For index1=1To RandChoice.TotalNum ‘RandChoice 为选择题题号数组
Sql ="Select *from 选择题where BH="&RandRandChoiceGetItemContent(index1-1)Set rs =QueryExt(Sql)With ddSel .TypeText Text:=index1&".".TypeText Text:=Trim(rs.Fields(2))&"".TypeParagraph .TypeParagraph End With rs.Close Next index1End If
4.3系统测试
程序运行主界面如图1所示，教师可以根据需要选择自动生
成试卷和手动生成试卷。
5结论
本系统在VB6.0和Access2000环境下调试通过，运行界面美
观，操作简便，为教师提供了方便高效的工作平台，减轻了工作负
担，具有较强的实用价值。
参考文献：[1]李玉东,李磊.Visual Basic 6.0中文版控件大全[M].北京:电子工
业出版社,1999.
[2]李莉,陈未如,王翠青,等.通用试题库管理系统的研究与实现.沈阳华工学院学报[J],2005,19(3):236-240.
[3]林丕源.VBA 在Word 文档中的应用[J].现代计算机,2001(9):85-89.
[4]Frssze W.Visual Basic 数据库编程宝典[M].北京:电子工业出版社,2001.
图1试卷生成系统主界面
的办法是：利用网络和通讯等现代化服务手段，增加确认过程，可以进行二次录取。
当然，确认过程可以采用收取一定保证金的方式。这样，可以适度弥补因为考生违约给学校带来的损失，同时对违约者起到了一定的预防作用。
6总结
高考录取其实是一个考生和学校的博弈过程，关键是得到一个双方都能接受的结果。稳定匹配和录取确认过程能极大改善这种结果。当然，在具体的实现过程中，不但需要计算机技术的运用，更需要相关法规和制度的配套。我们相信，高考录取制度改革是实现这个目的的必然结果。
参考文献：
[1]Kleinberg J,Tardos E.Algorithm Design[Z].2006.
[2]Boyer R S,Moore J S.a fast string searching algorithm[J].Communications of the ACM,1977(20):762-772.
2032
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
《VB程序设计》考试题型练习 答案
《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
VB程序设计期末考试复习题
VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
VB期末试卷
云南师范大学2007-2008学年下学期统一考试 《计算机技术基础》（VB6.0）期末考试试卷 考试方式（闭卷）考试时量：100分钟试卷编号（ A 卷） 1. ActiveX 部件是可以重复使用的编程代码和数据。A A. 对 B.错 2. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。B A. 对 B.错 3. 定义菜单项时，可以不设置分隔线的菜单项控件名称。B A. 对 B.错 4. 用Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间， 而且还为变量赋所需的初值。B A. 对 B.错 5. 数组作为过程参数时，使用的是地址传送方式。A A. 对 B.错 6. 用Public 申明的变量能被其它模块存取。A A. 对 B.错 7. 列表框的列表项只能在属性窗口中添加。B A. 对 B.错 8. 菜单选项“ Enabled” 属性与“ Visible ”属性是相同的。B A.对 B.错 9. 三种基本控制结构是：顺序结构、选择结构和循环结构。A A.对 B.错 10. 用For循环写的程序不能用While循环来写。B A.对 B.错 二、单选题（在本题的每一小题的被选答案中只有一个正确答案，多选不给分，每题 1 分，共40 分） 11. InputBox函数的返回值的类型为B__o A.数值 B.字符串 C.逻辑值 D.日期值 12. 下面关于打印对话框属性的说法错误的是C__o
A.Copies 属性指定打印的份数。 B. HDC 属性指定分配给打印机的句柄，用来识别对象的设备环境。 C. FromPage属性指定要打印文档的页范围。使用该属性时必须把Flags属性设置为1。 D. Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max 指定允许的最后页码。 13. Print #1，STR1$中的Print 是A A.顺序文件的写语句 B.在窗体上显示的方法 C.子程序名 D.打印命令 14. 文本框没有__D___属性。 A.Enabled B.Visible C.BackColor D.Caption 15. 下面四项中，_A _____ 是VB中的数值变量。 A.ABC B.E+2 C."True" D.1.35E-2 16. 下列不能打开菜单编辑器的操作是___D___。 A. 按Ctrl+E B. 单击工具栏中的菜单编辑器”按钮 C. 执行工具”菜单中的菜单编辑器”命令 D. 按Shift + Alt + M 17. 语句Print Format("HELLO", "<") 的输出结果是_B ____ 。 A.HELLO B.hello C.He D.he 18. 如果文本框的Enabled属性设为False则—A _____ 。 A. 文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上 B. 文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 C. 文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D. 文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 A.1 B.2 C.3 D.4
VB程序设计编程考试~题及答案~
VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%
中国地质大学(北京)2015秋研究生VB期末试卷及答案详解与拓展
课程号：SG04002 《VB程序设计》考试试卷（A） 考试形式：闭卷考试考试时间：120分钟 所有答案答在答题纸上 院系学号姓名得分 题号一二三四五总分 一．判断题（正确划√，错误划×）（10分） 1.事件的编程可以在代码设计窗口中进行，系统为不同对象提供了不同的事件集。事件是 对象特有的，不能主观臆造×(事件不是对象特有的，方法是对象所特有的) 2.即使单选按钮控件数组中的元素分属在多个容器中也只能从中选择一个控件× 3.过程和函数的区别在于有无返回值√ 4.只要把Image控件的Stretch属性设置为True，控件会自动调整大小以适应所装载的图片 的大小×（说反了，应该是图片适应控件的大小） 5.Left(Val("1234ab"), 2)的结果是”12”√Val 返回的是数，把1234给left, 但是left 返回 是串，取串里的两个字符12，所以结果是12这个串，要加双引号。 6.列表框控件的Style属性为1（Checkbox）时，MultiSelect属性必须为0（None）√ Style 只有0和1，0是标准的，1是复选checkbox，组合框是三个值0,1,2 7.没有通用对话框控件文件就没办法读写×对话框不负责文件的读写，只负责传串，文件
读写由读写语句进行。读图形文件是函数完成的,load picture, 写图形文件是save picture. 8.通过PaintPicture方法可以对图片进行缩放和裁剪等变换√还可以翻转 9.Do~loop while和Do while ~loop 在循环条件为True时循环结果一样√当循环条件为 false时不一样 10.只有顶级菜单和二级菜单才能调用窗体的PopupMenu方法制作弹出式菜单×只有父菜 单才能备调用 二．单项选择填空题（共40分） 1．有value属性的控件是【 D 】 A．TextBox B．ListBox C．ComboBox D．ScrollBar 有value属性的有三个控件：opptionbutton, checkbox, scrollbar 2．下列属性中不属于组合框控件是【 B 】 A．ListIndex B．Selected C．Text D．List 3．能画横半轴为3，纵半轴为2的语句是【 C 】 A．(0, 0), 3, , , 2 / 3 B．(0, 0), 3, , , , 3 /2 C．(0, 0), 3, , , , 2 / 3 D．(0, 0), 3, , , 3/2 [<对象名>.]Circle [Step](x, y),<半径>,[<颜色>], , ,<边比率> 纵比横中间缺3个参数，颜色，起和止幅度，用四个逗号分隔 4．下列控件没有change事件是【B】 A．TextBox B．ListBox C．ScrollBar D．ComboBox 5．命令按钮控件能响应用户的单击必须保证其【 C 】属性均为真 A．Visible和Caption B．Enabled和ToolTipText C． Enabled 和Visible D．Caption和ToolTipText 6．下面标识符哪个可作为数组的名字【 B 】
《VB程序设计》期末考试试卷(A)附答案
******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10) 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… 高二Visual Basic 期末试卷 一、单项选择题 01 Visual Basic 是一种可视化、面向对象的程序设计语言，采取了（）的编程机制。 A 、按模块顺序执行 B 、从主程序开始执行 C 、事件驱动 D 、按过程顺序执行 02 在设计应用程序时，通过（）窗口可以查看到应用程序工程的所有组成部分。 A 、代码 B 、窗体 C 、属性 D 、工程资源管理器 03 Visual Basic 有两种运行模式，分别是（）。 A 、设计模式和运行模式 B 、编译模式和中断模式 C 、解释模式和中断模式 D 、解释模式和编译模式 04 Visual Basic 有3种工作模式，在（）模式下，可以修改代码，但不可以修改窗体界面。 A 、运行 B 、设计 C 、中断 D 、编译 05、下列操作不可以打开属性窗口的是（）。 A 、按F4键 B 、双击任何一个对象 C 、单击鼠标右键 D 、执行“视图”菜单中的“属性窗口”命令 06下面（）是合法的变量名。 A 、X>YZ B 、123ab C 、integer D 、x-y 07 a=123&Mid （”123456”，3，2）执行后，a 有值为（）。 A 、12345 B 、12334 C 、1234 D 、123456 08 下面程序段的运行结果是（）。 a=8 b=9 Print a>b A 、-1 B 、0 C 、False D 、True 09 若a=2, b=3, c=4, 则值为True 的表达式是（）。 A 、12/a+2=b^2 B 、3>2*b Or a=c And b>c Or a>b C 、a>b And b<=c Or 3*a>b D 、a*b>c+3 10 设a=”Visual Basic “，使b=”Basic ” 语句是（）。 A 、b=left （a,5） B 、b=Right （a,5,5） C 、b=left （a,8,5） D 、b=Mid （a,8,5） 11表示x+y<15 ,且x*y>0的逻辑表达式是（）。 A 、x+y<15 Or x*y>0 B 、x+y<15 And x*y>0 C 、x+y<15 And Not (x*y<0) D 、x+y<15 And x*y>=0 12 设变量x=4,y=-1,a=7,b=-8,下面表达式（）的值为False. A 、x+a<=b-y B 、X>0 And y<0 C 、a=b Or x>y D 、x+y>a+b And Not （y VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 《VB程序设计》试卷试卷十五 一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误） 1. 窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按 高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2 B) 3 C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ?? ?≠≥=<=) (2) c (1 d c b a d b a x 且且 B) ?? ?≠<=<=)(2) c (1 d c b a d b a x 且且 C) ? ? ?≥=<=)(2) c (1b a d b a x 且 D) ? ? ?≠=<=)(2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0VB程序设计 试题与答案-1
大一VB期末考试试卷及答案
VB程序设计期末模拟试卷
VB程序设计试题及答案一
VB期末试卷
VB考试题及答案
VB程序设计试卷
VB期末试卷(A卷带答案 )