VB窗体设计(考试系统)
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的考试系统的设计与实现
基于VB的考试系统的设计与实现作者：朱大维来源：《电脑知识与技术》2011年第30期摘要：在二十一世纪的新时代，随着计算机技术的发展及计算机的日益普及，无纸化考试也越来越成为学校的好帮手。
它的优势不但体现在人力上也体现在物力上，无纸化考试系统的自动计分、成绩存档功能将有效地避免资源的浪费，提高了效率。
无纸化考试真正地使老师从出题、监考、评改试卷、统计成绩等等费时的工作中解脱出来，将主要精力转移到创造性的教学改革工作中，以更好地适应现代教育形势。
学校内真正需要使用和推广无纸化考试。
该文主要介绍了本考试系统的开发环境、设计思路、主要功能、关键技术和软件的安全性。
关键词：开发环境；设计思路；功能；安全中图分类号：TP311文献标识码：A文章编号：1009-3044(2011)30-7332-02Design and Implementation of VB-Based Examing SystemZHU Da-wei(Information Center, Anhui Huaibei Mining Industry Group Company, Huaibei 235000, China)Abstract: In the new era in the 21st century , the computer one is popular day by day with the development of technology of the computer ,the examination with no paper at all becomes the good assistant of the school more and more .Its advantage not only reflects on manpower but also reflect on the material resources,the function of Automatic score and score save in the examination with no paper at all will avoid the waste of resources effectively and raised the efficiency .The examination with no paper at all makes teachers free from setting theme and supervising the examination and correcting the paper and counting the achievement and transfer main energy to the creative work of reform in education ,make the modern education situation better .There really need to use and popularize the examination with no paper at all in the school .Main introduction to this text is systematic development environment , mentality of designing , main function , the securities of the key technology and software that originally of the examination with no paper at all.Key words: development environment; the mentality of designing; function; the securities计算机自四十年代诞生以来，经过五十年的发展历程，其应用领域已渗透到社会的各个方面，包括科学计算、信息处理、自动控制、辅助设计、办公自动化等。
VB.NET一个考试系统的实例
VB考试系统系统目标及流程设计◆系统目标根据现有考试的基本流程，实现考试管理的电子化、无纸化，减少人为因素的干扰，减轻教师及学生的负担。
◆系统功能1、掌握本考试范围内所有用户的基本情况，包括编号、姓名、登录口令等。
2、基于考试系统的基本功能管理，本系统可以提供给教师类用户、学生类用户使用。
不同的用户类型所能完成的功能不同。
教师类用户可以创建试题、删除过期试题、进行题库维护、创建试卷等；学生类用户主要是参与考试，完成试卷。
3、适时的试题题库更新，试题题型包括填空题、单选题2种类型。
试题库的更新由教师类用户完成。
学生类用户不允许对试题进行更新。
4、试卷可由本系统自动生成，也可以由教师从题库中选择试题创建。
试卷创建完成后，允许教师打印试卷样稿。
◆系统设计：根据本系统的需求，结合实际考试管理情况，本系统应该具有以下功能模块：1、用户管理本系统的用户将分为2类：教师类用户和学生类用户。
学生类的用户是指当前系统中所有的学生，其用户名为学生的姓名，该类用户能够参与答题并浏览考试结果，但是不能浏览他人考试结果，也不能对自身和他人的信息进行管理。
教师类用户主要对试卷进行管理，包括创建试卷、修改试卷、评阅试卷等。
本系统用户管理通过登录人员类进行管理。
2、试卷类本系统将定义试卷类对象以方便管理。
试卷类中将记录试卷创建者的教师编号、试卷中2种题型（填空题、单选题）的题目数、试卷是否创建、试卷是否回答、试卷是否评阅、试卷得分等，同时也提供了创建、回答、评阅试卷的方法。
3、试卷创建、浏览及修改试卷创建分为教师命题以及系统自动命题两种方式，自动命题方式由登录的教师指定各种题型的题目数后，系统自动由相应的题库中随机抽取试题，生成试卷。
教师命题的方式提供教师类用户浏览题库的功能以及从题库中选取试题的功能。
试卷修改功能也是为教师类提供的，教师类用户可以对系统创建的以及教师命题创建的试卷进行修改4、题库管理此部分功能是为教师类用户提供的。
基于VB的考试系统的设计与实现
课程设计题目：基于VB的考试系统的设计与实现目录摘要......................................... 错误!未定义书签。
Abstract ..................................... 错误!未定义书签。
第一章引言................................................ ２1．1 计算机等级考试（二级）.................................. ２1．2 考试系统采用的实现模式.................................. ２第二章考试系统采用的技术和运行平台........................ ３2．1 Visual Basic .NET...................................... ３2．2 SQL Server 2000........................................ ４2．3 Web服务.............................................. ４2．3．1 Web服务的概念...................................... ４2．3．2 Web服务的优点...................................... ５2．4 .NET对Web服务的支持................................... ５2．5 考试系统的运行平台..................................... ５2．5．1 硬件平台.......................................... ５2．5．2 软件平台.......................................... ５第三章考试系统的数据库设计、构成模块及特点................ ６3．1 考试系统的数据库设计 ................................... ６3．2 考试系统的构成模块..................................... ８3．2．1 题库管理模块....................................... ９3．2．2身份验证模块....................................... ９3．2．3各类试题模块....................................... ９3．2．4监考管理模块..................................... １０3．2．5阅卷模块........................................ １０3．2．6缺考统计模块..................................... １０3．3 考试系统的特点 ...................................... １１第四章考试系统实现的关键技术............................. １２4．1 数据库操作......................................... １２4．2 打乱序号算法 ....................................... １２4．3 文件的压缩与解压缩.................................. １３第五章总结与展望........................... 错误!未定义书签。
VB程序设计第4章窗体的设计
• ①MDIChild属性 用于设置一个窗体是否做为MDI子窗体， 并显示于MDI窗体内。其默认值为False。 如果取值为True，则该窗体为子窗体。该 属性在运行期间是只读的。
• ②WindowState属性 该属性用来指定在运行时窗体的可视状态， 可以取三种值。默认值为0-Normal，表 示正常显示窗体；取值为1-Minimized 表示窗体最小化，缩小为一个图标；取值 为2-Maxmized表示窗体最大化，充满 整个屏幕。 • ③Arrange方法 用于重排MDI窗口中的子窗体或图标。其 语法格式为：
'“窗 '每次增
'“窗 '每次减
'退出程
• 【实训4.2】设计一个由3个窗体组 成的“古诗欣赏”应用程序。窗体 (Forml)为主界面，窗体2(Form2) 中显示宋词“登鹳鹊楼”，窗体 3(Form3)中显示唐诗“山行”。 参考代码： （1）在“工程资源管理器”窗体中 选择Form1窗体，编写Form1窗体 中对象的事件过程代码。
4.3.2 技能训练内容
• 【实训4.1】控制窗体“变大”和 “变小”。在窗体上设置三个命令按 钮如图4-1所示，程序进入运行状态 后，当单击“窗体变大”命令按钮时， 窗体变大，单击“窗体变小”按钮时， 窗体变小。单击“退出”按钮时，则 退出。
图4-1
参考代码：
• • • • • • •
•
• • •
• ②创建子窗体的步骤 新建一个窗体或打开一个已存在的窗体，将其 MDIChild属性设置为True，则该窗体就成为 MDI子窗体。 • ③MDI窗体及子窗体的加载 当设置MDI窗体为启动窗体时，程序运行后只有 MDI窗体被加载，加载子窗体应使用Show方法。
毕业设计(论文)-基于VB和Access的考试系统设计
基于VB和Access的考试系统设计摘要随着信息技术的发展和网络的优化，计算机的运用变得更加多样化，而且对于现代教育来说，传统的考试模式已经不再适应，计算机的无纸化考试将会成为未来考试的主导。
这种方式不仅方便、高效，而且保密性强，解决了评分时人为因素的影响。
本设计运用了Visual Basic 6.0和Access数据库对《Matlab和系统仿真》一课进行了无纸化考试的设计与实现，实现了老师的教考分离，解决了人工出题的不可重复性。
该系统实现了客观题的随机抽取和自动组卷功能，并且具有考生登录时的身份验证，答题结束时的答案提交，答题结果显示和自动评分以及自动计时功能。
由于系统采用了Access数据库，所以方便了数据库的更新、管理和维护。
该设计保证了考试的客观性、实时性和公正性，而且降低了老师在出题和阅卷时的工作量。
关键词：考试系统随机组卷自动评分数据库装订线Design of Examination System Based on VB and AccessABSTRACTWith the development of information technology and network optimization, the application of computers is more varied. For modern education, Traditional exams is no longer suitable , the paperless examination of computer will led the future examinations, this approach is not only convenient, efficient ,but also confidential in nature, and it will solve the problems of human factors. This design uses Visual Basic 6.0 and Access database right, design paperless examination of Matlab system and Simulation and the separation of education and examination, it solves the problem of non-repeatability. The system achieves the selection of objective title randomly and automatic Test Paper, it also has the candidates login authentication, Hand over the answer at the end of examination, and the answer showed, automatic scoring and the automatic timing. As the system uses the Access database, so it facilitates the updating of the database, management and maintenance. The design ensures the examination to be objectivity, impartiality and real-time, lowers the t eacher’s workload in making out questions and scoring.Keywords:exam system forming examination papers in random automotive grading database目录一引言 (1)1.1 课题研究的背景及意义 (1)1.2 考试系统设计的目标和指导思想 (1)二系统开发的关键技术 (2)2.1 Visual Basic编程语言及特点 (2)2.1.1 Visual Basic简介 (2)2.1.2 Visual Basic特点 (2)2.2 Access数据库 (3)三考试系统的开发与设计 (5)3.1 考试系统组成 (5)3.2 考生登录模块设计 (5)3.3 随机抽题组卷设计 (7)3.3.1随机抽题 (7)3.3.2自动组卷 (8)3.3.3试卷删除功能 (9)3.4 考试系统的答题界面 (9)3.5 交卷功能的设计 (10)3.6 自动评分功能 (10)3.7 计时功能实现 (10)3.8 Access数据库的设计 (10)3.8.1数据库设计 (10)3.8.2数据库的访问 (12)3.8.3数据库的管理和维护 (12)四结束语 (13)谢辞 (14)参考文献 (15)附录 (16)一引言1.1 课题研究的背景及意义本课题主要应用于无纸化考试。
用VB做考试系统
用VB做考试系统用ＶＢ做考试系统Visual Basic是一种面向对象的编程语言。
所谓对象是我们感兴趣的或要加以研究的事物，是数据与操作相结合的统一体。
对象的基本思想是用系统的观点把要研究的事物看成一个整体，整个世界是由种种不同的对象所构成的。
对象是面向对象的程序设计的基本概念，也是其核心。
在面向对象的程序设计中，对象必须是由用户自己来设计，而在Visual Basic中，对象却是现成的，这是Visual Basic的重要特征之一。
我们在用Visual Basic设计应用程序的时候，不必考虑这些控件的原理以及它的效果是如何实现的。
我们所要做的只是熟悉并掌握这些控件的属性和方法。
能够加以应用，从而减少了程序开发过程中大量重复、复杂的代码编制过程，减轻了工作人员的负担，缩短了程序的开发周期。
Visual Basic 的强大功能是显而易见的，不再多说。
那要学好它又应该如何去做呢？首先，我们应该树立起信心。
不管学习哪门学科，信心都是不可缺少的，也是最重要的。
不要还没有开始学习就被吓倒了。
其实Visual Basic是一种很容易上手的编程语言，用起来就像小孩搭积木一样简单，只要你不凭空架桥。
这里给大家介绍一个增加信心的好办法。
一般的Visual Basic教材的前部分都有一些简单的例子，我们对Visual Bisic有一定的了解后，就可以找几个小例子来做一做，感受一下收获的喜悦。
看一看，我们现在不是也能用Visual Bisic编程了吗？其次是恒心。
做一件事就一定要做到底，否则就属于浪费时间，不如不做。
学习一门知识肯定会累、会烦，当然也会有喜悦、有激动，这是正常的。
关键就在于当你很累、很烦的时候，你是否依然能够坚持下去，始终如一。
人们常说“坚持就是胜利”，只要我们不灰心、不放弃，没有什么困难可以难倒我们，学好Visual Bisic也不是不可能的事。
当然，只有信心和恒心还不够，还要讲究一些技巧。
归纳如下：（1）对于一些一时难以理解的名词，我们可以暂时不必细究，因为有许多都是专有名词，或是音译或是意译，没有什么特别的意思，我们只需要记住就可以了。
VB课程设计论文-自测考试管理系统
VB课程设计自测考试管理系统——VB课程设计目录第一章绪论 (2)1.1课题背景 (2)1.2开发工具 (2)1.2.1 Visual Basic 6.0简介 (2)第二章可行性分析 (3)2.1 技术可行性分析 (3)2.1.1 技术支持 (3)2.1.2软件资源 (3)第三章需求分析 (4)3.1系统需求分析 (4)3.1.1功能需求 (4)3.1.2性能需求 (5)第四章系统设计 (6)4.1 前台模块设计： (6)4.1.1功能描述： (6)4.1.2系统功能模块设计： (6)4.1.2系统功能流程设计： (7)第五章详细设计 (9)5.1 系统的一些主要编码和界面： (9)5.1.1启动窗口 (9)5.1.2系统登录窗口 (10)5.1.3系部信息管理 (10)5.1.4班级信息管理 (14)5.1.4学生信息管理 (14)5.1.5阅卷教师信息管理 (15)5.1.6判断题、单项选择题、填空、程序阅读题库管 (15)5.1.7手工选题窗口 (17)5.1.8试卷评阅 (18)5.1.9成绩查询 (18)5.1.10考试客户端登录 (19)第六章结束语 (19)参考文献 (22)第一章绪论1.1课题背景今世界是21世纪，在工农业不断发展的同时，Internet也迅速发展起来，而且已经飞速改变了人们的生活和工作。
有一些个人和单位现在根本是离不开Internet。
如大专院校以及各种培训机构,为了提高教学质量,开发了自测考试管理系统,学生可以自己检测自己,及时发现自己的不足,提高成绩!同时教师也可以运用检测学生提高工作效率. 同时建立学生考试管理系统，采用计算机对学生成绩进行管理，进一步提高办学效益和现代化水平帮助广大教师提高工作效率，实现学生成绩信息管理工作流程的系统化，规范化和自主化。
1.2开发工具本系统前台使用Visual Basic 6.0开发，后台使用强大的数据库软件SQL Server 2000。
VB考试教程：多窗体程序设计
⼆、多窗体程序设计 当应⽤程序功能较强和分类较多，程序和⽤户的交互频繁时，如果只⽤⼀个窗体和⽤户进⾏交互，⼀⽅⾯难以进⾏合乎美观原则的设计，另⼀⽅⾯分类⼯作很难，设计出来的界⾯不符合友好原则。
这时使⽤多重窗体程序设计，增强程序界⾯的友好性。
多窗体指的应⽤中有多个窗体，它们之间没有绝对的从属关系。
每个窗体的界⾯设计与单窗体的完全⼀样，只是在设计之前应先建⽴窗体，这可以通过菜单“⼯程”/“添加窗体”命令实现。
程序代码是针对每个窗体编写的，当然，应注意窗体之间存在的先后顺序和相互调⽤的关系。
所以，多重窗体实际上是单⼀窗体的集合，⽽单⼀窗体是多重窗体程序设计的基础。
⼀般说来，多窗体的设计基本分成以下⼏个步骤： ◆分析应⽤要求，将其功能划分为不同的⼏部分 ◆分别创建各个窗体、模块 ◆在创建窗体时，除各窗体⾃⾝要完成的功能外，还要考虑窗体之间的调⽤关系 ◆点击[⼯程]/[属性]菜单，在[启动对象]中选择应⽤运⾏时⾸先执⾏的对象 ◆运⾏应⽤程序，检验应⽤及各窗体的运⾏情况1、多窗体程序设计常⽤的⽅法在单窗体程序设计中，所有的操作都在⼀个窗体中完成，不需要在多个窗体中切换。
⽽在多窗体程序中，需要打开、关闭、隐藏或显⽰指定的窗体，这可以通过相应的语句和⽅法来实现。
在多窗体程序设计经常⽤到下⾯四种⽅法：Load,Show Hide和Unload.（1）Load⽅法它的语法结构如下：Load [窗体名称]使⽤Load⽅法调⽤的窗体被存⼊内存，并不显⽰出来，同时会产⽣⼀个Form_Load()事件。
例如：Load Form2 '将Form2窗体存⼊内存（2）Show⽅法它的语法结构如下：[窗体名称].ShowShow⽅法⽤来显⽰被调⽤的窗体。
Show⽅法兼有装⼊和显⽰两种功能，也就是说，在执⾏Show⽅法时，如果窗体不在内存中，则Show⽅法会⾃动的把窗体调⼊内存，然后再显⽰出来。
例如： Load Form2Form2.Show '将Form2存于内存，并显⽰Form2窗体（3）Hide⽅法它的语法结构如下：[窗体名称].Hide使⽤Hide⽅法会隐藏被调⽤的窗体，既不在屏幕上显⽰，但仍在内存中（与Unload⽅法不同），被调⽤的窗体中的属性等已经处于⽆效的状态。
VB窗体的设计
第四章窗体的设计4.1，窗体的属性4.2.1鼠标事件Mousedown 、mouseup、mousemove、click、dblclick1，click事件与dblclick事件Private sub form_click() Private sub form_dblclick()End sub End sub双击则两个事件都执行2，mousedown、mouseup、mousemove事件Private sub form_down(butten as integer,shift as integer,x as single ,y as single)End subPrivate sub form_mouseup(butten as integer,shift as integer,x as single,y as single)End subPrivate sub form_move(button as integer, shift as integer ,x as single ,y as single)End subButton 返回值和对应操作: 1 对应左键；2对应右键；4 对应中键Shift返回值和对应操作: 1 对shift ；2对应ctrl ；4对应alt例子：识别用户所按的键Private sub form_mousedown(butten as integer,shift as integer,x as single,y as single)Select case buttonCase 1Form1.print “您按下的是左键”Case 2Form1.print “您按下的是右键”End selectEnd sub例子：探测鼠标的位置Private sub form_mousemove(button as integer,shift as integer,x as single ,y as single)Text1.text=”x=”&x&””&”y=”&y4.2.2键盘事件Keydown、keyup、keyclick1，keyclick 事件Private sub form_keypress(keyascii as integer)End subKeyascii返回按键的ASCII码例子;显示所按键的ASCII码Priviate sub form_keypress(keyascii as integer)Print “所按的键的ASCII码值为：”&keyasciiEnd sub2,keydown、keyup事件过程Private sub form_keydown(keycode as integer,shift as integer) End subPrivate sub form_keyup(keycode as integer,shift as integer)End subShift 的含义和鼠标事件的一样与上面的keyascii不同，此时的keycode 返回的是键码非ASCII值。
2.3VB用户窗体的设计[13页]
![2.3VB用户窗体的设计[13页]](https://img.taocdn.com/s3/m/6e9051e71a37f111f0855b5f.png)
【案例2-3-1】 下拉式菜单的设计
【要求】设计主菜单“字体”和“退出”，选择“字体”菜单，出
现下拉式菜单，可以控制文本框中文本的字体和风格，选择“退出”
模 菜单则退出程序。
块
【注意】保存时必须存放在指定文件夹下，工程文件名保存为
一
M12.vbp，窗体文件名保存为AL2-3-1.frm，如图2-3-4所示。
1．下拉式菜单的设计
模 块
VB中的菜单编辑器是制作菜单的工具，通过以下方法均可以打开 “菜单编辑器”对话框(如图2-3-3所示)。
一
(1)选择菜单栏中的“工具→菜单编辑器”命令。
(2)单击工具栏中菜单编辑器 按钮。
第
(3)使用快捷键Ctrl+E。
二 单
(4)右击窗体，在弹出的快捷菜单中选择“菜单编辑器”命令。
一 弹出式菜单的设计还是使用“菜单编辑器”，只是在设计阶段将顶
级菜单的Visible属性设置为False，在运行阶段通过PopupMenu方法
第 将已经设计好的菜单在指定位置弹出。PopupMenu方法的使用格式
二 如下：
单 元
[对象名.] PopupMenu 菜单名, Flags, x坐标, y坐标
块 一 第 二 单 元
图2-3-5 运行结果
辽宁科技学院曙光大数据
知识点2多窗体界面
模
1．建立多窗体界面
块
多窗体即两个或两个以上的窗体，创建窗体的4种方法如下。
一
(1)选择“工程→添加窗体”命令，在打开的“添加窗体”对话框中单
第
击“打开”按钮。
二 单
(2)单击工具栏中的“添加窗体”按钮 ，在打开的“添加窗体”对话框 中单击“打开”按钮。
基于vb的计算机考试系统的设计与实现
基于vb的计算机考试系统的设计与实现现在，随着科技的发展和应用，计算机考试系统已成为学校教务管理的重要组成部分，在全面提高学校教务管理水平、改进教育教学质量方面发挥了重要作用。
因此，设计和实现一个完善的计算机考试系统是一项非常重要的任务，也是本文的研究目标。
本文将从硬件环境、软件和设计方法等方面，介绍基于Visual Basic（VB）的计算机考试系统的设计和实现过程。
首先，计算机考试系统的硬件环境应满足计算机考试系统的需求。
系统的软件应安装符合系统需求的操作系统、文本编辑器、视频编辑器和数据库，以及Visual Basic开发环境安装。
遵守规范编程准则，采用Visual Basic进行系统设计，编写主程序和可视化界面，以实现准确的计算机考试。
当然，实现系统流程也应当充分考虑到用户的使用习惯，优化系统的操作逻辑。
计算机考试系统的基本功能包括考生信息管理，试题管理，考试安排，成绩管理，计算机考试及相关报表管理等功能。
考生信息管理功能是系统的基础，主要功能是录入和维护考生信息，包括考生编号、姓名、性别、出生日期、身份证号码等。
该功能还可以实现考生信息查询，以及考生信息的批量导入和导出功能。
试题管理功能主要是录入和维护考试题库，包括试题类别、难易程度、客观题类型和判断题类型等内容，此外，还可以实现试题的搜索、批量导入和导出功能。
考试安排功能是根据考试的实际情况，针对不同的考生，安排考试的时间、地点、考题题型和试卷分配等内容，以及生成考试说明等。
成绩管理功能是根据考试成绩，自动或手动分类计算，并生成有关的成绩报表。
计算机考试功能主要是根据考试安排，提供考生进行考试操作，并自动完成试题出题、考生答题和成绩统计等。
相关报表管理功能是根据考试结果，自动或手动生成详细的报表，以便管理者对考试信息和成绩进行分析。
本文以Visual Basic语言为基础，结合考试的实际需求，提出了一种基于VB的计算机考试系统的设计与实现方案。
基于VB NET的在线考试系统设计与实现
基于的在线考试系统设计与实现摘要：该文基于技术开发出在线考试系统，实现试题随机生成、考生在线即时考试、即时评分、管理员对试题进行增删改查、成绩统计和查询及管理用户信息功能。
具有良好的开放性、方便性和灵活性。
既减少了教师的工作量，又提高教学效率，从而使考试更趋于公正、客观、更激发学生的学习兴趣。
同时也节约了考试资源，保护了环境。
关键词：在线考试；试卷；；即时评分中图分类号：tp311 文献标识码：a 文章编号：1009-3044（2013）07-1503-04随着网络技术的发展和广泛应用，传统教育的方式和方法面临着新的挑战，远程教育已被广泛的应用到学校和社会其他部门，为教育提供了新的途径，。
但是，远程教育软件的开发目前还处于起步阶段，随着计算机技术的不断发展，就要求有更好、更完善的软件系统应用到远程教育当中去。
远程教育包括很多环节，如教学系统、答疑系统和考试系统等。
其中很重要的一个环节就是在线考试系统，同时它也是最难实现的环节[1]。
在传统方式下，考试管理者的出题、批改试卷及统计成绩都是非常繁重的工作，但随着计算机科学技术的日趋完善，软硬件技术的发展，人们传统的思想观念和生活方式开始改变，一切向着高效率发展，利用现代的信息技术可以使考试这项繁重的工作变得高效、简捷。
一个完善的在线考试系统应可以通过网络自动完成题目生成，试卷提交、成绩批阅及统计分析等工作，能够提供一个更轻松、更快捷的考试环境。
考生提交试卷后，系统自动评分，学生在考试结束后能立即查看自己的考试结果，并可随时查阅已作答试题，发现自己的不足，从而查漏补缺，更好的提高学习效率。
开发的应用程序（尤其是数据库应用程序）代码操作数据库效率高、具有组件丰富、语言简单、功能强大的优点，使我们能在最短的时间内完成系统开发满足模拟考试系统的需要[2]。
是.net的一个关于数据库访问的子系统，利用提供的支持，用户可以在中自由访问和操作数据库，实现对数据库的操作[3]。
考试管理系统(VB)设计
介绍测试与我们的关系非常密切。
考试的提问一直是个比较麻烦的问题，需要耗费大量的时间和精力；传统的考试试卷需要大量的劳动力和打印机来打印试卷。
传统的机考根本行不通，无纸化考试肯定是未来考试的主要形式。
基于以上几点，为了解决试题的多样性和随机性以及以上部分问题，有必要编写一套试题管理系统。
目录第一章系统介绍----------------------------- --------第二章总体设计理念------------- ----------------------2.1数据库是如何设计的--------------- - ------------------2.1.1 试题库--------------- - ------------------2.1.2 候选人信息库--------------- ------------- -2.1.3 用户信息库--------------- --------------2.2 如何沟通----------------- ------------ ----- ------2.3 如何生成考题--------------- -- ------------------ --2.4 如何避免系统崩溃后候选人信息和主题信息丢失----2.5 总分如何计算----------------------------- --2.6 如何防止考生作弊--------------------------- -2.7 数据是如何隐藏的---------------- ---------- ------ --2.8 如何解决服务器传输文件的多线程问题------- ----- -- -2.9 如何实现加密算法----------- ---- --------------第三章主要模块说明----------------------------------3.1 考试平台------------------ ---------------------- ---3.2 服务器------------------- --------------------------第四章小结---------------- -------- ------------------ --4.1系统不足- ---------------------- ----4.2体验---------------------------- ----- --介绍学科名称：考试管理系统开发工具： Microsoft Visual Basic 6.0 中文版数据库：访问运行环境：Windows98/2000/XP/ME，测试室需要连接局域网安装：在机房设置一台机器作为服务器，将服务器程序安装到这台机器上运行。
VB考试系统课程设计报告
目录一、设计任务 (1)二、系统总体的设计方案 (4)三、框图 (6)四、调试程序的过程 (6)五、收获体会 (7)六、意见建议 (8)七、示例截图 (8)八、源代码 (9)九、主要参考资料 (18)一、设计任务a)程序运行时，首先显示主界面如图。
单击“单选题”、“多选题”、“判断题”和“填空题”四个按钮之一，程序会打开不同题型的窗口。
b) 单选题窗口打开后显示如图窗体，窗口中显示了题目总数、当前题号、已做题目目数、题目内容和选择项。
用户先做题目，再根据自己的判断选择“选择项”中的一个单选框然后使用“前一题”或“后一题”按钮切换到其它题目。
同时可使用“查看成绩”，程序会显示本题型共做对多少题。
c)多选题，判断题和填空题使用方法与单选题类似。
单击推出按钮可以返回主界面继续做其它类型的题目.二、系统总体的设计方案设计一个“考试系统”软件，利用已有的题目数据库，用户根据个人的喜好，自主选择题型进行自测，程序能够自动进行评分。
（单选题与多选题、判断题和填空题代码类似，这里以单选题为例。
）Dim db, rs, r_sum, lDim ans() As String, ans1() As StringFunction yzts() As IntegerDim i, ss = 0For i = 1 To UBound(ans)If ans(i) <> "0" Then s = s + 1Next iyzts = sEnd FunctionPrivate Sub Command1_Click()Option1.Value = FalseOption2.Value = FalseOption3.Value = Falsel = l - 1If l >= 1 Thenrs.MovePreviousForm2.Option1.Caption=rs.Fields("ans1").ValueForm2.Option2.Caption=rs.Fields("ans2").ValueForm2.Option3.Caption=rs.Fields("ans3").Valuebel7.Caption=rs.Fields("question").ValueEnd IfIf l <= 1 Then l = 1Label2 = Trim(Str(l))Label5 = Trim(Str(yzts))End SubPrivate Sub Command2_Click()Option1.Value = FalseOption2.Value = FalseOption3.Value = Falsel = l + 1If l <= r_sum Thenrs.MoveNextForm2.Option1.Caption=rs.Fields("ans1").ValueForm2.Option2.Caption=rs.Fields("ans2").ValueForm2.Option3.Caption=rs.Fields("ans3").Valubel7.Caption=rs.Fields("question").ValueEnd IfIf l >= r_sum Then l = r_sumLabel2 = Trim(Str(l))Label5 = Trim(Str(yzts))End SubPrivate Sub Command3_Click()Dim i, kk = 0For i = 1 To UBound(ans)If ans(i) <> "0" ThenDebug.Print ans(i), ans1(i)If Mid(ans1(i), Asc(ans(1)) - 64, 1) = "1" Then k = k + 1 End IfNext ibel7.Caption = "共做正确" + Str(k) + " 题"End SubPrivate Sub Command4_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Form_Load()Dim iSet db = OpenDatabase(App.Path + "\tiku.mdb", True, True, ";pwd=tiku") Set rs = db.OpenRecordset("xz3")r_sum = rs.RecordCountl = 1ReDim ans(r_sum)ReDim ans1(r_sum)For i = 1 To r_sumans(i) = "0"ans1(i) = rs.Fields("ans").Valuers.MoveNextNext irs.MoveFirstEnd SubPrivate Sub Form_Unload(Cancel As Integer)rs.Closedb.CloseEnd SubPrivate Sub Option1_Click()ans(l) = "A"End SubPrivate Sub Option2_Click()ans(l) = "B"End SubPrivate Sub Option3_Click()ans(l) = "C"End Sub三、框图四、调试程序的过程a)对.mdb数据库操作及DAO对象的使用方式不够了解，导致程序无法正常运行。
基于vb的计算机考试系统的设计与实现
基于vb的计算机考试系统的设计与实现近年来，随着计算机技术的发展，计算机考试的形式越来越多，越来越流行。
计算机考试在考生的学习和测试中发挥着重要的作用。
为了提高考试的准确性和可靠性，计算机考试系统的发展是不可避免的。
本文介绍了基于VB的计算机考试系统的设计与实现，旨在提高考试的准确性和可靠性。
首先，我们介绍了计算机考试系统需要哪些技术：计算机考试系统是一个复杂而有规律的系统，需要硬件技术，软件技术和网络技术等多方面知识。
计算机考试系统的实现要求项目组在硬件方面安装计算机，在软件方面提供VB的面向对象的编程语言，通过VB编程实现计算机考试的细节，控制考试的进程，在网络方面建立各种服务器，提供远程管理和反馈等服务。
其次，本文分析了计算机考试的实施过程：计算机考试可以采用多种方式，包括笔试、机试、计算机模拟考试等。
计算机考试的实施过程主要包括几个环节：准备考试试卷，考试系统的设计、开发和实现，考生的考试准备、考试、评分等。
计算机考试的实施，最重要的是考试系统的设计和实现，即利用VB的面向对象编程技术，设计出一套计算机考试系统，能够实现计算机考试的自动化操作和评分，进而提高考试效率和准确性。
最后，本文介绍了基于VB的计算机考试系统的设计与实现过程：分析需求，设计系统框架，完成需求分析，编写面向对象的VB代码，建立数据库，进行系统测试，提交系统部署。
计算机考试系统的设计与实现要求开发者具备良好的编程技能，有效的项目管理能力和系统集成经验，熟悉VB编程语言，熟练掌握系统设计和实现技能，具有较强的系统分析和设计能力。
综上所述，基于VB的计算机考试系统的设计与实现是一项复杂的工程，需要熟练的技术支持和有效的综合管理支持，为了提高考试的准确性和可靠性，计算机考试系统的设计与实现是必不可少的。
希望本文能够对基于VB的计算机考试系统的设计与实现有所帮助，并且激励更多的研究者持续探索计算机考试技术，不断创新。
VB窗体设计(考试系统)
1.要求：编程，输入圆的半径，计算并输出圆的面积，按下列要求分别实现：（1）在打开的工程的Form1窗体中设计如图1所示的界面（2）创建一个文本框控件用于输入，创建一个标签控件显示计算结果，创建一个命令按钮控件单击命令按钮后将结果显示在标签里，将命令按钮的Caption属性设置为"按文本框计算"（3）在窗体中创建一个命令按钮，Caption属性为"按输入框计算"单击此命令按钮后，调用Inputbox函数输入数据，通过标签控件显示计算结果。
要求本命令按钮执行的结果需要小数点后15位有效位数，圆周率15位：3.1415926535897935.在名称为Form1的窗体上建立一个名称为Cmd1，标题为"显示"的命令按钮，编写适当的事件过程。
程序运行后，如果单击"显示"命令按钮，则在窗体上显示"呵呵，小菜一碟！"，如图所示。
程序中不能使用任何变量，直接显示字符串。
注意：完成后必须保存，然后再关闭。
6.在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为"输出"和"清除"，如图1所示。
要求程序运行后，每单击一次"输出"按钮，不使用任何变量而直接在图片框中显示小写字母"有一幅画更完美！"，如图所示；如果单击"清除"按钮，则清除图片框中的内容。
7.在名称为Form1的窗体上建立一个名称为Text1的文本框，文本框的内容为空；一个名称为Cmd1，标题为"输出"的命令按钮，如图所示。
要求程序运行后，在文本框输入几个字符，单击"输出"按钮，则在窗体上显示文本框中的文字。
注意：在程序中不能使用任何变量，不能使用默认属性。
8.1、在名称为Form1的窗体上建立一个名称为l1的标签，并设置他不可见；两个名称为cmd1和cmd2，标题分别为"显示1"和"显示2"的命令按钮。
VB窗体设计
1 ）名称设置为“ fraWaiGuan标题内容为"任务栏外观2 ）名称设置为“ fraWaiGuan标题内容为"任务栏外观2、在窗体上添加选项卡（SSTab）1 ）名称设置为“ tabRe nWuLa n”2 ）样式设置为1。
3 ）选项卡数设置为1。
4 ）选项卡1；标题内容为“任务栏”。
3、在选项卡“tabRenWuLan”中分别添加以下2个框架（Frame）5、添加以下控件到框架“ fraTongZhi ”中1 ）添加复选框（CheckBox）名称设置为“ chkShiZhong ”；标题内容为“显示时钟（K）”；窗体快捷键设置为“ ALT + K ”。
2 ）添加复选框（CheckBox）名称设置为“ chkTuBiao ”；标题内容为“隐藏不活动的图标一、VB窗体设计共41题（共计41分）第1题（1.0分）题号:38【窗体设计】题目：请按照题目要求设计指定的窗体。
建立如（图1）所示界面。
提示：题中所提到的控件可以在“部件”中添加以下项目“ Microsoft Tabbed Dialog Con trol1、窗体设置1 ）名称设置为“ Task ”。
2 ）标题内容为“任务栏属性3 ）隐藏控件菜单栏。
4 ）边框样式设置为1。
4、添加以下控件到框架“ fraWaiGuan ”中1 ）添加复选框（CheckBox）名称设置为“ chkSuoDing ”；标题内容为“锁定任务栏（L）” ；窗体快捷键设置为“ ALT + L ”；值为选中。
2 ）添加复选框（CheckBox）名称设置为“ chkQianDuan ”；标题内容为“将任务栏保持在其它窗口的前端（T）” ；窗体快捷键设置为“ ALT + T ”；3 ）添加复选框（CheckBox）名称设置为“ chkXianShi ” ；标题内容为“显示快速启动（Q）”；窗体快捷键设置为“ ALT + Q ”；值为选中。
试卷编号：8281所属语言：Visual Basic 试卷方案：VB-窗体设计试卷总分：41分共有题型：1种窗体快捷键设置为“ ALT + H ”。
基于VB的上机考试系统
2 系统的需求分析2.1 可行性分析可行性研究就是预开发软件系统的总体目标，给出它的功能、性能、可靠性以及其他方面的要求。
其目的是用最小的代价在尽可能短的时间内确定问题是否能够解决、是否值得去解决。
下面从四个方面分析本系统的可行性（1）技术可行性本系统采用SQL Server 2000进行后台数据库的管理，用VB进行前台界面设计、与后台数据库的接口、数据的录入、查询、浏览等功能。
根据VB的特点，以及他们当前的广泛实际应用，充分说明本系统在技术方面可行。
（2）经济可行性经济可行性分析（能否赢利）是，从经济的角度分析系统的规划方案有无实现的可能和开发的价值；分析系统所带来的经济效益是否超过开发和维护网站所需要的费用。
经济上的可行性是企业行为的基础。
由于学生期末考试系统的开发设计是为完成毕业设计任务而进行的，所以不存在赢利问题。
所在此也就不讨论经济可行性问题。
（3）开发环境可行性网站开发需要的开发环境需要装有windows98系统以上的电脑上运行，这样的配置在当今已经不能成为难题，而服务器方面，只需要一台安装了VB和SQL Server 2000数据库服务的计算机即可。
所以开发环境可行性是没有任何问题的[10]。
2.2 开发环境考试系统开发环境如下（1）硬件配置环境：CPU：P4 1.8A、内存：256MDDR、硬盘：60G。
（2）操作系统：Microsoft Windows 98。
（3）数据库：开发过程中数据库工具采用了SQL Server 2000。
（4）编码工具：可视化开发工具Visual Basic。
2.3 研究设计中要解决的问题和实现的功能（1）本系统主要是为毕业设计而准备的，在考虑一系列利弊关系后，本系统是以单机的考试形式而表现的。
这套系统要能满足用户的基本要求，但在功能上模仿网上考试系统。
（2）该系统在登陆管理上应该具备权限功能，这样不仅有利于管理，也可以加强这套系统的安全性，所以权限的管理也是要解决的问题之一。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.要求：编程，输入圆的半径，计算并输出圆的面积，按下列要求分别实现：
（1）在打开的工程的Form1窗体中设计如图1所示的界面
（2）创建一个文本框控件用于输入，创建一个标签控件显示计算结果，
创建一个命令按钮控件单击命令按钮后将结果显示在标签里，将命令按钮的
Caption属性设置为"按文本框计算"
（3）在窗体中创建一个命令按钮，Caption属性为"按输入框计算"
单击此命令按钮后，调用Inputbox函数输入数据，通过标签控件显示计算结果。
要求本命令按钮执行的结果需要小数点后15位有效位数，
圆周率15位：3.141592653589793
5.在名称为Form1的窗体上建立一个名称为Cmd1，标题为"显示"的命令按钮，编写适当的事件过程。
程序运行后，如果单击"显示"命令按钮，则在窗体上显示"呵呵，小菜一碟！"，如图所示。
程序中不能使用任何变量，直接显示字符串。
注意：完成后必须保存，然后再关闭。
6.在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，
名称分别为Cmd1和Cmd2，标题分别为"输出"和"清除"，如图1所示。
要求程序运行后，每单击一次"输出"按钮，
不使用任何变量而直接在图片框中显示小写字母"有一幅画更完美！"，如图所示；
如果单击"清除"按钮，则清除图片框中的内容。
7.在名称为Form1的窗体上建立一个名称为Text1的文本框，文本框的内容为空；一个名称为Cmd1，标题为"输出"的命令按钮，如图所示。
要求程序运行后，在文本框输入几个字符，单击"输出"按钮，则在窗体上显示文本框中的文字。
注意：在程序中不能使用任何变量，不能使用默认属性。
8.
1、在名称为Form1的窗体上建立一个名称为l1的标签，并设置他不可见；两个名称为cmd1和cmd2，
标题分别为"显示1"和"显示2"的命令按钮。
2、编写适当的事件过程，要求程序运行后，
如果单击"显示1"命令按钮，则标签可见并显示字符串"aaa"；
如果单击"显示2"命令按钮，则标签可见并显示字符串"bbb"。
程序开始运行时界面如图所示。
图1 程序运行时界面
3、单击显示1命令按钮后，窗体如图2所示：
图2 单击显示1命令按钮后程序界面
9.
1、利用VB设计上面的程序界面。
窗体的标题为"字体修改"；其中包括一名称为Label1,标题为"请输入文字"的标签；一名称为Text1，内容为空的文本框；名称为Command1,标题为"隶书"，名称为Command2,标题为"黑体"的两个命令按钮。
2、程序功能：
单击"隶书"命令按钮时，文本框的字体设为"隶书"；
单击"黑体"命令按钮时，文本框的字体设置为"黑体"。
提示：不能使用任何变量！
12.
1、在名称为Form1的窗体上画一个文本框，名称为Text1,且不可见；再画两个命令按钮，名称分
别为c1和c2，标题分别为"隐藏"和"显示"。
2、请编写适当的事件过程，使得在运行时，如果单击"隐藏"按钮，则文本框消失；
如果单击"显示"按钮，则文本框显示出来，如图1和图2所示。
程序中不得使用任何变量。
图1
图2
13.
在名称为Form1的窗体上画一个文本框，名称为Txt1；再画一个命令按钮，名称为C1，标题为"移动"，如图1所示。
请编写适当的事件过程，使得在运行时，单击"移动"按钮，文本框水平移动到窗体的最左端如图2所示。
程序中不得使用任何变量。
注意：完成题目后，必须保存工程后再关闭。
图1
图2
14.
1、设计下图所示的界面：
2、界面中窗体的标题为：密码的显示；
3、窗体中包括两个文本框，他们的名称分别为p asstxt和showtxt,其中：
passtxt用于密码输入，当在其中输入信息时，显示为"*"；
4、showtxt文本框，在程序运行时不能用，只能显示密码。
5、具体功能：
程序运行时，当在文本框passtxt中输入密码时，showtxt中同时将输入的内容原样显示。
15.
设计窗体程序，程序运行的初始界面如图1-1所示，当用户在文本框中输入姓名，例如输入“张三”，单击“确定”按钮，则程序的运行情况如图1-2所示，如果单击“结束”按钮，即结束程序运行。
图1-1
图1-2
16.
在窗体上建立4个命令按钮Command1、Command2、Command3和Command4。
要求：
（1）命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。
（2）每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。
（3）单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。
（4）4个按钮每单击一次都在窗体上显示“欢迎使用VB”。
（5）双击窗体后可以退出。