英漢小詞典課程設(shè)計(jì)VB

1、課程設(shè)計(jì)20 20學(xué)年第二學(xué)期設(shè)計(jì)題目 計(jì)算機(jī)語言程序設(shè)計(jì)課程設(shè)計(jì)-英漢小詞典 目錄20 20學(xué)年第二學(xué)期11概述31.1程學(xué)設(shè)計(jì)目的31.2 程序的基本功能31.3其它功能31.4 擴(kuò)展功能32課題的分析42.1Button1查找42.2Button添加42.3Button3修改42.4Button4刪除433模板格式說明53.1設(shè)計(jì)窗體如下：53.2功能模塊的劃分53.3各控件的屬性53.4功能模塊的說明（主要流程和代碼）64課程設(shè)計(jì)總結(jié)：144.1完成情況144.2遇到的問題及解決145（附錄）參考文獻(xiàn)151 概述1.1 程學(xué)設(shè)計(jì)目的本次題目的設(shè)計(jì)的操作與實(shí)踐是為了使學(xué)生了解使用VB 2

2、005程序設(shè)計(jì)方法，實(shí)現(xiàn)面向?qū)ο蟪绦蛟O(shè)計(jì)的相關(guān)理論知識(shí)和設(shè)計(jì)技巧，在一定程度上提高面向?qū)ο蟪绦蛟O(shè)計(jì)的綜合設(shè)計(jì)能力，具體掌握的基本能力有以下幾方面：l 了解一個(gè)英漢小詞典開發(fā)的全過程。l 熟悉一些常用控件的使用，例如文件列表、標(biāo)簽、文本框、按鈕、列表框等。l 熟悉一些常用控件的方法、事件的使用。l 熟悉順序文件的讀寫。l 熟悉字符串的處理方法。1.2 程序的基本功能設(shè)計(jì)程序，左邊列表框中的單詞表由讀取文件英漢小詞典.txt得到，選擇某單詞后，會(huì)在上面的文本框中顯示相應(yīng)的內(nèi)容，并且在右邊顯示相應(yīng)的中文解釋。1.3其它功能具有搜索、增加、修改、刪除等功能。若做過增加、修改、刪除，應(yīng)對(duì)英漢詞典.txt

3、做相應(yīng)的修改。1.4 擴(kuò)展功能在文本框中輸入單詞時(shí)，程序會(huì)及時(shí)地將已輸入的字符開頭的所有單詞顯示在列表框中，供用戶瀏覽；優(yōu)化搜索算法。2 課題的分析2.1 Button1查找輸入單詞可以找到對(duì)應(yīng)的中文意思2.2 Button添加添加詞典中沒有的英語單詞及其中文意思2.3 Button3修改修改小詞典中錯(cuò)誤的單詞及其中文意思2.4 Button4刪除將單詞從小詞典中刪除3 3模板格式說明3.1 設(shè)計(jì)窗體如下：圖1.1設(shè)計(jì)窗體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英漢小詞典

5、loadFont:宋體，9pt, Lable1請(qǐng)輸入對(duì)應(yīng)的單詞Backcolor: WhiteForecolor: blackBoredstyle: Fixed3DFont: 宋體，9pt,Textbox1TextChangedBackcolor: White輸入單詞Listbox1SelectedIndexChangedclickBorderstyle :fixed3DBackcolor: WhiteForecolor: WindowText顯示小詞典中單詞內(nèi)容3.4 功能模塊的說明（主要流程和代碼）3.4.1 Button1 用于當(dāng)在textbox1中輸入一個(gè)單詞時(shí)，Listbox1中該單

6、詞所在的位置能被選中，同時(shí)在Listbox2中能夠顯示單詞的中文解釋圖1.2搜索Button2 用于向列表框中添加單詞圖1.3添加Button3 用于修改列表框中的單詞圖1.4修改Button4 用于刪除列表框中選定的單詞圖1.5刪除3.4.2主要功能模塊流程圖Button1搜索：單擊搜索讀取輸入textbox1的單詞判斷輸入內(nèi)容是否為空是否提示textbox1重新輸入用循環(huán)結(jié)構(gòu)在數(shù)組中尋找該元素判斷是否存在Msgbox（無此單詞）在listbox1顯示英文在listbox2顯示中文不存在存在Button2添加：單擊添加讀取inputbox1的單詞判斷是否為空請(qǐng)重新輸入讀取inputbox1的

7、內(nèi)容是否判斷是否為空請(qǐng)重新輸入將單詞添加到listbox1中是否用循環(huán)結(jié)構(gòu)判斷該單詞是否已經(jīng)存在判斷是否存在textbox1.text=Word（i，0）信息提示已存在信息提示添加成功是否在listbox1選擇刪除單詞單詞Button3修改：在listbox1選擇修改單詞修改單詞判斷單詞是否為空提示單詞不能為空修改漢語意思是否判斷漢語意思是否為空將修改過的單詞和意思替換原單詞和意思信息提示內(nèi)容不能為空是 否Button4刪除：確定要?jiǎng)h除嗎是否結(jié)束程序刪除成功3.4.3程序代碼：Public Class Form1 Dim a(), b() As String Private Sub Form1

8、_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim c(1) As String Dim i As Integer FileOpen(1, 英漢小詞典.txt, OpenMode.Input) 利用Fileopen（）函數(shù)打開文件) Do While Not EOF(1) c = Split(LineInput(1), ) 對(duì)文本內(nèi)容利用Split函數(shù)按空格分離，放到數(shù)組中，并在Listbox中顯示 ListBox1.Items.Add(c(0) 向列表框中添加項(xiàng)目

9、ListBox2.Items.Add(c(1) Loop ReDim b(ListBox2.Items.Count - 1) 重新定義數(shù)組b（） For i = 0 To ListBox2.Items.Count - 1 b(i) = ListBox2.Items(i) Next ReDim a(ListBox1.Items.Count - 1) 重新定義數(shù)組a（） For i = 0 To ListBox1.Items.Count - 1 a(i) = ListBox1.Items(i) Next ListBox2.Items.Clear() 清空列表框中的項(xiàng)目 FileClose(1) E

10、nd Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As String 定義字符串變量 a = TextBox1.Text b = Not ListBox1.Items.Contains(a) If TextBox1.Text = Then MessageBox.Show(不能輸入空字符，請(qǐng)重新輸入) End If ListBox1.Text = a End Sub Private Sub ListB

11、ox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex) 選中Listbox1中的內(nèi)容，該內(nèi)容在Textbox1中顯示 End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.S

12、electedIndexChanged ListBox2.Items.Clear() ListBox2.Items.Add(b(ListBox1.SelectedIndex) 在Listbox2中顯示Listbox1中選中的英 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim s, i As String 定義字符串變過量及整形變量 Dim l, m, n As Integer s = InputBox(請(qǐng)

13、輸入想要添加的單詞, 添加一個(gè)新的單詞) 用Inputbox函數(shù)進(jìn)行輸入 If s = Then MsgBox(單詞不能為空,請(qǐng)輸入單詞, 5, 輸入單詞) Do While MsgBox(單詞不能為空,請(qǐng)輸入單詞, 5, 輸入單詞) = MsgBoxResult.Retry s = InputBox(請(qǐng)輸入想要添加的單詞, 單詞添加) Loop End If i = InputBox(請(qǐng)輸入中文意思!, 單詞添加) If i = Then MsgBox(中文解釋不能為空,請(qǐng)輸入中文翻譯, 5, 輸入中文) Do While MsgBox(中文解釋不能為空,請(qǐng)輸入中文翻譯, 5, 輸入中文)

14、= MsgBoxResult.Retry s = InputBox(請(qǐng)輸入中文意思!, 單詞添加) Loop If s = a(l) Then MsgBox(單詞已存在) End If End If m = UBound(a) 添加單詞，并將單詞及其中文解釋分別添加在Listbox1和Listbox2中 For l = 0 To m If s a(l) Then Exit For Next l ReDim Preserve a(m + 1) 重新定義a（）數(shù)組，顯示添加后數(shù)組 For n = m To l Step -1 從項(xiàng)目最后往上移，騰出位置 a(n + 1) = a(n) Next a

15、(l) = s ReDim Preserve b(m + 1) 重新定義b（）數(shù)組，顯示添加后數(shù)組 For n = m To l Step -1 b(n + 1) = b(n) Next b(l) = i ListBox1.Items.Clear() For n = 0 To UBound(a) ListBox1.Items.Add(a(n) Next FileOpen(1, 英漢小詞典.txt, OpenMode.Output) For n = 0 To UBound(b) PrintLine(1, a(n) & & b(n) 將添加的單詞及中文解釋添加到txt文本中顯示 Next File

16、Close(1) MessageBox.Show(添加成功) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim m, n As String Dim j As Integer If -1 = ListBox1.SelectedIndex Then MsgBox(請(qǐng)選擇單詞再進(jìn)行修改) ListBox1.Focus() Exit Sub End If m = InputBox(請(qǐng)修改單詞, 修改單詞, a(L

17、istBox1.SelectedIndex) n = InputBox(請(qǐng)輸入修改單詞的中文解釋, 修改單詞, b(ListBox1.SelectedIndex) a(ListBox1.SelectedIndex) = m b(ListBox1.SelectedIndex) = n ListBox1.Items.Clear() For j = 0 To UBound(b) ListBox1.Items.Add(b(j) Next MsgBox(修改成功, , 修改) FileOpen(1, 英漢小詞典.txt, OpenMode.Output) For j = 0 To UBound(b) P

18、rintLine(1, a(j) & & b(j) 將修改后的單詞及中文解釋在txt中重新顯示 Next FileClose(1) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim x, i, h As Integer Dim m As String If ListBox1.SelectedIndex = -1 Then 未選中ListBox1中的任一項(xiàng) MsgBox(請(qǐng)先選擇單詞) : Exit Sub

19、Else MsgBox(確認(rèn)刪除嗎?, 1) If MsgBox(確認(rèn)刪除嗎?, 1) = MsgBoxResult.Ok Then m = a(ListBox1.SelectedIndex) h = UBound(a) 從數(shù)組中刪除數(shù)據(jù) For x = 0 To h If m = a(x) Then Exit For Next x For i = x + 1 To h a(i - 1) = a(i) Next h = h - 1 ReDim Preserve a(h) End If For i = x + 1 To h b(i - 1) = b(i) Next h = h - 1 ReDim

20、 Preserve b(h) 重新定義a（）數(shù)組，顯示刪除后數(shù)組 ListBox1.Items.Clear() For i = 0 To UBound(a) ListBox1.Items.Add(a(i) Next MsgBox(刪除成功, , 刪除) End If FileOpen(1, 英漢小詞典.txt, OpenMode.Output) For i = 0 To UBound(b) 將刪除的單詞及中文解釋從txt文本中剔除 PrintLine(1, a(i) & & b(i) Next FileClose(1) End SubEnd Class4 課程設(shè)計(jì)總結(jié)：4.1 完成情況 課程設(shè)

21、計(jì)結(jié)束時(shí)，所設(shè)計(jì)程序基本完成，實(shí)現(xiàn)了課程設(shè)計(jì)所要求的基本功能，通過此次實(shí)踐我們掌握了VB 2005的基本操作，提高了我們面向?qū)ο蟪绦蛟O(shè)計(jì)的綜合設(shè)計(jì)能力，達(dá)到了預(yù)期的目的。4.2 遇到的問題及解決 編寫程序時(shí)，部分語句掌握不流暢，程序運(yùn)行時(shí)出現(xiàn)錯(cuò)誤。經(jīng)過上網(wǎng)查詢相關(guān)資料以及詢問老師后將問題解決。5 （附錄）參考文獻(xiàn)李春葆，金晶，曾平.VB.NET2005程序設(shè)計(jì)教程. 北京：清華大學(xué)出版社,2009龔沛曾.Visual Basic.NET程序設(shè)計(jì)教程.高等教育出版社，2010孫踐知.Visual Basic.NET程序設(shè)計(jì).清華大學(xué)出版社，2010孫秀梅、鞏建華、 等.Visual Basic開發(fā)實(shí)戰(zhàn)1200例.清華大學(xué)出版社; (2011年1月1日)評(píng)論讀取中.上海應(yīng)用技術(shù)學(xué)院課程設(shè)計(jì)任務(wù)書課程名稱程序設(shè)計(jì)基礎(chǔ)VB.net課程