VB毕业课程设计实验报告
vb程序设计实训报告心得体会 vb课程设计报告
VB程序设计实训报告心得体会1. 引言本报告旨在总结和分享我在VB程序设计实训过程中的心得体会和对VB课程设计报告的思考。
VB（Visual Basic）是一种基于事件驱动的编程语言，常用于Windows应用程序的开发。
通过该实训，我对VB 的特性和应用进行了深入了解，并运用所学知识完成了一个实际的课程设计报告。
2. 实训过程在整个实训过程中，我遵循了以下几个步骤：2.1 需求分析和设计首先，我对课程设计报告的需求进行了分析，并根据需求设计了相应的界面和功能。
这一步骤非常重要，它决定了后续的编码和实现过程。
2.2 编码实现接下来，我利用VB编程语言，根据需求分析和设计的结果，逐步实现了报告生成所需的功能。
在编码的过程中，我注意了代码的可读性和可维护性，同时遵循了一定的编程规范。
2.3 调试和测试完成编码之后，我对程序进行了调试和测试。
通过不断地调试和修改，我确保了程序的正确性和稳定性。
同时，我对程序的界面进行了优化，以提升用户体验。
2.4 优化和改进在测试阶段，我还发现了一些潜在的问题和改进点。
我进行了进一步的优化和改进，以提升程序的性能和功能。
通过这一过程，我学会了持续改进和迭代的重要性。
3. 心得体会在完成该实训过程中，我获得了以下几点心得体会：3.1 学会需求分析和设计在实际的编程过程中，需求分析和设计是至关重要的。
只有对需求有清晰的理解并合理地设计程序，才能高效地完成开发任务。
因此，我意识到需求分析和设计在编程中的重要性，并努力提升自己在这方面的能力。
3.2 重视代码质量和编程规范编码是程序开发过程中最基本的环节。
良好的编码习惯和规范能够提高代码的可读性和可维护性，进而提升开发效率和代码质量。
因此，我在编码的过程中，一直注意保持良好的编程规范，并时刻关注代码质量。
3.3 持续改进和学习通过实训，我深刻认识到编程是一个不断探索和学习的过程。
在开发过程中，我遇到了许多问题和挑战，但通过不断地改进和学习，我成功地解决了这些问题，并提升了自己的编程能力。
VB实验报告一2024
VB实验报告一（二）引言概述：VB（VisualBasic）是一种面向对象的程序设计语言，广泛应用于Windows操作系统中的软件开发。
本实验报告旨在详细介绍VB实验一（二）的内容与实验结果，并对其进行分析和总结。
正文内容：一、实验目的1.1学习VB语言的基本语法和开发环境的使用；1.2熟悉VB的界面设计和事件处理；1.3掌握VB语言中的数据类型、循环结构和条件语句。
二、实验步骤2.1搭建VB开发环境2.1.1并安装VisualStudio；2.1.2配置VB开发环境。
2.2界面设计2.2.1创建一个新的WindowsForms应用程序；2.2.2在设计窗口中添加控件，如按钮、文本框等；2.2.3设置控件的属性和事件。
2.3事件处理2.3.1编写相应按钮的Click事件处理程序；2.3.2实现按钮的功能，如计算、跳转等。
2.4数据类型的应用2.4.1声明和初始化变量；2.4.2使用不同数据类型进行计算和赋值。
2.5循环结构和条件语句2.5.1使用For循环和While循环实现特定功能；2.5.2利用条件语句实现条件判断。
三、实验结果3.1搭建VB开发环境成功；3.2界面设计符合预期，控件添加和属性设置正确；3.3事件处理程序编写无误，按钮功能正常；3.4数据类型的应用正确，计算和赋值结果准确；3.5循环结构和条件语句的实现正确。
四、分析与讨论4.1在搭建VB开发环境的过程中，可能会遇到版本兼容性问题，需要根据实际情况进行相应的配置和调整；4.2界面设计的合理布局与控件的正确设置对用户体验起到重要作用；4.3事件处理程序的编写需要注意语法的正确性和逻辑的严谨性；4.4在应用不同数据类型进行计算和赋值时，要注意数据类型的转换和溢出的问题；4.5循环结构和条件语句的合理运用能够简化程序的逻辑结构，提高代码的可读性和可维护性。
五、总结通过本次VB实验一（二）的学习和实践，我对VB语言的基本语法和开发环境的使用有了更加深入的了解。
vb实验报告3
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下：
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub
大学vb程序实习报告【精选5篇】
大学vb程序实习报告【精选5篇】大学vb程序实习报告【篇1】一、学习VB程序设计的方法(1)保持良好的学习心态1、要有自信，自强，积极主动学习。
2、克服畏难情绪，树立学好程序设计的信心(2)要有良好的学____惯1、课前预习，认真听课并适当做些笔记，课后要认真复习消化所学内容，完成作业。
2、VB程序设计的入门学习并不难，但却是一个十分重要的过程，因为程序设计思想就在这时形成的，良好的程序设计习惯也在这个阶段养成。
(3)学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂，翻开一本程序设计学习的书籍，看到的无非就是变量，函数，条件语句，循环语句等概念。
但要真正能进行程序设计，需要深入理解这些概念。
因此，在程序入门阶段还是应该重视概念的学习。
(4)自己动手编写程序程序设计入门阶段要经常自己动手抄写或编写一些小程序，亲自动手进行程序设计是创造性思维应用的体现，是培养逻辑思维的好方法。
因此一定要多动手编写程序，而且要从小程序开发开始，逐渐提高写程序的能力。
(5)阅读，借签别人设计的好程序多看别人设计好的程序代码，包括教材上的例题程序。
在读懂别人程序后，要想他为什么这么设计能不能将程序修改完成更多的功能则可以学到别人优秀的东西，帮助自己提高自身水__。
(6)VB程序设计学习的重点1、程序设计课是高强度的脑力劳动，不是听会的，也不是看会的，而是练会的。
2、只有自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，学起来才比较从容。
等你在编写大量程序之后，我想过二级肯定没问题，不过能不能做到真知灼见，运用自如我就不敢说了。
3、动手能力的培养是这门课和以往课程最大的不同之处。
重点放在思路，算法，编程构思和程序实现上。
语句只是表达工具，要求堂上积极思考，尽量当堂学懂，并做到灵活应用。
)上机调试程序应注意的几点：1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计，事件代码的编写等)2、每次上机后应总结，把没有搞清楚的问题记录下来，请教老师或同学。
vb课程设计实践报告
vb课程设计实践报告一、教学目标本课程的教学目标是让学习者掌握Visual Basic编程语言的基本语法、编程技巧以及数据库访问技术。
通过本课程的学习，学生应能设计并实现简单的应用程序，为后续的软件开发学习打下坚实的基础。
具体来说，知识目标包括：1.理解Visual Basic编程语言的基本概念和语法。
2.掌握常用的数据类型、运算符和表达式。
3.学会使用Visual Basic的窗体和控件。
4.掌握事件驱动编程的基本概念。
5.理解并能够使用Visual Basic进行数据库访问。
技能目标则要求学生：1.能够使用Visual Basic编写简单的程序。
2.能够使用Visual Basic进行数据库的连接和操作。
3.能够对程序进行调试和优化。
情感态度价值观目标则在于培养学生的创新精神和团队合作意识，通过完成项目任务，使学生感受到编程的乐趣，增强对计算机科学的热爱。
二、教学内容本课程的教学内容主要包括Visual Basic的基本语法、数据类型、控制结构、窗体和控件、以及数据库访问技术。
具体的教学大纲安排如下：1.课程引言：介绍Visual Basic的发展历程和应用领域。
2.基本语法：变量、数据类型、运算符、表达式等。
3.控制结构：条件语句、循环语句等。
4.窗体和控件：窗体的基本属性、控件的属性和事件等。
5.数据库访问：使用ADO对象进行数据库的连接和操作。
三、教学方法为了提高教学效果，将采用多种教学方法相结合的方式进行教学。
包括：1.讲授法：用于讲解基本语法和概念。
2.案例分析法：通过分析具体的案例，使学生理解编程思想和方法。
3.实验法：安排上机实验，让学生亲手编写代码，提高实践能力。
四、教学资源为了支持教学，将准备以下教学资源：1.教材：《Visual Basic编程教程》。
2.参考书：提供相关的编程书籍，供学生课后自学。
3.多媒体资料：制作教学PPT，辅助讲解。
4.实验设备：提供计算机实验室，让学生进行上机实验。
vb课程设计报告
vb课程设计报告一、课程目标本vb课程设计旨在达成以下学习目标：1. 知识目标：学生掌握VB编程基础知识，理解面向对象编程思想，熟悉VB 开发环境及相关工具的使用。
具体包括：- 掌握VB基本语法和数据类型；- 学会使用VB控制结构，如循环、分支等；- 理解VB中事件驱动编程原理；- 了解VB中常用控件的使用方法和属性设置。
2. 技能目标：学生能够运用所学知识，独立设计并编写简单的VB程序，培养解决实际问题的能力。
具体包括：- 能够编写具有基本功能的VB程序，如计算器、文本编辑器等；- 能够运用面向对象编程思想，设计简单的类和对象；- 能够分析问题，运用VB编程解决实际问题。
3. 情感态度价值观目标：培养学生对编程的兴趣，提高逻辑思维能力和团队协作能力。
具体包括：- 增强学生对编程的热爱，激发学习动力；- 培养学生独立思考、解决问题的习惯；- 培养学生团队协作精神，学会与他人分享和交流。
课程性质：本课程为实践性较强的学科，注重培养学生的动手能力和实际应用能力。
学生特点：学生年级为初中或高中，具备一定的计算机操作基础，对编程有一定的好奇心和兴趣。
教学要求：结合学生特点和课程性质，采用任务驱动法，以实际项目为导向，让学生在实践中掌握VB编程知识，提高编程能力。
同时，注重培养学生的逻辑思维和团队协作能力，为后续学习打下坚实基础。
二、教学内容根据课程目标，本章节教学内容如下：1. VB基本语法和数据类型- 数据类型：整数型、浮点型、字符串型等；- 变量和常量的声明与使用；- 运算符和表达式。
2. VB控制结构- 条件语句：If...Then...Else和Select Case；- 循环语句：For...Next，While...Wend和Do...Loop。
3. VB事件驱动编程- 事件和事件过程的概念；- 鼠标和键盘事件；- 窗体和控件事件。
4. VB常用控件- 文本框、标签、按钮等基本控件的使用；- 列表框、组合框、图片框等高级控件的使用；- 控件属性的设置。
vb实验报告实验一
vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。
实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件，将点击的运算符保存下来。
4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。
实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。
4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。
实验结果：
经过实验，成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。
实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。
通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。
实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。
该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。
通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。
2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。
通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。
3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。
通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。
4. 测试程序：最后，我们需要对程序进行测试，验证程序的各项功能是否能够满足实际需求。
通过测试，我们可以发现程序中可能存在的问题，并及时进行修复和优化。
实验结果：经过一段时间的努力，我们成功地实现了一个简单的学生成绩管理系统。
该系统能够实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
通过本次实验，我们不仅掌握了基本的程序设计方法和技巧，还提高了自己的编程能力。
结论：通过本次实验，我们深刻认识到了程序设计的重要性，以及通过VB程序设计可以实现复杂功能的能力。
同时，我们也意识到了编程过程中需要细心和耐心，以及对程序进行不断地调试和测试，才能确保程序的质量和稳定性。
希望通过不断地实践和学习，我们能够不断提高自己的编程能力，为实现更多复杂功能的程序做好准备。
2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】
2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】体会是指将学习的东西运用到实践中去，通过实践反思学习内容并记录下来的文字，近似于经验总结。
好的心得体会对于我们的帮助很大，所以我们要好好写一篇心得体会接下来我就给大家介绍一下如何才能写好一篇心得体会吧，我们一起来看一看吧。
vb程序设计实训报告心得体会vb课程设计报告篇一这是我第一次系统与完整的接触软件设计。
我们组的题目是关于“俄罗斯方块游戏”的设计。
我在组内主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。
在这次课程设计中，我的能力得到了锻炼，自己也有许多体会。
这次的课程设计是自己第一次全面接触软件的制作过程。
以前仅仅是对软件的开发有一个大体的印象，通过这次的课程设计，我对软件的开发有了切身的体会。
软件并不像我原来所想的那样十分神秘，而是有着一个相对固定的模式和流程。
我们只要按照这个模式和流程，就能够比较规范的完成一个软件的制作。
软件的制作是一个系统的工程，需要我们掌握多方面的知识。
在这次课程设计中，我觉得自己的知识面依然有所欠缺。
因此我需要在以后的学习中加以注意，要不断的提高自己的知识面与知识层次。
我在这次课程设计中主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。
在这次课程设计之前，我对vb的编程不是特别的熟悉，这次的课程设计，我是一边学习，一边总结，一边进步。
在编程的过程中，我体会到其实各种计算机语言是有相通之处的。
在以前的学习中，我只接触过c语言，这次在vb课程设计中，我发现c语言中的许多知识可以应用到vb中，两者具有相通的数据结构。
所以我认为现在对计算机语言的学习，不要贪多，而应耐心的学好一门主要的计算机语言，在这个基础上，去学习其他的语言，这样会使学习效率大大提高。
VB课程设计实验报告
VB课程设计实验报告VB 课程设计报告课程设计题目：图片浏览器目录VB 课程设计报告- 1 -一 .内容【摘要】：^p - 3 -二．功能描述（含流程图） 32.1 流程图： 32.2 图片浏览器描述（ 1）- 4 -2.3 图片浏览器描述（ 2）- 4 -2.4 图片浏览器描述（ 3）- 4 -2.5 图片浏览器描述（ 4） 42.6 图片浏览器描述（ 5） 4wele三．概要设计 43.1 电子式图片浏览器 4四．详细设计 54.1 盘符，文件夹和文件列表的确定 54.2 图片显示时，盘符，文件夹和文件列表隐藏 5 4.3 图片放大的确定 54.4 图片缩小的确定 54.5 图片转换到上一张的确定 64.6 图片转换到下一张的确定 6五．效果及存在问题 65.1 程序的效果： 65.2 显示图片的情况：- 9 -5.3 ：图片浏览器扩大的情况：错误 ! 未定义书签。
5.4 图片浏览器缩小的情况：- 11 -5． 5 存在的问题- 11 -六．实验心得 - 11 -七．【参考文献】：^p - 12 -八．图片浏览器程序的代码 - 12 -wele一.内容【摘要】：^p本程序是在借鉴了DOWS 系统自带的图片浏览器的基础之上经过 VB 加工和处理而生成的图片浏览器。
它具有系统图片浏览器的部分基本功能。
而且，和系统中图片浏览器的功能非常相似，使用起来方便灵活，生动直观。
二．功能描述（含流程图）2.1 流程图：开始查找图片查找盘符扩大查找文件夹图片缩小查找文件上一张下一张结束图片浏览器程序流程图wele2.2 图片浏览器描述（ 1 ）该图片浏览器由五个控件，有盘符，文件夹和文件列表（没运行时是隐藏的，查找图片之后也是隐藏的），还有一个 Image 框，布局合理！2.3 图片浏览器描述（ 2 ）图片浏览器中的查找图片控件可以查找文件中的图片。
2.4 图片浏览器描述（ 3 ）该图片浏览器运行之后，盘符，文件夹和文件列表出现，查找到图片之后就会再次隐藏，而图片就会出现。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(此文档为word格式，下载后您可任意编辑修改！)第1章系统设计的目的与意义:客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能.无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义.系统功能设计系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示图1.1错误!第2章数据库设计旅客信息表为旅客的个人信息加入住客房信息，数据结构如表旅客信息表设置表2.1客房信息表为客房入住情况的基本信息，数据结构如表客房信息表设置表2.2旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表旅客退房记录表设置表2.3管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表第一章主界面的设计(余蕾)主体内容3．1 设计标准模块本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。
程序代码如下：Option ExplicitPublic Sub opentable(pado As Adodc, precordsource As String) With pado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Total.mdb"mandType = adCmdUnknown.RecordSource = precordsource.RefreshEnd WithEnd Sub3.2 户登录界面设计用户登录的作用是判断使用本程序的用户是否是合法用户。
在程序进入登录界面时要求输入用户名和密码，如果用户名，密码正确程序继续执行。
当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。
3．2．1工作界面设计图3.1登录窗体程序代码如下：Private Sub cmdok_Click() '检查正确的密码'首先要对用户名特殊字符的过滤'防止非授权用户的登陆访问Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)s1 = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)'逐一判断字符的合格化If a(i) = "" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = "<" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = ">" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = "=" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = " " ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "~" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "," ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "'" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubEnd Ifc = c + 1txtUserName.SetFocusNext iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = "" ThenMsgBox "用户名不能为空！", vbOKOnly + vbCritical, "错误" Exit SubEnd Ifopentable adousers, "usersinfo"adousers.Refreshadousers.Recordset.Find "姓名=" & "'" & txtUserName.Text & "'", , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密码Elsestrusername = ""strpassword = ""End IIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.ShowElseMsgBox "用户名或密码不对！", vbOKOnly + vbInformation, "提示"intlogintimes = intlogintimes + 1If intlogintimes >= 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys "{HOME}+{END}"End IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd Sub3．2．2 添加新用户用于添加新的用户包括用户名,密码,及职务工作界面设计如图图3.2添加用户窗体程序代码如下:Private Sub Command1_Click()opentable adousers, "usersinfo"adousers.RefreshWith adousers.RecordsetDim i As IntegerIf Trim(Text1(0).Text) = "" ThenMsgBox "用户名不能为空！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) = "" ThenMsgBox "密码不能为空！", vbExclamation + vbOKOnly, "警告"Text1(1).SetFocusExit SubEnd IfIf Trim(Text1(2).Text) = "" ThenMsgBox "确认密码不能为空！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) <> Trim(Text1(2).Text) ThenMsgBox "确认密码不正确！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocusExit SubEnd Ifopentable adousers, "usersinfo"adousers.Refreshadousers.Recordset.Find "姓名=" & "'" & Text1(0).Text & "'", , adSearchForward, 1If adousers.Recordset.EOF = False ThenMsgBox " 已存在该用户！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocusText1(0).SelStart = 0Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd Ifopentable adousers, "usersinfo".AddNew!姓名 = Trim(Text1(0).Text)!密码 = Trim(Text1(1).Text)If Option1(0) Then !权限 = 1If Option1(1) Then !权限 = 2If Option1(2) Then !权限 = 3.UpdateMsgBox " 用户添加成功！", vbExclamation + vbOKOnly, "警告" Text1(0).Text = ""Text1(1).Text = ""Text1(2).Text = ""End WithUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3．3 创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。