【正文】 臺。4．收入類別和支出類別的選項卡分別需要實現(xiàn)對兩者的添加，刪除，修改，返回操作，更為重要的是要保存在文件中，以備在流水帳和查詢統(tǒng)計的bobox中使用。本程序中，按下添加按鈕，則此時文本框被清空可編輯，而對比來說，按下修改按鈕文本框不清空且可編輯?！叭粘Ａ魉畮ぁ边M入日常收支原始資料的主要輸入窗口。其中的列表框中的項目為參數(shù)設置所得，只需從中選擇即可。本程序的重點和難點原先粗步估計集中在查詢統(tǒng)計這一窗體模塊中，所以采用了由易到難的策略。收入支出對比一項用于顯示某段時間內總收入和總支出的量化對比，在輸入時間段后按確定按鈕即可顯示。設計思路與總體方案(說明用到哪些控件并進行難點分析，說明所使用到的模塊、過程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關系，必要時給出系統(tǒng)結構圖等圖表。此處只有三個通用過程，分別為CmdCancel_Click，Cmdok_Click，txtpassword_KeyPress，難點集中在后兩者上，其中txtpassword_KeyPress在后面也會用到；Private Sub CmdCancel_Click()Unload Me End SubPrivate Sub Cmdok_Click()39。僅有一字符串變量來實現(xiàn) Private Sub Form_Load()Dim str1 As String Open amp。取消密碼輸入 End SubPrivate Sub cmdfh_Click(Index As Integer)39。添加按鈕 Dim m As Integerm = Index Text1(m).SetFocus Text1(m).Locked = False Text1(m).Text = ”“ End SubPrivate Sub List1_Click(Index As Integer)Dim j As Integer39。確定按鈕。設置密碼Write 1, npClose 1End SubPrivate Sub np_KeyPress(KeyAscii As Integer)If KeyAscii 48 Or KeyAscii 57 ThenKeyAscii = 039。為實現(xiàn)數(shù)據(jù)逐條讀寫采用do loop循環(huán) EOF（）文件函數(shù)和input語句。返回 Unload Frmlsz End SubPrivate Sub Cmdqk_Click(Index As Integer)39。 ”“ For Input As 1 Do While Not EOF(1)Input 1, str1 Coblb(0).AddItem str1 Loop Close End Sub frmcxtj 窗體frmcxtj算是對于上述窗體的綜合應用。 Space(3)amp。 Space(2)amp。 ”“ For Input As 1 Do While Not EOF(1)Input 1, Input 1, Input 1, Input 1, Input 1, If( =())And( =())And( Private Sub Cmd1_Click()’第一個確定按鈕 39。 ”“ For Input As 2 39。 ”“ For Input As 2 Do While Not EOF(2)Input 2, str1 str1 Loop Open amp。Public np As Integer, np2 As Integer Public Type data int1 As Integer time1 As Date moneytype As String money As Long addition As String End Type設計過程遇到的主要問題及解決方法，需要的是考慮用戶的感受。定義錯誤，文件超出。后來便放棄了這一想法，采用了一般的步驟而變得更為費時費力，可以看到查詢統(tǒng)計模塊下的代碼特別冗長 在參數(shù)設置模塊中，當點擊添加之后雖然清空了文本框，但若是列表框依然有條目被選，則再輸入其實變成了另一形式的修改。我體會到了編寫程序是個有條理的邏輯過程，首先必須有個大致的思路，整體的規(guī)劃出來。參考文獻[1].王棟，visual basic課程設計，北京，清華大學出版社 [2].王棟，visual basic程序設計實用教程，北京，清華大學出版社 [3].蘭友，vb應用程序設計，北京，交通大學出版社[4].董愛紅等，二級visual basic語言程序設計，北京：機械工業(yè)出版社，2005第三篇：VB課程設計報告Visual Basic課程設計報告題目1： 列車時刻查詢系統(tǒng) 難度： ** 題目2： 記憶力測試軟件 難度： ** 指導教師： 袁紅兵姓 名：鄭聰學 號：9151010F0535 專 業(yè)：兵器類班 級：9151010F05 學 院：機械工程學院日 期：2016年4月一、程序功能二、課程設計的詳細設計三、課程設計總結四、遇到的問題及解決方法五、源程序代碼六、總結及個人心得體會七、參考文獻程序功能涉及知識點：（1）讀文本文件；（2）動態(tài)數(shù)組（3）字符串處理（4）列表框控件的使用（4）多行文本框控件的使用功能要求：（1）程序啟動后，左邊的列表框顯示所有的車次，點擊其中一項，顯示相應的詳細信息。課程設計的詳細設計總體設計思路先將信息讀入到兩個動態(tài)數(shù)組中，再根據(jù)相關的事件調用數(shù)組。遇到的問題及解決方法我在設計這個程序時主要遇到兩個問題。將起點站，終點站，發(fā)車時刻，到達時刻添入文本框中 = str4(i): = str5(i)End If End Sub我所遇到的二個問題就是怎樣才能讓各項對齊，在網(wǎng)絡上找到了一段非常重要的代碼“(j)= str(m)+ Space(p)+ RTrim(Format(str(m + 1), “))+ RTrim(Format(str(m + 2), ”“))”，和一些提示，以下代碼得以實現(xiàn)：If = Step 3Select Case Len(str(m))39。Dim Temporary1()As StringDim x As IntegerDo Until EOF(1)LineInput(1)x += 1LoopFileClose(1)FileOpen(1, amp。顯示全部車次按鈕按下觸發(fā)的事件a() = ”“()For i = 0 To UBound(Content)(Content(i, 0)amp。 Space(482 * Len(Detail(Selection, u, 1)))amp。 Space(555 * Len(Detail(Selection, u, 0)))amp。 vbCrLfEnd IfEnd IfNextEnd IfEnd SubPrivate Sub ViaStation_SelectedIndexChanged(sender As , e As)Handles 39。如果列車時刻沒有變化，只需修改這兩個文件的內容即可，不必改動程序。起點站的“到達時刻”和終點站的“發(fā)車時刻”均為“”。心得及體會：通過這次的VB課程設計，我學到了很多很多的東西，同時不僅可以鞏固了以前學過的知識，而且學到了很多書本上所沒有學到的知識。程序設計師需要大量的時間去動手練習才能體會到它的內涵，同時還需要用心去投入，時間和感情花下去之后，的確慢慢的感受到有所收獲了，我也收獲到了一點點的樂趣。界面設計界面構成及實現(xiàn)方法。說明這次課程設計的感想和心得體會、經(jīng)驗教訓等。************ *******二、概要設計系統(tǒng)功能模塊框圖設計根據(jù)功能描述，建立系統(tǒng)的體系結構，即將整個系統(tǒng)分解成若干子功能模塊，并用框圖表示各功能模塊之間的銜接關系，并簡要說明各模塊的功能。例如：注冊賬號出現(xiàn)的錯誤數(shù)據(jù)庫中帳號被設為主鍵，當注冊時的帳號與數(shù)局庫中的帳號有相同時就會