1、按揭購房還款計劃設計報告學院班級學號姓名成績一、設計思路1要達到的目的 培養學生綜合利用 VB語言進行程序設計的能力， 主要是利用VB的圖像控件進行界面 設計，用VB的鼠標事件進行控件的拖拽處理以及利用數組進行數據處理的能力。進一步鞏固和加深對“VB程序設計”課程基本知識的理解和掌握，了解VB語言在項目開發中的應用。 學習程序設計開發的一般方法，了解和掌握項目開發過程及方式，培養正確的設計 思想和分析問題、解決問題的能力，特別是項目設計能力。 通過對標準化、規范化文檔的掌握并查閱有關技術資料等，培養項目設計開發能力。 掌握自頂而下的設計方法，將大問題進行模塊化分解，領會結構化程序設計的方法，同

2、時深刻認識到面向對象程序設計與面向過程設計的根本區別。 進一步掌握在集成環境下調試程序和修改程序的方法和技巧。2關鍵問題的解決 用戶輸入貸款總額、選擇還款年數、政策性貸款人數和還款起始年月，但后單擊“等額本息還款法”按鈕彈出“等額本息還款法”對話框，顯示以“等額還款本息還款法”還款時每月的還款額、全部本息總和、還款額與貸款額之比。 在主窗體中單擊“等額本金還款法”按鈕，彈出“等額本金還款法”對話框，列表框中顯示出從起始還款年月開始每月的還款額以及全部本息總和及還款比。單擊“保存到文件”按鈕，顯示提示文件名即路徑的窗口。然后將列表框中的內容以文本文件的形式保存到指定文件中。“等額本金還款法”和“

3、等額本息還款法”窗口都以模態窗口顯示，即必須單擊“關 閉”按鈕后才能繼續使用之窗口。“等額本金還款法”窗口中“每月還款額”列表框中顯示的內容要求上下對齊。如果未輸入貸款總額就單擊“計算”按鈕，則顯示消息框給予提示。二、模塊之間的調用關系，或程序流程圖退出應用程序實現等額本金還款法實現等額本息還款法保存路徑'設置還款年數'系統默認還款年數為 15年'還款起始的年份三、部分程序關鍵源代碼及注釋對于主窗體Forml的代碼編寫為Private Sub Form_Load() Dim i As In tegerFor i = 1 To 30Combo1.Addltem iNext

4、 iCombo1.Text = 15For i = 2000To 2020Combo2.AddItem iNext iCombo2.Text = Year(Date)Fori = 1 To 12'系統默認的還款起始年份Combo3.Addltem I'還款的月份Next iCombo3.Text = Mo nth(Date)'系統默認的還款起始月Textl.Text = 0'系統默認的貸款總額Optio n1(2).Value = TrueEnd Sub針對實現等額本息還款法的程序代碼：Private Sub Comma nd1_Click()Dim s As

5、Single, z As Single, Rate As Single， si As Single, z1 As SingleDim Year As In teger, i As In tegerIf IsNumeric(Textl.Text) = False The n MsgBox "請輸入合適的貸款額。",48," 注意Exit SubIf Textl.Text <= 0 Then MsgBox "貸款總額必須大于零。",48," 注意"：Exit SubIf Combol.Text <= 0 Then M

6、sgBox "還款年數必須大于零。",48," 注意":Exit SubIf IsNumeric(Combol.Text) = False The n MsgBox "請輸入合適的還款年數。",48,"意":Exit Subs = Textl.TextYear = Combol.TextFori = 0 To 3S為貸款的數額'Year為還款的年數'i為享受政策性貸款的人數If Option1(i) Then Exit ForNext iIf s>z the nElse z = ss=0

7、9;計算出各種情況下的政策性貸款額和商業性貸款額End Ifs = s * 10000z = z * 10000si = (s * (0.05 / 12) * (1 + 0.05 / 12) A (Year * 12) / (1 + 0.05 / 12) A (Year* 12) - 1)z1 = (z * (0.04 / 12) * (1 + 0.04 / 12) a (Year * 12) / (1+ 0.04 / 12) a (Year* 12) - 1)Load Form2'下載窗體form2Form2.Text1 =Format(s1 + z1, "0.00&quo

8、t;)'用于顯示每月還款額Form2.Text2 =Format(s1 + z1) * Year * 12, "0.00")'用于顯示全部本息總和Form2.Text3 =(s1 + z1) * Year * 12 / (s + z)'用于顯示還款與貨款之比Form2.Show 1'顯示窗體form2End Sub對于加載的窗體form2的代碼編寫為:Private Sub Comma nd1_Click()Un load Me'只是退出程序而不是停止運行程序End Sub針對等額本金還款法的程序代碼：Private Sub Comm

9、a nd2_Click()Dim s As Single, z As Single, Rate As Single, si As Single, z1 As SingleDim Year As Integer,i As Integer, j As Integer,start_year As Integer,start_monthAs In tegerIf IsNumeric(Texti.Text) = False Then MsgBox " 請輸入合適的貸款額。",48,"注意":Exit SubIf Textl.Text <= 0 Then Ms

10、gBox "貸款總額必須大于零。",48," 注意":Exit SubIf Combol.Text <= 0 Then MsgBox "還款年數必須大于零。",48," 注意":Exit SubIf IsNumeric(Combol.Text) = False The n MsgBox "請輸入合適的還款年數。",48," 注意":Exit Subs = Textl.TextYear = Combol.Text start_year = Combo2.Text star

11、t_mo nth = Combo3.Text ReDim b1(Year * 12) ReDim b2(Year * 12)Fori = 0 To 3If Option1(i) Then Exit For Next iz = i * 6If s > z The n'start year 為開始還款的年份 start mon th 為開始還款的月份'得到享受政策性還款的人數s = s - zElsez = ss = 0End Ifs = s * 10000z = z * 10000Load Form3'得到商業性貸款的數額'得到政策性貸款的數額'下載

12、form3窗體For i = 1 To Year * 12b1(i) = s / (Year * 12)+ (s- s / (Year * 12)*(i -1)*(0.05 /12)b2(i) = z / (Year * 12)+ (z- z / (Year * 12)*(i -1)*(0.04 /12)s1 = s1 + b1(i)'用 forz1 = z1 + b2(i)'用 forForm3.List1.Addltem start_year & " Format(b1(i) + b2(i), "0.00") & "循

13、環求商業性還款額循環求政策性還款額年"& Format(start_month, "00") & " 元"月：” &start_ mon th = start_mo nth + 1If start_ mon th = 13 The n start_ mon th = 1: start_year = start_year + 1 Next iForm3.Text1 = s1 + z1'計算等額本金還款的全部本息總和Form3.Text2 = (s1 + z1) / (s + z)Form3.Show 1End Su

14、b'計算其還貨比'顯示form3窗體對于加載的Form3窗體編寫的程序代碼為:Private Sub Comma nd1_Click()Dim s As Stri ngDim i As In tegers = InputBox("請輸入文件名及路徑。話框If s = "" The n Exit SubOpe n s For Output As #1For i = 0 To List1.ListCount - 1Print #1, List1. List(i)Next iClose #1","文件名") 利用InputB

15、ox函數來引入輸入對'如果s為空則退出不保存'打開文件供輸出輸出i行內容'關閉文件#1End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub針對退出應用程序的程序代碼：Private Sub Comma nd3_Click()End'結束運行End Sub四、設計方案的完善及目前存在的問題1.設計方案要完善的地方 框中每月還款額的陳述不一定非得使用列表框，因為需要用到循環程序，所以有時 候腦子轉不過來，可以用文本框加上滾動條來顯示更能讓人理解。 政策性貸款額和商業性貸款額的計算比較繁瑣。2.目前存在的問題當對F

16、orm3的每月還款額進行保存路徑時，必須提前在計算機中建立text文檔，這使得過程繁瑣，希望可以找到一種方式可以讓它直接存盤。五、本次設計的收獲及心得體會這個程序的應用價值很高，在做的過程中，首先構思程序，形成思路，然后再進行上機編程，編程的過程中，還要查閱一些相關的資料。雖然程序編好了，但還是會遇到運行不起來的情況，于是我就調試它。還會有一些拼寫錯誤。需要仔細耐心的調整，最終才完整的做完，功能還算完善，可以運行。我希望自己在接下來的學習中更好的去學習計算機編程，可 以在日后學以致用，把學到的知識應用于實踐當中，對人們的工作和生活有所幫助。在學習過程中，我遇到問題會問同學，會自己查書，養成了很

17、好的自主學習的習慣，讓 我體會了認真、投入的去做一件事也可以得到很多快樂，只要自己全身心的投入，也可以很享受，樂在其中。同時，程序的設計也教會了我要有思維、有邏輯的做事才能做好，做精， 這就是我一個學習體會。在這次編程過程中我通過建立Option1,Option2,Option3,Option4四個單選框，了解了什么叫控件數組。當然有些東西在書本上是找不到的，于是我就到圖書館查閱資料。當我翻及“常用控件”那一章節細讀之后，學習了不少東西。在設計的過程中，我們需要足夠的耐 心與細心。當程序設計完成并且運行無誤的時候，內心十分高興，我體會到了收獲的喜悅， 同時也深刻感受到了信息技術帶給人們的巨大便利，提高了工作效率，方便了人們的生活。 因此我對計算機和編程的興趣有了進一步的增加。六、對該題目和VB設計的意見和建議1. 對該題目的意