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。
- 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）双击窗体后可以退出。