《英汉小词典课程设计》由会员分享，可在线阅读，更多相关《英汉小词典课程设计（20页珍藏版）》请在金锄头文库上搜索。
1、课程设计20 20学年第二学期设计题目计算机语言程序设计课程设计-英汉小词典 目录20 20学年第二学期11概述31.1程学设计目的31.2 程序的根本功能31.3其它功能31.4 扩展功能32课题的分析42.1Button1查找42.2Button添加42.3Button3修改42.4Button4删除433模板格式说明53.1设计窗体如下：53.2功能模块的划分53.3各控件的属性53.4功能模块的说明主要流程和代码64课程设计总结：144.1完成情况144.2遇到的问题及解决145附录参考文献151 概述1.1 程学设计目的本次题目的设计的操作与实践是为了使学生了解使用VB 2005程序
2、设计方法，实现面向对象程序设计的相关理论知识和设计技巧，在一定程度上提高面向对象程序设计的综合设计能力，具体掌握的根本能力有以下几方面：l 了解一个英汉小词典开发的全过程。l 熟悉一些常用控件的使用，例如文件列表、标签、文本框、按钮、列表框等。l 熟悉一些常用控件的方法、事件的使用。l 熟悉顺序文件的读写。l 熟悉字符串的处理方法。1.2 程序的根本功能设计程序，左边列表框中的单词表由读取文件英汉小词典.txt得到，选择某单词后，会在上面的文本框中显示相应的内容，并且在右边显示相应的中文解释。1.3其它功能具有搜索、增加、修改、删除等功能。假设做过增加、修改、删除，应对英汉词典.txt做相应的
3、修改。1.4 扩展功能在文本框中输入单词时，程序会及时地将已输入的字符开头的所有单词显示在列表框中，供用户浏览；优化搜索算法。2 课题的分析2.1 Button1查找输入单词可以找到对应的中文意思2.2 Button添加添加词典中没有的英语单词及其中文意思2.3 Button3修改修改小词典中错误的单词及其中文意思2.4 Button4删除将单词从小词典中删除3 3模板格式说明3.1 设计窗体如下：图1.1设计窗体3.2 功能模块的划分搜索：在程序中输入单词，可搜索到此单词的中文意思。添加：向小词典中增添没有的单词。修改：修改所选中的单词。删除：删除所选中的单词。3.3 各控件的属性控件名称属
4、性属性值备注Button1搜索clickForecolor:blackBackcolor:WhiteFont:宋体，9pt,用于搜索英文单词中文意思Button2添加clickForecolor: blackBackcolor: WhiteFont: 宋体，9pt,用于添加英文单词及中文意思Button3修改clickForecolor: blackBackcolor:WhiteFont: 宋体，9pt,修改单词及其中文意思Button4删除clickForecolor: blackBackcolor:WhiteFont: 宋体，9pt,删除单词及其中文意思Form1英汉小词典loadFont
5、:宋体，9pt, Lable1请输入对应的单词Backcolor:WhiteForecolor:blackBoredstyle: Fixed3DFont: 宋体，9pt,Textbox1TextChangedBackcolor:White输入单词Listbox1SelectedIndexChangedclickBorderstyle :fixed3DBackcolor: WhiteForecolor: WindowText显示小词典中单词内容3.4 功能模块的说明主要流程和代码3.4.1Button1 用于当在textbox1中输入一个单词时，Listbox1中该单词所在的位置能被选中，同时在
6、Listbox2中能够显示单词的中文解释图1.2搜索Button2 用于向列表框中添加单词图1.3添加Button3 用于修改列表框中的单词图1.4修改Button4 用于删除列表框中选定的单词图1.5删除3.4.2主要功能模块流程图Button1搜索：单击搜索读取输入textbox1的单词判断输入内容是否为空是否提示textbox1重新输入用循环构造在数组中寻找该元素判断是否存在Msgbox无此单词在listbox1显示英文在listbox2显示中文不存在存在Button2添加：单击添加读取inputbox1的单词判断是否为空请重新输入读取inputbox1的内容是否判断是否为空请重新输入将
7、单词添加到listbox1中是否用循环构造判断该单词是否已经存在判断是否存在textbox1.text=Wordi，0信息提示已存在信息提示添加成功是否在listbox1选择删除单词单词Button3修改：在listbox1选择修改单词修改单词判断单词是否为空提示单词不能为空修改汉语意思是否判断汉语意思是否为空将修改正的单词和意思替换原单词和意思信息提示内容不能为空是 否Button4删除：确定要删除吗是否完毕程序删除成功3.4.3程序代码：PublicClass Form1Dim a(), b() AsStringPrivateSub Form1_Load(ByVal sender As S
8、ystem.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadDim c(1) AsStringDim i AsInteger FileOpen(1, 英汉小词典.txt, OpenMode.Input) 利用Fileopen函数翻开文件)DoWhileNot EOF(1) c = Split(LineInput(1), ) 对文本内容利用Split函数按空格别离，放到数组中，并在Listbox中显示 ListBox1.Items.Add(c(0) 向列表框中添加工程 ListBox2.Items.Add(c(1)LoopReDim
9、b(ListBox2.Items.Count - 1) 重新定义数组bFor i = 0 To ListBox2.Items.Count - 1 b(i) = ListBox2.Items(i)NextReDim a(ListBox1.Items.Count - 1) 重新定义数组aFor i = 0 To ListBox1.Items.Count - 1 a(i) = ListBox1.Items(i)Next ListBox2.Items.Clear() 清空列表框中的工程 FileClose(1)EndSubPrivateSub Button1_Click(ByVal sender As
10、 System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b AsString定义字符串变量 a = TextBox1.Text b = Not ListBox1.Items.Contains(a)If TextBox1.Text = Then MessageBox.Show(不能输入空字符，请重新输入)EndIf ListBox1.Text = aEndSubPrivateSub ListBox1_Click(ByVal sender AsObject, ByVal e As System.EventAr
11、gs) Handles ListBox1.Click TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex) 选中Listbox1中的内容，该内容在Textbox1中显示EndSubPrivateSub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged ListBox2.Items.Clear() ListBox2.Items.Add(b
12、(ListBox1.SelectedIndex) 在Listbox2中显示Listbox1中选中的英EndSubPrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim s, i AsString定义字符串变过量及整形变量Dim l, m, n AsInteger s = InputBox(请输入想要添加的单词, 添加一个新的单词) 用Inputbox函数进展输入If s = Then MsgBox(单词不能为空,请输入单词, 5,
13、输入单词)DoWhile MsgBox(单词不能为空,请输入单词, 5, 输入单词) = MsgBoxResult.Retry s = InputBox(请输入想要添加的单词, 单词添加)LoopEndIf i = InputBox(请输入中文意思!, 单词添加)If i = Then MsgBox(中文解释不能为空,请输入中文翻译, 5, 输入中文)DoWhile MsgBox(中文解释不能为空,请输入中文翻译, 5, 输入中文) = MsgBoxResult.Retry s = InputBox(请输入中文意思!, 单词添加)LoopIf s = a(l) Then MsgBox(单词已存在)EndIfEndIf m = UBound(a) 添加单词，并将单词及其中文解释分别添加在Listbox1和Listbox2中For l = 0 To mIf s a(l) ThenExitForNext lReDimPreserve a(m + 1) 重新定义a数组，显示添加后数组For n = m To l Step -1 从工
