vb课程设计--背单词程序

《vb课程设计--背单词程序》由会员分享，可在线阅读，更多相关《vb课程设计--背单词程序（17页珍藏版）》请在金锄头文库上搜索。

1、华东交通大学 1 VB 课程设计课程设计(论文论文)任务书任务书 土木建筑土木建筑 学院 土木土木-道路与铁道道路与铁道 专业 2 班 一、课程设计(论文)题目 ： 背单词背单词 二、课程设计(论文)工作自 2015 2015 年 6 6 月 15 日起至 2015 2015 年 6 6 月 21 21 日止 三、课程设计(论文) 地点: 计算中心计算中心 四、课程设计(论文)内容要求： 1. 本课程设计的目的本课程设计的目的 （1）使学生掌握系统各功能模块的基本工作原理；）使学生掌握系统各功能模块的基本工作原理； （2）培养学生掌握程序设计的）培养学生掌握程序设计的基本思路和方法；基本思路和

2、方法； （3）使学生掌握程序调试方法；）使学生掌握程序调试方法； （4）培养学生分析、解决问题的能力；）培养学生分析、解决问题的能力； （5）提高学生的论文写作能力。）提高学生的论文写作能力。 2. 课程设计的任务及要求课程设计的任务及要求 (1) 基本要求：基本要求： 1）对系统功能进行需求分析； 2）使用 Visual basic 开发环境进行程序开发； 3）提出系统的设计方案； 4） 编写源程序代码并进行调试。 (2) 创新要求创新要求 在基本要求达到后，可进行创新设计。 (3) 课程设计报告撰写及装订要求课程设计报告撰写及装订要求 课程设计报告的撰写要求表述简明，图表准确。 报告按如下

3、内容和顺序用 A4 纸进行打印并装订成册。 1）封面 采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。 2）设计任务书 3）评阅书 4）目录 5）正文 6）主要参考文献 (4) 课程设计评分标准：课程设计评分标准： 1）学习态度 20 分； 2）完成设计过程（含论文） ：40 分； 3）完成调试：20 分； 4）设计创新：20 分。 成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。 华东交通大学 2 (5) 参考文献参考文献 （1） Visual basic 程序设计【M】 熊李艳 周美玲（人民邮电出版社。2011。3） （2） Visual basic 程

4、序设计实验教程【M】 吴昊 杜玲玲（人民邮电出版社。2011。3） （3） http:/ 课程设计进度安排课程设计进度安排 内容内容 天数天数 地点地点 系统分析及收集资料 2 图书馆 编写与调试程序 2 计算中心 撰写论文 3 图书馆、计算中心 (7）课程设计题目具体）课程设计题目具体要求：要求： 设计要求设计要求：设计一个背单词程序设计一个背单词程序。 1. 单词以滚动字幕的形式显示，并可调整速度，具备暂停功能； 2可以添加生词、随机从生词库中抽取单词进行复习（显示中文或显示英文） ，并能记录生词背不出的频度； 3.程序运行流畅，界面友好美观。 学生签名： 2015 年 6 月 20 日

5、课程设计（论文）评阅意见课程设计（论文）评阅意见 序号 项 目 等 级 优秀 良好 中等 及格 不及格 1 课程设计态度评价 2 出勤情况评价 3 任务难度评价 4 工作量饱满评价 5 设计中创新性评价 6 论文书写规范化评价 综合评定等级 评阅人评阅人 梅艳梅艳 职称职称 讲师讲师 20 15 20 15 年年 月月 日日1 目录目录 目录 . 错误错误!未定义书签。未定义书签。 第一章 系统概要 2 1.1 功能大概介绍.2 第二章 总体设计 3 2.1 设计思路3 2.2 属性窗口.4 第三章 程序源代码 5 第四章 运行结果及分析 11 4.1 运行结果11 4.2 程序分析.12 第

6、五章 心得体会 13 华东交通大学 2 第一章第一章 系统概要系统概要 现在的学生面临各种各样的学业压力，其中英语就是一种，我们高考面对英语，到了大学 还要面对四六级英语考试，英语对于许多学生是一件非常头疼的事。在英语学习的过程中， 背单词这个枯燥但必要的过程是离不开的， 所以一个好的背单词的软件是不容缺少的。 本程 序要求编写一个背英语单词的程序。 1.1 功能大概介绍功能大概介绍 （1） 启动程序；可以看见一个窗口，窗口由一个显示单词的白色“横条”和诸多按 钮组成； （2） 运行程序；1.您可以选择词库，词库选择有英语四级、英语六级、复习四级 生词和复习六级生词； 2.可以选择单词的首字母

7、的范围， 可以选择单词的显示是随机的 还是循环的； 3.单击开始按钮，单词会有滚动的形式展现出来，这个时候您可 以选择暂停来背单词， 如果这个单词不认识或者是以后还需注 意的，可以添加进生词库，生词库的选择有两种，可根据你背 单词的词库来选择对应的生词库 （注： 单击开始之后不允许再 次选择词库） ； 4.复习生词，可以选择生词库来复习生词，复习的时候如果不认 识可以单击“不认识”按钮，之后就会显示您已经不认识这个 单词有多少次，即该单词的错误率； 5.另外您还可以调节单词滚动的快慢和单词的字体大小。 （3） 结束运行；单击“结束”按钮即可。 华东交通大学 3 第二章第二章 总体设计总体设计

8、2.1 设计思路设计思路 进入程序 选选 择择 词词 库库 选选 择择 单单 词词 首首 字字 母母 范范 围围 选选 择择 循循 环环 还还 是是 随随 机机 单击“开始”按钮单击“开始”按钮 将将 不不 认认 识识 的的 单单 词词 添添 加加 生生 词词 库库 单单 击击 暂暂 停停 按按 钮钮 单单 击击 退退 出出 按按 钮钮 单单 击击 继继 续续 按按 钮钮 华东交通大学 4 2.2 属性窗口属性窗口 各个控件的 caption 属性按照其功能做出相应的改变，具体改变请看后面的运行结果； Combol1 的 list 属性为“四级英语单词” 、 “六级英语单词” 、 “复习四级生

9、词” “复习六级生 词” ； “暂停”按钮的 Enable 属性 False； “暂停”按钮的名称为 cmd_stop ； “开始”按钮的名称为 cmd_start ； “结束”按钮的名称为 cmd_exit ； “添加四级生词”按钮的名称为 cmd_cet4_newwords ； “添加六级生词”按钮的名称为 cmd_cet6_newwords ； “随机”按钮的名称为 chkRand ； “循环”按钮的名称为 chkLoop ； “不认识”按钮的名称为 unknown； Text1 的 Visible 属性为 False； Timer1 的 interval 属性为 100； Timer2

10、 的 interval 属性为 100。 华东交通大学 5 第三章第三章 程序源代码程序源代码 Option Explicit Option Base 1 Dim words() As String, X As String Dim n As Integer, j As Integer, k As Integer Dim i As Integer Dim cur As Integer, st As Integer, en As Integer Dim newword() As String Private Sub chkRand_Click() “随机“和“循环“两个按钮的可见性 If chk

11、Rand.Value = 1 Then chkLoop.Value = 0 chkLoop.Enabled = False Else chkLoop.Enabled = True End If End Sub Private Sub cmd_exit_Click() 结束按钮 End End Sub Private Sub cmd_start_Click() cmd_start.Enabled = False Dim X As String Label8.Left = Picture1.Left + Picture1.Width If Combo1.Text = Combo1.List(0)

12、Then 读入词库文件 Open App.Path & “四级词汇.txt“ For Input As #1 ElseIf Combo1.Text = Combo1.List(1) Then Open App.Path & “六级词汇.txt“ For Input As #1 ElseIf Combo1.Text = Combo1.List(2) Then Open App.Path & “四级生词库.txt“ For Input As #1 Else Open App.Path & “六级生词库.txt“ For Input As #1 End If n = 0 逐行输出文件 Do Unti

13、l EOF(1) n = n + 1 华东交通大学 6 ReDim Preserve words(n) Line Input #1, words(n) Loop Close #1 st = 1 Do Until Chr(Asc(words(st) = LCase(Combo2.Text) 起始首字母的选择 st = st + 1 Loop en = n Do Until Chr(Asc(words(en) = LCase(Combo3.Text) 结尾首字母的选择 en = en - 1 Loop cur = st 将所选第一个单词的位置赋给变量 cur Timer1.Enabled = Tr

14、ue Timer2.Enabled = True cmd_stop.Enabled = True cmd_stop.Caption = “暂停“ End Sub Private Sub cmd_stop_Click() 暂停和继续的转换 If cmd_stop.Caption = “暂停“ Then cmd_stop.Caption = “继续“ Timer1.Enabled = False Timer2.Enabled = False cmd_cet4_newwords.Enabled = False cmd_cet6_newwords.Enabled = False Else cmd_stop.Caption = “暂停“ Timer1.Enabled = True Timer2.Enabled = True cmd_cet4_newwords.Enabled = True cmd_cet6_newwords.Enabled = True End If End Sub Private Sub Combo1_Click() If cmd_start.Enabled = False Then X = MsgBox(“请退出后再