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用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
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实验报告(实验10)
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。
2）、熟练掌握使用File 和Directory 对象操作文件的方法。
3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。
4）、理解流的概念。
5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。
实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。
还要再添加一个OpenFileDialog 控件。
界面安排如图T10-1。
3、 编写程序代码引入System.IO 名称空间。
单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。
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章“程序调试与优化”相关。
VB程序设计实训报告
《VB程序设计》实训报告实训名称：教学信息管理系统实训专业：计算机应用技术班级：计算机10A1学号：*********姓名：陈健指导教师：***2011 年6月18 日实训成绩一、实训目的1. 学会综合运用VB有关的控件、函数和对象的知识，掌握VB的程序设计方法和技术。
2.通过一个教学信息管理系统的开发，掌握VB与ACCESS数据库的综合编程方法。
3. 掌握ACCESS数据库的设计；数据库的连接；绑定控件的属性设置、ADO数据控件的属性和方法；功能模块的编程和实现方法。
4.提高学生分析和解决实际问题的能力，调试和分析应用程序的能力，达到一定的应用程序设计水平。
二、实训报告内容2.1实训内容：教学信息管理系统采用C/S体系结构，采用Visual Basic 6.0作为开发工具，采用ACCESS数据库作为后台管理。
1.根据需求分析，创建ACCESS数据库和数据表2.主窗体和系统菜单设计3.用户管理，用户登录界面设计4.学生信息管理模块设计5.课程管理、班级管理、教师管理模块设计6.学生成绩管理模块设计根据实训项目各个模块任务要求，进行程序设计和调试。
实现信息的录入、编辑修改、删除、浏览功能，能实现信息的一般查询功能和条件查询功能，并进行系统总体整合和调试。
2.2 实训设备或软、硬件1. PC计算机，Windows XP操作系统2.Visual Basic 6.0集成开发环境3.ACCESS 2003数据库系统三、结论经过近两周的实训，我发现我对《VＢ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。
实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。
结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。
VB文本编辑器设计报告
文本编辑器设计报告学院班级学号姓名成绩一、设计思路1.要达到的目的①单击“打开文件”按钮，在TextBox控件中打开一个文本文件并显示，为了阅读者的方便，在文本框中要加入水平和垂直滚动条。
②单击“查找与替换”按钮，可以在文本中查找或替换指定的第一个内容；单击“查找下一个”按钮，可连续进行给定内容的查找与替换。
③单击“保存文件”按钮，可以将编辑后的文本文件保存到指定的位置。
④“编辑框只读”按钮的功能是控制能否对文本框中的内容进行编辑。
⑤要想结束程序，应单击“退出”按钮。
2.关键问题的解决①打开文件并显示及滚动条的添加成功解决。
②查找与替换功能尚未完全成功③保存文件问题完全解决④编辑框按钮功能可用⑤退出可执行⑥创新中的改变字体字号可行⑦创新中滚动条控制颜色并给文字着色可行二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释1.文本文件的读入sFile = InputBox("请输入要打开的文件名及扩展名：", "打开文件")If Dir(sFile) <> "" ThenOpen App.Path & "\" & sFile For Input As #1temp = StrConv(InputB(LOF(1), #1), vbUnicode)EditTXT.Text = tempClose #1EditFrm.Caption = "文本编辑器— " & sFileElseMsgBox "指定的文件" & sFile & "未找到!", 48, "文件打开"End If说明：对于文本文件中包含的字节数据要使用InputB 函数。
对于InputB 来说，number 指定的是要返回的字节个数，而不是要返回的字符个数。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
南京工程学院课程设计说明书（论文）题目打字练习课程名称VB语言课程设计院(系、部、中心)专业班级学生姓名学号设计地点图书馆基础教学机房指导教师设计起止时间：201x年x月x日至201x年x月x日目录一、设计任务 (3)二、方法原理 (3)三、总体设计思路 (3)四、程序调试和解决问题 (4)五、完善及存在的问题 (4)六、收获体会 (4)七、意见建议 (4)八、示例截图 (5)九、附录1（代码） (6)十、附录2（主要参考资料） (10)一、设计任务1.题目介绍在计算机及其他数码产品日益普及的今天，人们使用键盘应像用笔写字一样熟练。
进行打字练习时熟悉键盘并提高打字速度的好方法。
本体要求编制一个打字练习游戏程序，使用户在游戏过程中进行打字练习。
2.功能要求（1）启动界面如图1（2）选择难度和速度后，单击“开始”按钮，界面如图1。
若选择简单，则落下字母；若选择复杂，单击开始后出现对话框，如图 2.单击确定，开始练习，落下单词。
（2）若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”然后消失。
根据程序速度和难度的设置自动进行积分，实时分数时间正确率掉落个数显示在窗体的上部。
积分规则：正确击中一个字母或一个单词，加一分；反之，不得分，亦不扣分。
（4）当游戏者单击“暂停”按钮时，程序停止运行，在单击“开始”按钮，程序继续运行；当单击“退出”按钮时，则弹出对话框（如截图示例3），单击“取消”按钮，程序继续运行，单击“确定”按钮，则弹出对话框（如截图4），此时对话框显示分数，单击“确定”按钮，退出程序。
（5）为了增加视觉效果，每个掉落的字符的颜色随机产生。
二、方法原理根据题目要求，使用控件数组，用标签标题表示字符，键盘事件的处理判断打字正确与否，随机值的产生方法随机产生字符，用Timer控件属性反映时间、控制字符下落速度。
三、总体设计思路首先在窗体上画出三个按钮标题分别为开始、暂停、退出。
画六个标签分别表示已落字母个数、已花时间、得分与正确率。
画出一个含有五个元素的标签控制数组用以显示字符。
画出两个时间控件，一个用来返回已用时间，一个控制字符下落。
最后编写相关代码四、程序调试和解决问题五个标签所显示的字符始终不变。
调试：当打字正确或标签落到屏幕底部之后重新让标签标题取随机字符五、完善及存在的问题存在的问题：打错字后没有相应的减分措施。
正常打字应是练习打汉字，而不是打西文字母，应该进成打汉字练习。
完善：取一百个汉字，赋值给一个字符串类型的数组，用产生随机数的方法确定数组下标从而随机取汉字，标签的标题用随机产生的汉字字符表示。
六、收获体会“纸上得来终觉浅，绝知此事要躬行”。
通过这次课程设计我懂得了vb课程设计就是培养我们综合运用所学知识、提高我们发现问题、分析问题、解决问题的能力的。
通过这一周的课程设计我不仅巩固了所学vb知识，还接触到了很多新的知识点。
我了解到很多时候理论远远比实践简单，很多时候我们只有把所学的理论知识与实践结合起来才能真正理解理论，才能得到真正的提高。
由于是第一次做这种相对复杂的程序设计，在课程设计中我遇到了很多困难发现了自己在vb这门课上的很多不足之处，很多知识只有模糊的记忆，不能灵活地运用，通过这次实践我体会到神么叫温故而知新。
学习中我们要不断对前面所学进行回顾。
这次实践不仅增加了我的vb知识，还让我明白了遇到困难我们要保持沉着冷静的心态，只要我们有有一种坚定不移的执着以及永不言弃的精神坚持做下去很多困难就会迎刃而解。
做一个程序设计实在很不容易，其中要用到很多知识，需要翻阅大量书籍，尤其是在资料上根本找不到的设计，但是收获同样是很大的，在翻阅书籍的过程中，再请教别人的过程中，我得到的不仅仅是知识，还有很多经验，我学会了自学，学会了和别人交流合作。
七、意见建议也许老师平时讲到一个代码或者函数的时候，随即讲解一个与之相关的程序，运行下，会更好。
也可以在电脑房上课。
或者下次上课的时候还可以让我们自己带上电脑，随时随地就可以练习。
八、示例截图图1图2图3图4九、附录1（代码）Dim h As IntegerDim n As IntegerPrivate Function suiji() '随机产生字母和随机选取单词函数Dim a As IntegerDim ci As StringDim b As StringRandomizeword = Array("sway", "sneak", "naked", "maple", "ample", "lough", "plasma", "tude", "plague", "pledge", "play", "prowl", "pluckbandit", "gangster", "commemorate", "solar", "elipse", "luna", "lunatic", "tumble", "mortal", "moral", "fade", "flinch", "spout", "sprout", "spurn", "spoil", "sparrow", "sprain", "plasma", "mare", "malady", "glisten", "bereave", "glimme", "rslim", "crave", "amiable", "able", "blizzard", "lizard", "bruise", "bromide", "place", "bale") '存放供练习的单词b = Int(Rnd * (UBound(word) + 1)) '产生单词序号a = Int((122 - 97 + 1) * Rnd + 97) '产生97到122之间的整数If Option1.Value Thensuiji = Chr(a) '如果选择简单单选框，则函数的返回值为小写字母Elsesuiji = word(b) '如果选择复杂单选框，则函数的返回值为单词End FunctionPublic Sub Command1_Click() '开始按钮Dim i%If Option2.Value Theni = MsgBox("输入单词后，请按空格键确认", , "注意") '操作提示End IfFor i = 0 To Label1.Count - 1Label1(i).Visible = TrueLabel1(i).Caption = suijiLabel1(i).ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '随机产生字母，单词，颜色随机NextTimer1.Enabled = TrueTimer2.Enabled = TrueOption1.Enabled = FalseOption2.Enabled = FalseCommand1.Enabled = False '将计时器，速度调节，难度选择和开始按钮禁用Text1.SetFocus '将焦点转移到文本框End SubPrivate Sub Command2_Click() '暂停按钮Timer1.Enabled = FalseTimer2.Enabled = FalseCommand1.Enabled = TrueEnd SubPrivate Sub Command3_Click() '退出按钮If MsgBox("确定要退出?", vbYesNo) = vbYes ThenMsgBox "得分" & h & "分", , "成绩" '退出提示Unload Me '关闭窗体End IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Dim b As IntegerDim c As IntegerIf KeyAscii >= 97 And KeyAscii <= 122 Thenci = ci + Chr(KeyAscii) '将输入的单词赋值给空字符串ciEnd Ifb = -1If Option1.Value Then '选择简单For i = 0 To Label1.Count - 1 '遍历所有产生字母If Label1(i).Caption = Chr(KeyAscii) Then '判断产生的字母和输入的字母是否相等If Label1(i).Top > b Then '判断字母是否已经落出c = iEnd IfEnd IfNextElseIf KeyAscii = 32 Then '如果敲了空格，则进行单词比较操作For i = 0 To Label1.Count - 1 '遍历所有产生字母If Label1(i).Caption = ci Then '判断产生的单词和输入的单词是否相等If Label1(i).Top > b Then '判断字母是否已经落出c = iEnd IfEnd IfNextci = ""End IfEnd IfIf c > -1 ThenLabel1(c).Top = -10 '如果输入正确，则将字母标签隐藏到顶部Label1(c).Caption = suiji '字母标签随机产生字母h = h + 1 '如果输入正确，则得分加1Label5.Caption = "当前得分:" & h '显示当前得分Else: n = n + 1Label3.Caption = "掉落个数:" & n '显示掉落个数End IfEnd SubPrivate Sub Timer1_Timer()Timer1.Interval = 1000For i = 0 To Label1.Count - 1Label1(i).Top = Label1(i).Top + 500 '控制字母，单词移动，以及移动速度If Label1(i).Top > Form1.Height Thenn = n + 1 '记录掉落个数Label3.Caption = "掉落个数:" & nLabel1(i).Top = -10RandomizeLabel1(i).ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '产生颜色If n = 26 ThenIf MsgBox("已经错过" & n & "个,重新开始？", vbYesNo) = vbYes Then '提示框Form_Loadmand1_ClickElseForm_Load '控制重新游戏还是结束游戏End IfEnd IfNextEnd SubPrivate Sub Timer2_Timer()Timer2.Interval = 1000If (n + h) <> 0 ThenLabel6.Caption = "正确率：" & h / (n + h) * 100 \ 1 & "%" '显示正确率End IfStatic ss = s + 1Dim miao As StringDim fen As StringDim shi As StringIf s Mod 60 < 10 Thenmiao = 0Elsemiao = ""End IfIf (s Mod 3600) \ 60 < 10 Thenfen = 0Elsefen = ""End IfIf s \ 3600 < 10 Thenshi = 0Elseshi = ""End IfLabel4.Caption = "时间" & shi & s \ 3600 & ":" & fen & (s Mod 3600) \ 60 & ":" & miao & s Mod 60 '显示已用时间End SubPrivate Sub Form_Load()Text1.Top = -1000Label6.Caption = "正确率：0"Label4.Caption = "时间00:00:00"Label3.BackStyle = 0Label4.BackStyle = 0Label5.BackStyle = 0Label6.BackStyle = 0 '将标签2到6的背景设为透明For i = 0 To Label1.Count - 1Label1(i).Visible = False '将标签Label1(1)到Label1(5)的初始状态设为不可见Label1(i).Top = 600 * (i + 1) '设置字母或单词的的位置Label1(i).Caption = suiji '最初出现的字母或者单词Label1(i).FontSize = 25 '设置字体大小Label1(i).AutoSize = True '标签大小自动可调Label1(i).BackStyle = 0 '透明NextLabel3.Caption = "掉落个数:" & nLabel5.Caption = "当前得分:" & hLabel5.ForeColor = RGB(0, 255, 0)Label3.ForeColor = RGB(0, 255, 0)Label6.ForeColor = RGB(255, 0, 0)Label4.ForeColor = RGB(255, 0, 255) '设置字体颜色End Sub十、附录2（主要参考资料）1.VB课程设计简明教程（第三版）（高等教育出版社）2.VB课程设计（清华出版社）第11页。