1、摘要本程序是用VB做的一個簡單的四那么運算的程序，主要針對的使用對象是小學生。程序主要特點是可以隨機產生一道100以內的四那么運算題，還可以查詢所做的題目的正確與否，并得到正確答案，以及總結出所有做的題目的正確率。其中該程序還為了給用戶提供方便及簡單的操作，特別做了一些細節(jié)上的處理。在這個四那么運算的程序中，運用了單行選擇語句ifthenelse ,if語句的嵌套，多條件選擇語句 Select Case,而且還用了Msgbox 的語句。在這份實驗報告中，我重點寫了程序各個環(huán)節(jié)運行的剖析圖，重點分析了，程序的各個環(huán)節(jié)功能是如何實現的，以及我自己對這次實訓的真實感想。 TOC o 1-3 h z

2、u HYPERLINK l _Toc262191778 摘要 PAGEREF _Toc262191778 h 1 HYPERLINK l _Toc262191779 第一章 任務概述 PAGEREF _Toc262191779 h 3 HYPERLINK l _Toc262191780 、目標 PAGEREF _Toc262191780 h 3 HYPERLINK l _Toc262191781 、需求概述 PAGEREF _Toc262191781 h 3 HYPERLINK l _Toc262191782 、隨機產生題目 PAGEREF _Toc262191782 h 3 HYPERLIN

3、K l _Toc262191783 、成績單 PAGEREF _Toc262191783 h 3 HYPERLINK l _Toc262191784 第三章 總體設計 PAGEREF _Toc262191784 h 4 HYPERLINK l _Toc262191785 、系統(tǒng)結構功能圖 PAGEREF _Toc262191785 h 4 HYPERLINK l _Toc262191786 第三章 功能分析 PAGEREF _Toc262191786 h 5 HYPERLINK l _Toc262191787 、用戶登錄界面 PAGEREF _Toc262191787 h 5 HYPERLIN

4、K l _Toc262191788 、對全局變量的定義 PAGEREF _Toc262191788 h 6 HYPERLINK l _Toc262191789 、隨機產生十道題目 PAGEREF _Toc262191789 h 6 HYPERLINK l _Toc262191790 、判斷是否已經做完十道題目 PAGEREF _Toc262191790 h 8 HYPERLINK l _Toc262191791 、判斷答題是否正確 PAGEREF _Toc262191791 h 9 HYPERLINK l _Toc262191792 、查看得分 PAGEREF _Toc262191792 h

5、10 HYPERLINK l _Toc262191793 、答題時的輸入要求 PAGEREF _Toc262191793 h 11 HYPERLINK l _Toc262191794 心得體會 PAGEREF _Toc262191794 h 12第一章 任務概述1.1、目標制作該系統(tǒng)的目的是為了可以自由產生一套四那么運算的題目，方便學生做練習，節(jié)省了勞動力資源，同時還可以培養(yǎng)出孩子獨立思考的能力。1.2、需求概述、隨機產生題目因為對于用戶來說，使用這個程序就是為了做大量的題目，所以在程序里必須保證程序能夠生成大量不同的題目。、成績單用戶肯定希望在自己做了一定題目后，系統(tǒng)能夠讀所做的題目進行評價

6、，給出正確的答案以及自己所做的題的總體情況，如果在做了大量的題后，用戶肯定想知道自己是否有進步，所以系統(tǒng)便設計了一個成績單，那里可以給用戶提供相應的信息。 第三章 總體設計 2.1、系統(tǒng)結構功能圖登錄出題答案成績單退出第三章 功能分析3.1、用戶登錄界面圖3-1 用戶登錄界面Private Sub Command1_Click() Open d:name.txt For Output As #1 對姓名的儲存 Close #1 Load Form2 Unload Form1End SubPrivate Sub Form_Load()Label2.Caption = 歡送使用小學四那么運算測試E

7、nd SubPrivate Sub Text1_Change() Command1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() 圖片框可以隨窗體一起改變大小 Picture1.Left = 0 Picture1.Top = 0End Sub3.2、對全局變量的定義Public num1, num2, answer, n, right, error, score As IntegerPublic op As Stringnum1, num2 產生的兩個隨機數n 產生的題目數目right 答對題目的個數error 答錯題目的個數score 獲得的

8、分數op 產生的運算符3.3、隨機產生十道題目圖3-3 隨機產生題目的運行界面Dim zhang As IntegerPrivate Sub Command1_Click() Text3.Text = Command1.Enabled = False Timer1.Enabled = True num1 = Int(Rnd * 101) 產生隨機數 num2 = Int(Rnd * 101) op = Int(Rnd * 4) + 1 隨機產生字符 Select Case op Case 1 Label1.Caption = + answer = num1 + num2 Case 2 Labe

9、l1.Caption = - If num1 0 Then score = Int(right / n * 100) If right 0 Then m = MsgBox(做完 & n & 個題了，做對 & right & 道,得分為 & score, vbOKOnly) Else m = MsgBox(做完 & n & 個題了，做對 & 0 & 道,得分為 & score, vbOKOnly) End If Else MsgBox 還沒有做題呢 End If Command1.Enabled = TrueEnd Sub3.7、答題時的輸入要求Private Sub Text3_KeyPres

10、s(KeyAscii As Integer)If KeyAscii 48 And KeyAscii 13 And KeyAscii 8 Then KeyAscii = 0 a = MsgBox(輸入的必須是數字, , 提示) ElseIf KeyAscii 57 And KeyAscii 13 And KeyAscii 8 Then KeyAscii = 0 a = MsgBox(輸入的必須是數字, , 提示)End IfEnd sub心得體會經過一個禮拜的辛苦勞動，程序總算是做出來了，雖然在做程序的那幾天確實覺得挺累的，不過在看到自己的程序運行成功以后，心中還是充滿了喜悅。不管怎樣，至少我覺

11、得自己是可以的，不管程序做的是好是壞，我總算是努力過的。現在細細想來，在做程序的過程中確實遇到了不少的問題。發(fā)現自己對VB的掌握還是相當欠缺的，因為在遇到一個問題時，自己的腦袋是空的，只記得老師曾經講過，只回憶的起曾經在書的某個角落里看到過。可是卻忘記了最重要的東西，那就是怎么去解決。所以回過頭來還是去看書本，因為書本里蘊藏著相當豐富的知識，至少對于我們來說，而我們老師講過的畢竟只是一少局部。還有大量的內容需要自己去掌握。所以通過這次實訓讓我認識到，原來我們的書本是多么的重要。第二個問題就是自己的學習方法有問題，因為我自覺得自己還是做了挺多的筆記的，雖說是記錄了，可課后卻從來沒有拿出來看過。第三個問題就是自己課外書看得太少，最主要的就是自己平時練得太少，做程序做的太少，導致一些操作只是機械式的記錄在腦子里，在遇到編程時，卻無法真正運用出來。所以這些