VB课程设计背单词.doc

华东交通大学课程设计
VB课程设计(论文)任务书

土木建筑 学院　 建筑环境与能源应用工程 专业 2　班
一、课程设计(论文)题目 ： 背单词
二、课程设计(论文)工作自 年 月 日起至 年 月 日止
三、课程设计(论文) 地点: 计算中心
四、课程设计(论文)内容要求：
1. 本课程设计的目的
（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。
（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。
（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。
2. 课程设计的任务及要求
2.1基本要求：
(1) 对系统功能进行需求分析；
(2) 使用Visual basic开发环境进行程序开发；
(3) 提出系统的设计方案；
(4) 提出系统的设计方案；
(5) 编写源程序代码并进行调试。
2.2创新要求
在基本要求达到后，可进行创新设计。
2.3课程设计报告撰写及装订要求
课程设计报告的撰写要求表述简明，图表准确。
报告按如下内容和顺序用A4纸进行打印并装订成册。
（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
（2）设计任务书
（3）评阅书
（4）目录
（5）正文
（6）主要参考文献
2.4 课程设计评分标准：
（1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；
（2）能正确回答设计的中老师所提问题，可增加10分；
（3）课程设计报告书写规范整齐，可增加10分；
（4）心得体会认真总结，可增加10分；
（5）程序有创新性，可增加10分；
成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。
2.5 课程设计进度安排

（1）准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。
（2）程序模块设计分析阶段（8学时）：程序总体设计、详细设计。
(3) 代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。
(4) 撰写论文阶段（6学时）：总结课程设计任务和设计内容，撰写课程设计论文。

学生签名：

20 年 月 日

课程设计（论文）评阅意见

序号
项 目
等　　　级
优秀
良好
中等
及格
不及格
1
课程设计态度评价

2
出勤情况评价

3
任务难度评价

4
工作量饱满评价

5
设计中创新性评价

6
论文书写规范化评价

综合评定等级

评阅人 职称
20 年 月 日

1

目　录
第1章 系统概要 1
1.1 窗体概要 1
1.2 窗体运行顺序 1
第2章 总体设计 2
2.1 设计思路 2
2.2 窗体功能及控键 2
第3章 码 4
第4章 运行程序代结果及分析 9
第5章 心得体会 11
参考文献 12

第1章 系统概要
1.1 窗体概要

图1-1
本窗体包含了多个控件。整个窗体最上方是用来显示单词的text控件；左下方用了一个Frame，其中是两个Label和三个Combo控件，用来选择单词词库以及单词显示范围；这个框架下方是两个Check和三个Command控件，用来选择单词显示方式以及控制单词的显示；右边也用了一个Frame，其中有对于显示单词的一些其他设置，使用了六个Label、两个Option和四个Hscroll控件，分别控制显示单词的字体大小、显示速度以及显示单词背景的颜色设置。
1.2 窗体运行顺序
控件是应用程序非常重要的组成部分，通过各种控件，应用程序可以实现不同的功能，通过本系统的设计，可以实现如下功能：
1. 选择词库可以切换四级词汇和六级词汇。
2. 选择范围可以从A到Z自由切换范围。
3. 选择随机可随机播放单词，并且循环变得不可选，选择循环可以循环播放单词，并且随机变得不可选。
4. 播放的单词可以选择字体大小、显示速度、颜色设置。
5. 点击开始可开始播放单词，点击暂停可暂停播放。
6. 运行结束可在程序主窗体中点击“退出”按钮即可结束运行程序。

12

第2章 总体设计
2.1 设计思路
背单词软件是英语学习类软件的分支，是专门针对用户背诵英语单词，掌握词汇量而制作的辅助学习软件。由于媒介为个人电脑，所以背单词软件有着其它背单词工具无法达到的智能化与互动性，但相对应的，过于依赖电脑和较差的便携性成为其缺陷。所以作为背单词的软件的设计思路应该简单为原则。用户操作必须简单、方便为原则。
1. 本题目提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件，通过“词库设置”中的“词库”组合框可以选择想要的词库。默认的词库是“大学生英语四级词汇”。
2. 为了便于用户使用，程序允许选择想要记忆的单词范围，默认的单词范围是“A”至“Z”，即全部单词。如果选择的范围是“A至C”，那么程序只显示以A,B和C字母开头的单词。程序应保证“起始字母”在“终止字母”之前，即不会出现类似于“C至A”的情况。
3. 据需要选择“随机”或“循环”复选框。如果不选择“随机”，则显示单词是以单词在词库中的顺序显示的，否则以随机顺序显示，如果不选择“循环”复选框，单词显示一遍之后会自动从头开始显示。在随机方式之下，循环是没有意义的，所以当“随机”复选框选定时，“循环”复选框应变为无效且呈现为选定状态。
4. 毕后，单机“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示所选的单词，包括词性和词义。在相爱你是过程中可以改变字体大小，滚动速度和背景显示颜色。单击“暂停”按钮可以暂停滚动，这是“暂停”按钮变为“继续”，单击会继续滚动。单机“退出”按钮退出主界面。
本程序在主窗体设置有“开始”、“ 暂停”、“ 结束”、三个子窗体控件。
2.2 窗体功能及控键
主窗体提供开始、暂停和结束三个快捷按钮。当程序运行时，显示主窗体，当用户点击相应的控制按钮时，程序进入相应的运行窗体。在不同的运行窗体根据控件属性值的相关提示进行下一步操作各窗体控件及其属性值与属性名见下列表（表2-1）。

表2-1 背单词界面控键
控件名
属性名
属性值
Commamd1
Caption
开始
Commamd2
Caption
暂停
Commamd3
Caption
结束
Frame1
Caption
词库设置
Frame2
Caption
其他设置
Text1
Text

Label1
Caption
词库
Label2
Caption
范围
Label3
Caption
字体大小
Label4
Caption
显示速度
Label5
Caption
颜色设置
Label6
Caption
R
Label7
Caption
G
Label8
Caption
B
Combo1
ComboBox

Combo2
ComboBox

Combo3
ComboBox

Check1
CheckBox

Check2
CheckBox

Option1
Value
False
Option2
Value
False

第3章 程序代码

Private s() As String, t() As String, r%
Private Sub Check1_Click()
Check2.Value = 0
If Check1.Value = 1 Then
Check2.Enabled = False
Else
Check2.Enabled = True
End If
End Sub

Private Sub Check2_Click()
Check1.Value = 0
If Check2.Value = 1 Then
Check1.Enabled = False
Else
Check1.Enabled = True
End If
End Sub
实现随机与循环复选框的选择，选择了随机框则循环框呈不可选择状态，选择了循环框则随机框呈不可选择状态。

Private Sub Combo3_Click()
If Combo3.ListIndex < Combo2.ListIndex Then
Combo3.Text = "Z"
MsgBox "起始字母必须在终止字母之前", 64, "系统提示"
Exit Sub
End If
End Sub
范围选择防止出现下标大于上标，否则会出现系统提示“起始字母必须在终止字母之前”。

Private Sub Command1_Click()
Command2.Enabled = True
Dim nextline As String
m = 0
r = 0
If Combo1.Text = "大学英语四级词汇" Then
Open App.Path + "\大学英语四级词汇.txt" For Input As #1
ElseIf Combo1.Text = "大学英语六级词汇" Then
Open App.Path + "\大学英语六级词汇.txt" For Input As #1
End If
词库选择
Do While Not EOF(1)
On Error Resume Next
Line Input #1, nextline
m = m + 1
ReDim Preserve s(m)
s(m) = nextline
If Asc(Left(s(m), 1)) > Combo2.ListIndex + 96 Then
r = r + 1
ReDim Preserve t(r)
t(r) = s(m)
End If
If Asc(Left(s(m), 1)) > Combo3.ListIndex + 97 Then
Exit Do
End If
Loop
将词库每行数据存入s(m)中，下标对应行号，实现范围选择，并将范围内的每行数据存入t(r)中，下标对应行号。
Close #1
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
If Timer1.Enabled = True Then
Command2.Caption = "继续": Timer1.Enabled = False
Else
Command2.Caption = "暂停": Timer1.Enabled = True
End If
End Sub
Private Sub Command3_Click()
If MsgBox("您确定要退出吗？", 4 + 32, "系统提示") = vbNo Then Exit Sub
Unload Form1
End Sub

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
窗口显示居中
Combo1.List(0) = "大学英语四级词汇"
Combo1.List(1) = "大学英语六级词汇"
Command2.Enabled = False
Combo1.Text = Combo1.List(0)
For i = 1 To 26
Combo2.List(i - 1) = Chr(64 + i)
Next i
Combo2.Text = Combo2.List(0)
Combo2.ListIndex = 0
For i = 1 To 26
Combo3.List(i - 1) = Chr(64 + i)
Next i
Combo3.Text = Combo3.List(25)
Combo3.ListIndex = 25
Option1.Value = True
Check1.Value = 0
Check2.Value = 0
HScroll2.Value = 0
HScroll3.Value = 0
HScroll4.Value = 0
Timer1.Enabled = False
Timer1.Interval = HScroll1.Max - HScroll1.Value
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Max - HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
Timer1.Interval = HScroll1.Value
End Sub

Private Sub HScroll2_Change()
Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFF
End Sub

Private Sub HScroll2_Scroll()
Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFF
End Sub

Private Sub HScroll3_Change()
Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFF
End Sub

Private Sub HScroll3_Scroll()
Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFF
End Sub

Private Sub HScroll4_Change()
Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFF
End Sub

Private Sub HScroll4_Scroll()
Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFF
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Text1.FontSize = 20
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.FontSize = 33
End If
End Sub
Private Sub Timer1_Timer()
Static n%, f As Boolean
On Error Resume Next
Select Case Check1.Value
Case 0
If n = r And Check2.Value = 1 Then
n = 0
ElseIf n = r And Check2.Value = 0 Then
f = False
Timer1.Enabled = False
Exit Sub
End If
If f = False Then Text1.Text = Space(46) & t(n + 1)
If Len(Text1.Text) > 0 Then
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1): f = True
Else
f = False: n = n + 1
End If
Case 1
Randomize Timer
If f = False Then Text1.Text = Space(46) & t(Int((r - 1) * Rnd + 1))
If Len(Text1.Text) > 0 Then
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1): f = True
Else
f = False
End If
End Select
终止默认循环
End Sub

第4章 运行结果及分析
4. 主窗体运行分析

图4-1

图4-2

首先选择词库，可选大学英语四级词汇和大学英语六级词汇，然后选择范围，以首字母为范围，从A到Z，不可前边的首字母先于后边的首字母，否则系统会提示“起始字母必须在终止字母前”，下边可以选择单词的显示方法，可选随机和循环，选定了其中一个另一个复选框就会变成不可被选中模式。若选择的是随机，则单词显示的顺序是随机的；若选择的是循环，则单词会在所选的范围内按照所选词库内的顺序循环显示。点击开始，单词会默认按照在文本中的顺序逐一显示，或者选择了随机后会在所选择的单词词库之中随机显示单词，另外可以选择显示单词的字体大小。滑动显示速度右边的滚动条可以调节单词显示的速度，默认是以最慢的速度显示；下边可以设置显示的背景颜色，提供了RGB三色自由配合，同样是滑动滚动条，调节当前滑动条所控制的颜色深度，往右边滑动是加深所选颜色，默认是三原色均最浅，即白色背景显示。点击暂停，显示的单词会停下，此时“暂停”这以控件会变成“继续”，再次点击，单词会继续显示，控件名称会改变回“暂停”，点击退出，系统会提示“真的要退出本程序吗”，点击是退出，点击否回到程序。整个窗体运行流畅，各个控件正常工作，均按照原来的设计思路工作。

第5章 心得体会

通过这次课程设计，VB编程水平有了很大的提高。从最开始编写这个程序到程序运行，经过对程序的反复调试与修改，深刻感受到编写一个程序是一个漫长而辛苦的过程，需要编程人员具备足够的耐心与细心。与此同时也培养我们查阅知识并通过自学掌握知识的能力。 程序的入手阶段是困难的，刚刚接触一个新的程序会感到无从下手。首先要做一些准备工作。要了解这个程序是干什么的，它应具备怎样的功能。当明确了这些问题 以后，就要针对不同的功能逐一的思考实现该功能的方法。对于每一个功能的实现需要用到那些知识，通过查阅相关知识，做到心中有数，再进行编程。编程时要先 制定一个大的框架，用几个模块，什么模块，那些事件过程，那些通用过程，当大致的轮廓出来后再进行深一步的编写，考虑语句的语法、逻辑，各个通用过程的调用，事件过程的实现。这里会遇到真正难以解决的问题，要再次通过查阅多方资料并结合认真思考来寻找解题思路。当然在编程的过程中最重要的一点就是善于总结，这样可以避免重蹈覆辙。 
在程序编写结束后，更要进行总结，认真思考怎样编写一个过程是简便快捷的，在下次遇到同样问题时可以节省时间，提高效率。 
这次做课程设计，了解了程序的编制过程和基本的思维方法,同时也对编程产生了浓厚的兴趣，希望能在课余时间多编制一些这样的小程序，可以学到更多的知识，同时提高编程的速度，锻炼思考方式，开拓思维空间，为我们今后的学习打下一个良好的基础。

参考文献

【1】熊李艳、周美玲.《Visual basic程序设计》（第一版）[人民邮电出版社]2011.3

【2】吴昊、杜玲玲《.Visual basic程序设计实验教案(第一版)》[人民邮电出版社]2011.3

【3】 《Visual basic程序设计》精品课程