1、江西科技師范學院 數(shù)學與計算機科學學院 計算機科學與技術1班Visual Basic程序設計實訓總結 姓 名 ： 蔣 建 偉前言：隨著科學技術的不斷提高，計算機科學日漸成熟，計算機已經(jīng)深入到工作和生活的各個角落，文字錄入是學習計算機非常重要的一部分。在手寫錄入技術和語音識別技術還不完善的同時大部分人還在使用鍵盤作為文字錄入的工具。所以我編了這樣一個小程序，同時也是我的畢業(yè)設計，希望能對電腦初學者和想提高打字速度的朋友們有所幫助。 計算機是人類社會20世紀的重大科技成果之一。自1946年世界第一臺電子數(shù)字計算機誕生至今，在短短50多年的時間里，計算機技術得到了飛速發(fā)展。目前計算機已廣泛應用在工業(yè)

2、，農業(yè)，科技，國防，文教，衛(wèi)生，家庭生活等各個領域中，已成為現(xiàn)代人類生活不可缺少的智能工具。二十世紀的后半期，尤其是90年代后，計算機取得了飛速的發(fā)展。近來，隨著網(wǎng)絡的發(fā)展，計算機已經(jīng)成為人們生活中不可缺少的一部分。提高人們對計算機的操作能力顯得尤為重要。而打字速度是衡量一個人操作熟練程度的一個重要方面。因此開發(fā)一種高效的打字系統(tǒng)顯得迫在眉睫。而我這次的實訓就是利用已學的編程知識來制作一個相對比較簡單的打字系統(tǒng)。下面就是關于該次實訓的總結。首先、先介紹一下我的實訓內容（打字練習）：用Visual Basic 6.0制作一個程序，它可以打開一個文本文件并讓該文件顯示在某個控件上面、用戶可對照該文

3、件來練習漢字輸入即練習打字，結束時點擊完成后可得出打字速度和正確率并將正確的字與錯誤的字區(qū)分或標記出來。 其次、介紹一下該程序開發(fā)工具Visual Basic 6.0：本系統(tǒng)使用的開發(fā)工具是VB6.0，它是目前比較流行的開發(fā)工具。面向對象的程序設計Visual Basic6.0它提供了開發(fā)Microsoft Windows應用程序的最迅速、最簡捷的方法。不論是Microsoft Windows 應用程序的資深專業(yè)開發(fā)人員還是初學者，Visual Basic6.0都為他們提供了整套工具，以方便開發(fā)應用程序。Visual Basic是面向對象程序設計的有利工具，它不僅秉承了BASIC的特點，而且為

4、人們揭開了開發(fā)Windows應用程序的神秘面紗，有了它、您就能成為Windows環(huán)境下的編程高手。何謂Visual Basic？其中，“Visual”中文意義為“可視化”，它提供了一種創(chuàng)建圖形用戶接口（GUI）的方法。利用這種方法，用戶不必書寫復雜的描述接口元素外觀和位置的程序代碼，而只需將系統(tǒng)提供的對象放在屏幕上的適當位置，并通過屬性窗口進行適當?shù)脑O置，即可設計一個優(yōu)秀的程序界面。“Basic”指的是BASIC（Beginners A11-Purpose Symbolit Instruction Code）語方，一種在計算技術發(fā)展歷史上應用得最為廣泛的語言。Visual Basic在原有BA

5、SIC編程語言的功能，而初學者只要掌握幾個關鍵詞就可以建立實用的應用程序。程序的使用方法：打開程序時，可以看到一個進入界面（如圖1-1），界面的右邊有一個用打字效果顯示的坐姿注意事項，再者、用戶可以選擇性地打開本地文件或直接打開系統(tǒng)內置文件，打開的本地文件是從電腦中選擇txt格式的文章，直接打開的文件有四、三篇難度不同的文章，選擇之后還可以在三篇文章之間隨機切換；選擇后單擊“確定”后進入打字界面（如圖1-2）。進入鍵盤打字系統(tǒng)窗口后，之前選擇的文章就會顯示在上面供對照。點擊“開始”打字測試按鈕后，開始打字，打字過程中會顯示打字用時以及進度，中途還可以暫停再繼續(xù)。結束打字時點擊“完成”就會用兩種

6、不同的顏色來區(qū)分并顯示打字的對與錯、速度及準確率。圖1-1圖1-2實訓過程、遇到的問題及心得體會：剛拿到實訓題目及要求的時候，我覺得這個很難、也蠻復雜的，這不就是要我做一個像金山打字那樣的一個程序軟件嘛！最開始覺得它難，還有一個原因就是我們每周做的實驗都相對來說比較簡單。我們每五到六個人一組，我這組有五位同學。老師的要求就是我們五個人可以討論如何完成這個程序并把它做得更好，但最后我們都要自己完成自己的程序。接下來，我們就開始來完成它了。我作為一名計算機專業(yè)的學生，在程序設計方面，我還并不是很熟悉，還只是個初學者。這個程序編寫蠻復雜，工作量比較大，編寫一定要認真。一個小小的失誤都可能使程序出現(xiàn)大

7、的漏洞。而我們只是學了點簡單的Visual Basic程序編寫，還沒有嘗試過這種相對來說比較系統(tǒng)完善的程序。所以在做這個項目的時候，我們倍感壓力、也更加的團結協(xié)作，可即使如此我們還是出現(xiàn)了錯誤、問題，我們的程序在編寫、設計、思路上或多或少都存在過一些漏洞、不足甚至錯誤，導致調試時不能正常運行、一直報錯，但是后來經(jīng)過老師的指導、我們的討論并做出調整，終于可以完美的運行了。通過老師詳細的講解、指導，我們按照步驟去做，遇到問題的時候先自己想辦法解決，解決不了的就去問同學、跟同學討論，最后問老師，完成的過程中也發(fā)現(xiàn)了許多自己在學習方面的不足，取長補短，互相學習，共同進步，我們不但學習了知識，也更好的證

8、明了實踐是檢驗真理的唯一標準。通過這種學習，我們收獲很大，學會了自己解決棘手問題，也知道了團結的力量。經(jīng)過這次的Visual Basic程序設計的實訓，讓我知道了更多的學習方法。概括具體如下：(1)保持良好的學習心態(tài)：第一，要有自信，自強，積極主動學習；第二，克服畏難情緒，樹立學好程序設計的信心。(2)要了解概念：VB程序設計本身并不復雜，變量，函數(shù)，條件語句，循環(huán)語句等概念較多.要真正能進行程序設計，就要深入理解這些概念.應該重視概念的學習.(3)自己動手編寫程序，親自動手進行程序設計是培養(yǎng)邏輯思維的好方法.因此我們得多動手編寫程序，逐漸提高寫程序的能力.自己動手，編寫一些程序，才會有成就感

9、，進而對課程產(chǎn)生興趣，做起來才比較從容.等你在編寫大量程序之后(4)上機調試程序應注意多問問同學，多問問老師、，把不懂的地方標出來。(5)養(yǎng)成良好的編程習慣：第一，程序構思要有說明;第二，學會如何調試程序; 第三，對運行結果要做正確與否的分析。但是，如果以前上課的時候不認真聽講的話，做這個程序設計就會有點困難，所以，同時也在提醒我們，學習，任何時候都要認真！總之，在此次的Visual Basic程序設計中，如果沒有足夠的耐心，就不可能完成的很好。所以此次Visual Basic程序設計，讓我做事情更加有耐心，更加細心，學習更加認真仔細。 在整個實訓過程中，老師對我們親切、認真、負責，很有耐心地

10、對我們進行講解并指導我們解決遇到的難題。老師交會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整地完成一個模塊，首先要進行程序的設計，全面分析會用到的東西以及考慮可能會出現(xiàn)的情況，理清思緒、寫出大致的要點后再上機編寫程序以及操作。否則像一開始的我們馬上上機編寫、想到什么就補什么，不僅浪費時間也亂了之前寫好的一些程序。系統(tǒng)分析越準確，設計的系統(tǒng)越精確，可以大大減少后期的修改、維護工作。當然做好、做對一個項目固然重要，同時美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。所以后期我們都給自己的程序加了一個很漂亮的進入界面。總的來說，這次實訓、還是比較成功的。最后出來的系統(tǒng)

11、，大家都很有成就感，這是我們一步一步設計、一步一步完善、辛苦付出后得到的成果。小組合作、幫助隊友，無論是團隊合作這方面還是個人動手這方面，我們都得到了很好的鍛煉。當然，實訓不僅使我們學到了知識，也幫助我們縮小了實踐和理論的差距，通過這次實訓，讓我們更深一步的對Visual Basic這門課程的知識有更進一步的渴望，同時對自己的專業(yè)，對自己的能力，對自己所學的有正確的認識，并且能在以后的學習工作中不斷提高和完善自己。附-程序代碼：Form1:Option ExplicitDim ss As StringDim sp As IntegerDim cs As StringPrivate Sub Fo

12、rm_Load()Dim s As String, nl As String * 2Text1.Text = ""ss = ""sp = 0nl = Chr$(13) & Chr(10)Open App.Path + "20101988.txt" For Input As #2While Not EOF(2) Line Input #2, s ss = ss & s & nlWendClose #2End SubPrivate Sub Option1_Click()Form2.Label6.Caption =

13、""Form2.Label4.Caption = "一個雞蛋的溫暖"Open App.Path + "一個雞蛋的溫暖.txt" For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option2_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "跳下懸崖找活路

14、"Open App.Path + "跳下懸崖找活路.txt" For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option3_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "相愛，不只是一句承諾"Open App.Path + "相愛，不只是一句承諾.txt&qu

15、ot; For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option4_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "本地文章"CommonDialog1.Filter = "文本文件*txt/*.txt"CommonDialog1.InitDir = "桌面:"

16、;CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenOpen Me.CommonDialog1.FileName For Input As #1Do While Not EOF(1) Line Input #1, cs Form2.Label6.Caption = Form2.Label6.Caption + Trim(cs) + Chr(13) + Chr(10)LoopClose #1End SubPrivate Sub Command1_Click()Form1.Hide '隱藏第一個窗體Form2.Show '顯示第二

17、個窗體End SubPrivate Sub Command2_Click()End '退出End SubPrivate Sub Timer1_Timer() '在第一個窗體上添加一個打字效果的提示Dim sw As String, curx As Single, cury As Singlecurx = Picture1.CurrentXcury = Picture1.CurrentYPicture1.Line (curx, cury)-(curx + 300, cury + 300), Picture1.BackColor, BFPicture1.CurrentX = cur

18、xPicture1.CurrentY = curysp = sp + 1If sp > Len(ss) Then Timer1.Enabled = FalseElse sw = Mid(ss, sp, 1) If Asc(sw) = 13 Then Picture1.Print "" sp = sp + 1 sw = Mid(ss, sp, 1) Else Picture1.Print sw; End If curx = Picture1.CurrentX cury = Picture1.CurrentY Picture1.Line (curx + 20, cury

19、+ 230)-(curx + 120, cury + 240), QBColor(10), BF Picture1.CurrentX = curx Picture1.CurrentY = curyEnd IfEnd SubForm2:Option ExplicitDim m, n, t, i As IntegerPrivate Sub Form_Load()Label5.Caption = Form1.Text1.Text & "你好，歡迎進入！單擊左下角“開始”準備練習及測試！"Command1.Caption = "開始"End SubPri

20、vate Sub RichTextBox1_Change()ProgressBar1.Max = Len(Label6.Caption)ProgressBar1.Min = 0ProgressBar1.Value = Len(RichTextBox1.Text)Label8.Caption = Format(Len(RichTextBox1.Text) / Len(Label6.Caption), "0.00%")End SubPrivate Sub Timer1_Timer()t = t + 1Text3.Text = Int(t / 60) & "分&

21、quot; & t Mod 60 & "秒"End SubPrivate Sub Command1_Click()RichTextBox1.Locked = Falsem = m + 1If m Mod 2 = 1 Then RichTextBox1.SetFocus: Timer1.Enabled = True: Command1.Caption = "暫停"If m Mod 2 = 0 Then Timer1.Enabled = False: Command1.Caption = "繼續(xù)": RichTextBox1.Locked = TrueEnd SubPrivate Sub Command2_Click()For i = 1 To Len(RichTextBox1.Text)I