【正文】 = ”“: txtje(j).Text = ”“: txtbz(j).Text = ”“ End Sub 這段代碼基本上在所有類似的情況中都大同小異Private Sub Form_Load()39。輸入信息MsgBox ”請輸入完整 oPrivate Sub cmdfh_Click(Index As Integer)39。利用If語句判斷data的int1取值，確定數(shù)據(jù)是收入還是支出，這是一種較為簡便的方式，在后面的數(shù)據(jù)查詢中有很大的發(fā)揮空間Frmlsz在主界面中的default屬性被我改成了true。便于用戶選擇相應(yīng)的類型輸入日常流水賬。密碼含非數(shù)字字符，則顯示錯誤MsgBox ”密碼應(yīng)當(dāng)為數(shù)字，請重新輸入“, , ”提示“End IfElse39。 ”“ For Output As 139。對欄目的添加, 修改k = IndexIf List1(k).SelCount = 0 ThenList1(k).AddItem Text1(k).TextElseint1 = List1(k).ListIndexList1(k).List(int1)= Text1(k).TextEnd IfText1(k).Text = ”“: Text1(k).Locked = TrueCmdxg(k).Enabled = False: Cmdsc(k).Enabled = FalseCmdtj(k).SetFocus End Sub 后面一段當(dāng)時看來顯得很費(fèi)精力，因?yàn)樾枰孕性O(shè)定加密方法 Private Sub sure_click()Dim i As Integer, password As Long i = 1If ThenMsgBox ”兩次密碼不一樣（～。修改鍵解除文本框鎖定Dim j As Integerj = IndexText1(j).Locked = FalseText1(j).SetFocus End SubPrivate Sub Cmdqd_Click(Index As Integer)Dim int1 As Integer, k As Integer39。點(diǎn)擊列表框?qū)崿F(xiàn)兩鍵的去灰j = IndexCmdxg(j).Enabled = TrueCmdsc(j).Enabled = TrueText1(j).Text = List1(j).Text End SubPrivate Sub Cmdxg_Click(Index As Integer)39。刪除按鈕Dim j As Integer: j = Index List1(j).RemoveItem List1(j).ListIndex Text1(j).Text = ”“ End SubPrivate Sub Cmdtj_Click(Index As Integer)39。返回按鈕 Unload frmcssz End SubPrivate Sub Cmdqx_Click(Index As Integer)39。 ”“ For Input As 1Do While Not EOF(1)Input 1, str1List1(0).AddItem str1LoopClose End SubPrivate Sub Cancel_Click() = ”“: = ”“39。 ”“ For Input As 2Do While Not EOF(2)Input 2, str1List1(1).AddItem str139。 ”“ For Input As 1 Input 1, a Close 1 Do While i = 1 a = a1)Next jNext iClose End Sub下述一段代碼為讀入列表框時所使用。自行設(shè)計(jì)的簡易解密過程 Dim int1 As String Dim a As Long: Static b As Integer: Dim i As Integer If = “ Then 39。下面我配合圖和文字講述下加密的過程，及對于輸入字符時的對話框，還有累計(jì)三次時將自動退出的設(shè)置。對如下事項(xiàng)逐步進(jìn)行必要的分析、說明：l 程序設(shè)計(jì)的主要思想，程序功能是如何實(shí)現(xiàn)的？l 設(shè)計(jì)了幾個程序模塊(有幾個窗體模塊、幾個標(biāo)準(zhǔn)模塊)，各個功能模塊的作者及想到之間的關(guān)系(模塊間是如何傳遞信息和數(shù)據(jù)的，采用什么方式，為什么？)？l 程序中定義了哪些主要的變量(分別定義了哪些過程級變量？模塊級變量和全局變量)，這些變量起什么作用？是否全局變量？ 這里不需要給出大段的源程序，只需要給出關(guān)鍵的實(shí)現(xiàn)代碼即可。借用其配合，可使程序顯得更簡潔些。返回按鈕同上述情況。實(shí)際并非沒有想象中的困難，但是，因?yàn)榭蚣芸丶膯栴}，我在這里還是繞了歧路最終放棄了控件數(shù)組，原本代碼可能會更簡明些。該窗體由三個選項(xiàng)卡組成，既可以選擇按類型查詢從而了解單獨(dú)的情況，也可以采用時間段的模式，從而宏觀大體的知道某個時間內(nèi)的情況。添加完畢后單擊右上角的返回按鈕則回到主界面。需要我們添加新的收支信息時，我設(shè)定了備注為可有可無的輸入項(xiàng)但其他三個空如果有一個未填則會在單擊保存后彈出msgbox提示，否則則會在底部的列表框中每行顯示一個完整項(xiàng)。這里面就涉及到了另一種新的控件，DTPicker控件的問題，這個控件使用起來極為方便，單擊即可彈出日期選擇框，且默認(rèn)當(dāng)天時間，簡明易懂。該窗口主要由“收入記賬”和“支出記賬”兩大部分組成。右上角的返回按鈕可以隨時返回主界面上。 通過“密碼修改”選項(xiàng)卡修改密碼，如果兩次輸入不一致或者輸入有誤(圖2和3)則會提醒用戶。“添加”按鈕比較繁瑣，其本身可以被“確定”按鈕替代功能。開始時，“添加”和“返回”按鈕可用，而其余兩個被置灰，而且文本框不可輸入。這些陌生的外部空間對于我通過安裝了vb企業(yè)版方才得到（詳見課本67頁兩者對比），因?yàn)閟sTab控件相對來說簡單，所以在這個程序的中我完全采用了SSTab控件?！皡?shù)設(shè)置”按鈕進(jìn)入“參數(shù)設(shè)置”窗口。每次錯誤后會彈出對話框給予提示，連續(xù)累計(jì)三次則程序自動退出初始密碼為空，直接單擊即可進(jìn)入。如圖1所示，frm1是啟動窗體。這點(diǎn)盡管在這個程序中用處不是太大，但為我們保存重要文件提供了一種思路。并自行設(shè)計(jì)加密處理。題目的難度系數(shù)相對不高，但牽涉到眾多的知識點(diǎn)作為典型的多模塊設(shè)計(jì)類型的題目，本程序由五個窗體模塊frm1,form1,frmcssz,frmcxtj，frmlsz和一個標(biāo)準(zhǔn)模塊共同構(gòu)成。參考文獻(xiàn)[1].王棟，visual basic課程設(shè)計(jì)，北京，清華大學(xué)出版社 [2].王棟，visual basic程序設(shè)計(jì)實(shí)用教程，北京，清華大學(xué)出版社[3].陳銳，夏敏捷，趙琳編著，Visual ，北京，科學(xué)出版社第二篇：VB課程設(shè)計(jì)報(bào)告Visual Basic課程設(shè)計(jì)報(bào)告題目1： 難度： *** 題目2： 難度： 指導(dǎo)教師：姓 名：學(xué) 號：專 業(yè)：班 級：學(xué) 院：日 期：目錄題目簡介.....................................................................................................................................2設(shè)計(jì)思路與總體方案.................................................................................................................4 窗體frm1...........................................................................................................................4 ...................................