VB课设报告
计算机程序设计语言(VB)课程设计实验报告的撰写要求
计算机程序设计语言(VB)课程设计实验报告的撰写要求总体要求：文字通顺，条理清楚，结构合理，格式规范。
☆一套完整的课程设计说明书主要包括：A.封面；B.；C.目录；C.正文；D.参考文献；E.致谢；F.附录等。
课程设计说明书一律左侧装订，装订顺序为：封面→课程设计任务书→目录→正文→参考文献→致谢→附录。
☆正文参考格式：一、设计目的二、系统分析三、系统设计四、系统实现五、系统测试六、总结七、参考文献八、致谢九、附录☆具体要求：1.排版要求页面设置：上下页边距为2.54，左右页边距为2.6；字符间距：标准；页面大小：A4；页码：每页下端居中，全部采用阿拉伯数字排序，如1，2，……，99，100，……等，页码两边不加修饰符，页码编号从正文开始；页眉、页码：页眉为“江苏科技大学南徐学院课程设计”，宋体，五号，居中排列；页码居页面底端居中。
页眉页码均从目录后开始设置。
附录中图纸、原文复印件等可不设置。
2.内容应有目录、中文摘要、关键词、正文、参考文献、致谢、附录；3.“目录”两字用小二号宋体加粗且居中，字与字之间空两个汉字宽，空两行为目录内容，目录内容字体用小4号宋体，页码放在行末，目录内容和页码之间用虚线连接，采用两端对齐。
目录根据正文内容自动生成。
4.中文摘要：主要说明本次课程设计（实习）的目的、内容、方法和主要结果，力求语言精炼准确，字数控制在200字以内。
格式如下（□为一个汉字宽）：□□【摘□要】：（小4号宋体加粗）××××（小4号宋体）5.关键词：关键词是表述说明书（报告）中主要内容信息的单词或术语，关键词数量一般为3-6个，每个关键词之间用逗号隔开。
格式如下：□□【关键词】：（小4号宋体加粗）×××，××，×××（小4号宋体）6.正文：一级标题（1.1）：四号黑体、20磅行距、段前18磅、段后12磅、左对齐；二级标题（1.1.1）：13磅黑体、20磅行距、段前后12磅、左对齐；三级标题（1.1.1.1）：小四号黑体、20磅行距、段前后6磅、左对齐；正文部分：宋体，小四，20磅行距、两端对齐、首行缩进2字符。
vb评估报告课程设计
vb评估报告课程设计一、课程目标知识目标：1. 学生能理解VB编程语言的基本概念，掌握其语法结构和编程技巧。
2. 学生能掌握VB中的变量声明、数据类型、运算符和表达式等基础知识。
3. 学生能学会使用VB编写顺序结构、选择结构和循环结构的程序。
技能目标：1. 学生能够运用VB编程语言解决实际问题，培养编程思维和逻辑能力。
2. 学生能够独立编写、调试和运行简单的VB程序，提高编程实践能力。
3. 学生能够通过VB程序设计，培养问题分析、解决方案设计的能力。
情感态度价值观目标：1. 学生在学习过程中，培养对计算机编程的兴趣和热情，形成积极的学习态度。
2. 学生在合作学习中，培养团队协作精神，学会分享、交流和互助。
3. 学生通过编程实践，认识到编程对解决现实问题的意义，增强社会责任感。
课程性质分析：本课程为信息技术学科，旨在让学生掌握VB编程基础，培养编程技能和逻辑思维能力。
学生特点分析：六年级学生具有一定的计算机操作基础，对新知识充满好奇心，具备初步的自主学习能力。
教学要求：1. 结合学生特点，采用任务驱动法、案例教学法和分组合作法，激发学生学习兴趣，提高实践能力。
2. 教学过程中注重理论与实践相结合，让学生在实践中掌握VB编程知识。
3. 教学评价关注学生的知识掌握、技能提升和情感态度价值观的培养，全面评估学生的学习成果。
二、教学内容本章节教学内容主要包括以下几部分：1. VB编程环境介绍与基本操作：- 熟悉VB集成开发环境；- 学会创建、保存和打开VB项目；- 掌握VB窗体设计、控件使用和属性设置。
2. VB编程语言基础：- 变量声明、数据类型、常量与变量；- 运算符与表达式；- 控制结构（顺序结构、选择结构、循环结构）。
3. VB编程实例分析：- 顺序结构程序设计；- 选择结构程序设计；- 循环结构程序设计。
4. 编程实践与拓展：- 完成课后练习题，巩固所学知识；- 分析并解决实际问题，培养编程思维；- 探索VB高级应用，提高编程技能。
(完整版)VB教案全套
(完整版)VB教案全套一、教学内容本节课的教学内容选自人教版小学数学教材五年级下册第五单元《数据的收集与处理》的第100页至102页。
主要包括：利用统计表收集数据、整理数据，以及利用统计图表示数据。
二、教学目标1. 让学生掌握利用统计表收集数据、整理数据的方法。
2. 让学生学会利用统计图表示数据，培养学生的数据观念。
3. 培养学生的合作意识，提高学生的动手操作能力。
三、教学难点与重点重点：掌握利用统计表收集数据、整理数据的方法，以及利用统计图表示数据。
难点：如何让学生理解并掌握统计图的特点及作用。
四、教具与学具准备教具：黑板、粉笔、多媒体课件学具：统计表、统计图、数据收集表、铅笔、橡皮五、教学过程1. 实践情景引入（5分钟）教师通过展示商场销售数据的图片，让学生观察并思考：如何将这些数据整理成易于查看和分析的统计表和统计图？2. 自主学习（5分钟）3. 合作交流（10分钟）学生分组讨论，分享自己制作的统计表和统计图，讨论如何使数据更加清晰易懂。
教师巡回指导，解答学生的疑问。
4. 例题讲解（10分钟）教师通过PPT展示例题，讲解如何利用统计表收集数据、整理数据，以及如何利用统计图表示数据。
学生跟随教师操作，巩固所学知识。
5. 随堂练习（10分钟）学生根据教师提供的数据，独立完成练习题，巩固所学知识。
教师巡回指导，解答学生的疑问。
6. 课堂小结（5分钟）六、板书设计板书设计如下：统计表：项目数量商品A 50商品B 30商品C 20统计图：条形图商品A 50商品B 30商品C 20七、作业设计1. 请学生运用所学知识，为家里的家电制作一份统计表和统计图，并解释统计图的作用。
答案：略2. 请学生思考：还有哪些场景可以运用统计表和统计图？试着举例说明。
答案：略八、课后反思及拓展延伸课后反思：本节课通过实践情景引入，让学生了解统计表和统计图的作用。
在教学过程中，通过自主学习、合作交流、例题讲解和随堂练习，让学生掌握利用统计表收集数据、整理数据的方法，以及利用统计图表示数据。
vb2016课程设计
vb2016课程设计一、课程目标知识目标：1. 理解VB2016编程环境的基本组成和功能。
2. 掌握VB2016的基本语法和编程技巧。
3. 学习使用VB2016进行简单的程序设计，包括输入输出、变量声明与赋值、运算符使用等。
4. 理解程序流程控制的概念，学会使用条件语句和循环语句。
技能目标：1. 能够独立建立和调试VB2016程序。
2. 能够运用所学知识解决实际问题，设计并实现简单的计算器和控制台小游戏等应用程序。
3. 培养良好的编程习惯，书写规范、注释清晰的代码。
情感态度价值观目标：1. 培养学生对编程的兴趣，激发创造力和探究精神。
2. 增强学生的逻辑思维能力，提高问题分析和解决能力。
3. 培养团队协作精神，学会在项目合作中相互交流、共享成果。
课程性质：本课程为信息技术学科，以实践操作为主，注重培养学生的动手能力和实际应用能力。
学生特点：六年级学生，具备一定的计算机操作基础，对新鲜事物充满好奇，但注意力和耐心有限。
教学要求：结合学生特点，课程设计应注重趣味性和实用性，难度适中，引导学生在实践中掌握知识，提高技能。
通过课程学习，使学生能够达到上述具体的学习成果。
二、教学内容1. VB2016编程环境介绍：认识VB2016集成开发环境，了解其界面和基本功能，包括菜单栏、工具箱、属性窗口和代码窗口等。
教材章节：第一章 VB2016概述2. 基本语法与编程技巧：学习VB2016的基本语法结构，如变量声明、数据类型、运算符、表达式等。
教材章节：第二章 VB2016编程基础3. 输入输出语句：掌握InputBox和MessageBox函数的使用，实现用户与程序的交互。
教材章节：第三章 输入输出语句4. 程序流程控制：学习条件语句（If...Then...Else）和循环语句（For...Next，While...Wend），掌握程序流程控制的基本方法。
教材章节：第四章 程序流程控制5. 简单应用程序设计：结合所学知识，设计并实现简单的计算器、控制台小游戏等应用程序。
vb课程设计
VB课程设计1. 引言VB（Visual Basic）是一种面向对象的编程语言，由微软公司开发。
它结合了基本的编程概念和直观的图形用户界面，使得编写应用程序变得简单和直观。
本文将介绍VB课程设计的相关内容，包括设计目标、设计过程和实施步骤等。
2. 设计目标VB课程设计的主要目标是培养学生的编程能力和解决问题的能力。
通过设计一个实际应用程序，学生可以学习如何使用VB语言进行程序设计，并了解软件开发过程中的各个环节。
3. 设计过程VB课程设计的设计过程包括以下几个步骤：3.1 确定需求在开始设计之前，首先需要明确应用程序的需求。
这包括确定应用程序的功能、用户界面和交互方式等。
如果我们要设计一个学生成绩管理系统，需求可能包括添加学生信息、查询成绩和生成报表等功能。
3.2 设计界面在确定需求后，接下来需要设计应用程序的用户界面。
这包括确定窗体布局、控件位置和样式等。
通过使用VB提供的可视化设计器，可以方便地创建用户界面，并进行调整和修改。
3.3 编写代码界面设计完成后，就可以开始编写代码了。
VB使用基于事件的编程模型，通过响应用户的操作来触发相应的事件处理程序。
在编写代码时，需要考虑到各种可能的情况，并进行适当的错误处理。
3.4 测试和调试在编写完代码后，需要对应用程序进行测试和调试。
这包括对各个功能进行测试，检查是否存在错误和异常情况，并进行适当的修复和优化。
3.5 文档撰写在完成测试和调试后，需要撰写相应的文档。
文档内容包括应用程序的功能介绍、使用说明和技术实现等。
这有助于其他人了解和使用该应用程序。
4. 实施步骤VB课程设计的实施步骤如下：4.1 学习VB语言基础在开始设计之前，学生需要学习VB语言的基础知识。
这包括语法、数据类型、控制结构、函数和对象等。
通过学习这些知识，学生可以掌握VB语言的基本用法。
4.2 学习VB开发环境除了学习VB语言外，学生还需要熟悉VB开发环境。
这包括VB集成开发环境（IDE）的使用、项目管理和调试工具等。
VB课程设计报告
课程设计(论文)任务书机电学院专业班一、课程设计(论文)题目：数学宝典二、课程设计(论文)工作自20 年 1 月4日起至 20 年1 月 8 日止三、课程设计(论文) 地点: 计算中心机房四、课程设计(论文)内容要求：1. 本课程设计的目的（1）掌握VB语言的数据类型和各种语句、各种控件和函数的使用；（2）培养学生独立设计算法、编写调试程序的能力；（3）培养学生分析、解决问题的能力；（4）提高学生的科技论文写作能力。
2. 课程设计的任务及要求设计一个提供计算多项数学问题的程序，至少包含3个数学问题（例如求1!+2!+3!+……+n!；用公式计算e的近似值；）用户可自行选择计算的问题。
1）基本要求：（1）贯彻事件驱动的程序设计思想；（2）要求界面设计简洁、美观、实用；（3）编程、调试、运行结果正确；（4）给程序做出必要的注释，以增强程序的可读性。
（5）.提供条件控制功能，如计算e的近似值时要将精度控制在10-9，（键盘提示出n 的取值范围）防止计算结果溢出；2）创新要求：在基本要求达到后，可进行创新设计，可以对界面或内容进行创新，界面友好，人性化，内容新颖。
3) 课程设计报告撰写及装订要求课程设计报告的撰写要求语句通顺，格式规范，图文并茂。
报告按如下内容和顺序用A4纸进行打印并装订成册。
（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献4) 课程设计评分标准：（1）考勤与课程设计态度：20分；（2）完成设计过程：40分；（3）完成调试：20分；（4）论文质量：20分。
5）参考文献：（1）吴昊.《VB程序设计教程》中国铁道出版社（2）龚沛曾《VB程序设计简明教程》高等教育出版社（3）王栋《VB程序设计实用教程》清华大学出版社6）课程设计进度安排内容天数地点构思及收集资料1图书馆编程与调试3实验室撰写论文1图书馆、实验室学生签名：年月日课程设计（论文）评阅意见评阅人职称讲师20 年1月9日目录一、绪论 (5)1.1 Visual Basic 概念1.2 Visual Basic系统的术语1.3 系统的主要特点1.4课程设计的背景与目的二、需求分析 (7)2.1社会和技术需求分析2.2客户和功能需求分析三、概要设计 (8)3.1课程设计的开发流程3.2主要算法思想原理四、详细设计 (10)4.1程序源代码五、运行结果及分析 (13)5.1各数学问题的运行结果与分析5.2调试过程六、课程设计心得 (20)6.1此次课程设计总结6.2系统存在的问题及解决策略6.3对VB这门课程的学习心得七、参考文献 (21)第1章绪论1.1 Visual Basic 概念Visual Basic（简称VB）是Microsoft公司在Basic语言的基础之上推出的软件开发工具，它是一种基于对象的可视化编程语言，是目前Windows平台上设计应用程序最为快捷的工具之一。
vb中的for循环课程设计
vb中的for循环课程设计一、课程目标知识目标：1. 学生能理解VB中For循环的基本概念、结构和执行过程。
2. 学生能掌握For循环的初始化、条件判断和循环变量的更新方法。
3. 学生能运用For循环解决简单的编程问题，如数值计算、数组操作等。
技能目标：1. 学生能独立编写使用For循环的程序，实现特定功能。
2. 学生能通过调试和修改For循环程序，解决常见错误和优化程序性能。
3. 学生能运用For循环进行数据处理和分析，提高编程解决问题的能力。
情感态度价值观目标：1. 学生培养对编程的兴趣和热情，认识到编程在解决问题中的价值。
2. 学生培养良好的编程习惯，注重代码规范，提高团队合作意识。
3. 学生通过解决实际问题，体会编程带来的成就感，增强自信心。
课程性质：本课程为信息技术课程，以实践操作为主，注重培养学生的编程思维和动手能力。
学生特点：学生为初中生，具备一定的计算机操作基础，对编程有一定了解，但对For循环的认识尚浅。
教学要求：教师应结合学生特点，以实际案例为引导，采用任务驱动法，引导学生主动探究，注重理论与实践相结合。
在教学过程中，关注学生个体差异，给予个性化指导，确保每位学生都能达到课程目标。
通过本节课的学习，使学生能够熟练掌握For循环的使用，为后续编程学习打下坚实基础。
二、教学内容本节课教学内容主要包括以下几部分：1. For循环基本概念：介绍For循环的定义、作用及其在程序中的重要性。
- 教材章节：第3章“循环结构程序设计”2. For循环的结构与语法：- 初始化表达式、循环条件、循环体、循环变量的更新。
- 教材章节：第3章“循环结构程序设计”3. For循环的执行过程：- 解释For循环的执行流程，分析循环次数的计算。
- 教材章节：第3章“循环结构程序设计”4. For循环的应用实例：- 数值计算：如求解最大公约数、计算阶乘等。
- 数组操作：如求和、平均值、查找等。
- 教材章节：第3章“循环结构程序设计”及第4章“数组”5. For循环的调试与优化：- 分析常见错误，如循环条件设置不当、循环变量更新错误等。
vb程序设计课程设计报告彩票
vb程序设计课程设计报告彩票一、课程目标知识目标：1. 让学生理解VB程序设计的基本原理和彩票业务逻辑；2. 掌握运用VB编程实现彩票号码生成、显示、存储等功能；3. 学会分析彩票系统中的随机数生成算法及其应用。
技能目标：1. 能够运用VB编程语言编写简单的彩票程序，实现基本功能；2. 培养学生独立分析问题、解决问题的能力；3. 提高学生的编程实践能力和团队协作能力。
情感态度价值观目标：1. 培养学生对计算机编程的兴趣，激发学习积极性；2. 培养学生严谨、细致的学习态度，养成良好的编程习惯；3. 增强学生的创新意识，鼓励尝试和探索。
课程性质：本课程为选修课，旨在让学生在掌握基本编程知识的基础上，进一步提高编程实践能力。
学生特点：学生已经具备一定的计算机操作能力和VB编程基础，对新鲜事物充满好奇心。
教学要求：注重理论与实践相结合，鼓励学生动手实践，培养实际编程能力。
在教学过程中，将课程目标分解为具体的学习成果，以便进行教学设计和评估。
通过本课程的学习，使学生能够独立完成一个简单的彩票程序设计，提高学生的编程技能和创新能力。
二、教学内容1. 彩票系统概述：介绍彩票的基本概念、分类及我国彩票市场现状。
2. VB程序设计基础：回顾VB编程环境、基本语法和数据类型。
3. 随机数生成算法：讲解伪随机数生成方法，分析在彩票程序中的应用。
4. 彩票号码生成与显示：学习如何使用VB实现随机生成彩票号码，并在界面上显示。
5. 彩票号码存储与查询：教授如何将生成的彩票号码存储到文件中，并实现查询功能。
6. 彩票程序调试与优化：介绍程序调试方法，分析程序性能，进行优化。
教学内容安排与进度：第1周：彩票系统概述，VB程序设计基础回顾；第2周：随机数生成算法，彩票号码生成与显示；第3周：彩票号码存储与查询；第4周：彩票程序调试与优化。
教材章节关联：1. 彩票系统概述：与教材第1章“VB程序设计概述”相关；2. VB程序设计基础：与教材第2-3章“VB基本语法”和“数据类型”相关；3. 随机数生成算法：与教材第4章“随机数”相关；4. 彩票号码生成与显示、存储与查询：与教材第5章“文件操作”和第6章“界面设计”相关；5. 彩票程序调试与优化：与教材第7章“程序调试与优化”相关。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械设计制造及其自动化班级：94060106 学号：2009040601204 题目：简单的汽车站售票系统一、课程设计时间2011年3月14日~20日（第二周），共计一周。
二、课程设计内容假设每天“沈阳→植物园”有4个班次的汽车，具体的数据如下：班次发车时间载客量已售票数1 06:40 50 02 09:30 40 03 13:00 40 04 16:00 40 0数据保存在文本文件或Access数据库中，请你为售票员开发一个程序，实现每天的“沈阳→植物园”的售票、退票等业务。
要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票，如果某个班次的票已售完，则也不能再售票。
用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项。
三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字指导教师：________ 学生签名：________五、成绩六、教师评语目录需求分析 (4)设计分析 (4)技术要点 (6)主要界面截图 (7)总结 (9)完整的源程序 (10)参考文献 (15)需求分析介于乘客买票十分麻烦，需要开发一套自动的售票系统，实现乘客自主的买票，退票，查询，为乘客创造方便。
设计分析（1）概述：本次设计涉及到数据库系统，SQL查询语言，ADO数据控件技术，实现了用户买票，退票，售票查询等功能，并且在售票界面，根据时间判断车次是否已经发车，且在查询系统中可以显示售票情况。
（2）总体设计：汽车站售票系统应该有一个主界面，在主界面下，应该有售票界面，退票界面和查询界面。
（3）详细设计：技术要点程序中用到了Access数据库知识，SQL查询语言，ADO数据控件的使用。
例如：Adodc1.RecordSource = "select 班次, 发车时间, 载客量, 已售票数, 载客量-已售票数 as 剩余票数 from 车次信息"，就运用到了SQL查询语言。
Public Sub dysjy(Adodc1 As Adodc)Adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &"\mydata.mdb;Persist Security Info=False"mandType = adCmdTextAdodc1.RecordSource = "select * from 车次信息"End Sub运用到了就是ADO控件。
1关于数据库的连接①选择数据源连接方式。
鼠标右键单击ADO数据控件，选择弹出菜单中“ADODC属性”命令，打开控件“属性页”对话框，使用方式是“使用连接字符串”。
②选择数据库类型。
单击“生成”按钮，将数据连接属性设置为Microsoft Jet 4.0 OLE DB Provider，才能连接Access数据库。
③指定数据库文件名。
在选择了OLE DB提供者后，单击“下一步”按钮或选择“连接”按钮，指定数据库文件名。
④指定记录源。
2 SQL语句的应用在SQL中用于数据查询的语句是SELECT语句。
SELECT语句常用的语法形式为：SELECT 目标表达式列表 FROM 表名[WHERE 查询条件]例如我的程序中Adodc1.RecordSource = "select * from 车次信息"就应用到了SELECT语句。
主要界面截图图1汽车售票系统主界面图2 售票界面图3 退票界面图4 当前售票情况界面总结经过了为期一周的VB课设，使我懂得了很多。
以前讲课的时候，很多东西都是老师演示给我们看，那个时候总是感觉很简单，老师轻轻松松几步，程序就出来了，所要求的功能就实现了，所以听课的时候就马马虎虎，认为VB很简单。
我的课设题目是设计一个简单的售票系统，看了以后感觉脑子里没有一点头绪，所以课设的第一天仅仅做了做界面，程序是一点都没有编出来。
回到寝室以后，仔细的看了看教材上关于数据库方面的，才慢慢的有了一些思路，尝试着去编了一些程序。
然后就试着运行，发现有错误的地方就仔细地看看书上关于这方面是怎么说的，程序应该怎么编才是正确的。
有些地方实在不明白，大家就在一起探讨一下，通过同学之间的交流，以前不明白的地方，现在都已经能掌握了。
经过了一个星期的努力，我的程序终于编完了，基本要求的功能都具备了。
看着自己花费一星期时间做的程序，感觉心里挺高兴的，努力终会有收获的。
这次的课设使我对数据库这方面知识有了更深一层次的理解，更使我理解到“纸上得来终觉浅，绝知此事要躬行”。
凡是只看别人做，觉得挺简单的，但是到我们自己做的时候才发现，其实这里面也有很深的学问，并非表面上看上去那么简单。
这次VB课设，使我认识到的最深的就是这一点。
完整的源程序Public myfrm As frmMainSub Main()'禁止同时打开多个程序If App.PrevInstance = True ThenMsgBox App.EXEName & "已经运行", vbInformation, "" EndEnd IfSet myfrm = New frmMainLoad myfrmmyfrm.ShowEnd SubPublic Sub dysjy(Adodc1 As Adodc)Adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydata.mdb;Persist Security Info=False"mandType = adCmdTextAdodc1.RecordSource = "select * from 车次信息"End SubPrivate Sub Command1_Click()Me.HidefrmSP.ShowEnd SubPrivate Sub Command2_Click()Me.HidefrmTP.ShowEnd SubPrivate Sub Command3_Click()Me.HidefrmSPQK.ShowEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Combo1_Click()Adodc1.RecordSource = "select * from 车次信息 where 班次='" & Combo1.Text & "'"Adodc1.RefreshFor i = 0 To Adodc1.Recordset.Fields.Count - 1Text1(i).DataField = Adodc1.Recordset(i).NameNext iText2.SetFocusEnd SubPrivate Sub Command1_Click()If Combo1.ListIndex = -1 ThenMsgBox "请先选择班次", vbInformation, ""Combo1.SetFocusElseIf DateDiff("s", Time, CDate(Text1(1).Text)) <= 0 Then MsgBox "该班次已经发车，请选择其他班次", vbInformation, "提示"Combo1.SetFocusElseIf Val(Text2.Text) > (Val(Text1(2).Text) -Val(Text1(3).Text)) And (Val(Text1(2).Text) <> Val(Text1(3).Text)) Then MsgBox "售票数量不能大于当前剩余票数", vbInformation, "提示" Text2.Text = ""Text2.SetFocusElseIf Val(Text2.Text) > (Val(Text1(2).Text) -Val(Text1(3).Text)) And (Val(Text1(2).Text) = Val(Text1(3).Text)) Then MsgBox "该班次车票已经全部售完，请选择其他班次"ElseAdodc1.Recordset("已售票数").Value =Adodc1.Recordset("已售票数").Value + Val(Text2.Text)Adodc1.Recordset.UpdateMsgBox "购票成功", vbInformation, ""End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Me.HidefrmMain.ShowEnd SubPrivate Sub Form_Load()dysjy Adodc1Set DataGrid1.DataSource = Adodc1 '绑定到网格For i = 0 To Adodc1.Recordset.Fields.Count - 1Set Text1(i).DataSource = Adodc1 '连接数据Next iFor j = 1 To Adodc1.Recordset.RecordCountCombo1.AddItem Adodc1.Recordset("班次").ValueAdodc1.Recordset.MoveNext '执行下一条Next jEnd SubPrivate Sub Form_Unload(Cancel As Integer)Command2_ClickEnd SubPrivate Sub Combo1_Click()Adodc1.RecordSource = "select 班次, 发车时间, 载客量, 已售票数, 载客量-已售票数 as 剩余票数 from 车次信息 where 班次='" &Combo1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Command1_Click()Adodc1.RecordSource = "select 班次, 发车时间, 载客量, 已售票数, 载客量-已售票数 as 剩余票数 from 车次信息"Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Me.HidefrmMain.ShowEnd SubPrivate Sub Form_Load()dysjy Adodc1Adodc1.RecordSource = "select 班次, 发车时间, 载客量, 已售票数, 载客量-已售票数 as 剩余票数 from 车次信息"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1For j = 1 To Adodc1.Recordset.RecordCountCombo1.AddItem Adodc1.Recordset("班次").ValueAdodc1.Recordset.MoveNextNext jEnd SubPrivate Sub Form_Unload(Cancel As Integer)Command2_ClickEnd SubPrivate Sub Combo1_Click()Adodc1.RecordSource = "select * from 车次信息 where 班次='" & Combo1.Text & "'"Adodc1.RefreshFor i = 0 To Adodc1.Recordset.Fields.Count - 1Text1(i).DataField = Adodc1.Recordset(i).NameNext iText2.SetFocusEnd SubPrivate Sub Command1_Click()If Combo1.ListIndex = -1 ThenMsgBox "请先选择班次", vbInformation, ""Combo1.SetFocusElseIf Val(Text2.Text) > Text1(3).Text ThenMsgBox "退票数量大于已售票数，请确认班次是否正确", vbCritical, "错误"Text2.SetFocusElseAdodc1.Recordset("已售票数") = Adodc1.Recordset("已售票数") - Val(Text2.Text)Adodc1.Recordset.UpdateMsgBox "退票成功", vbInformation, ""Text2.Text = ""End IfEnd IfEnd SubPrivate Sub Command2_Click()Me.HidefrmMain.ShowEnd SubPrivate Sub Form_Load()dysjy Adodc1Set DataGrid1.DataSource = Adodc1For i = 0 To Adodc1.Recordset.Fields.Count - 1 Set Text1(i).DataSource = Adodc1Next iFor j = 1 To Adodc1.Recordset.RecordCountCombo1.AddItem Adodc1.Recordset("班次").Value Adodc1.Recordset.MoveNextNext jEnd SubPrivate Sub Form_Unload(Cancel As Integer) Command2_ClickEnd Sub参考文献[1] 刘瑞新《Visual Basic程序设计教程》机械工业出版社，2003[2] 龚沛曾《Visual Basic程序设计教程》高等教育出版社，2007。