按揭購房還貸計劃課程設計報告

1、<p>　　VB課程設計(論文)任務書</p><p>　　土木建筑 學　　院　　環(huán)境工程 ?！　I(yè) 2 　班</p><p>　　一、課程設計(論文)題目 ： 按揭購房還款計劃 　　</p><p>　　二、課程設計(論文)工作自 2013 年 6 月17日起至

2、 2013 年 6 月 23 日止 </p><p>　　三、課程設計(論文) 地點: 計算中心8#706 </p><p>　　四、課程設計(論文)內(nèi)容要求：</p><p>　　1. 本課程設計的目的</p><p>　?。?）進一步鞏固和加深對“VB程序設計”課程基本知識的理解和掌握，了解VB語言在項目開發(fā)中

3、的應用。</p><p>　?。?）學習程序設計開發(fā)的一般方法，了解和掌握項目開發(fā)過程及方式，培養(yǎng)正確的設計思想和分析問題、解決問題的能力，特別是項目設計能力。</p><p>　　（3）通過對標準化、規(guī)范化文檔的掌握并查閱有關技術資料等，培養(yǎng)項目設計開發(fā)能力。 </p><p>

4、;　　2. 課程設計的任務及要求</p><p><b>　　(1) 基本要求：</b></p><p>　　對系統(tǒng)功能進行需求分析；</p><p>　　使用Visual basic開發(fā)環(huán)境進行程序開發(fā)；</p><p>　?。?） 提出系統(tǒng)的設計方案；</p><p>　?。?） 編寫源程

5、序代碼并進行調(diào)試。</p><p><b>　　(2) 創(chuàng)新要求</b></p><p>　　在基本要求達到后，可進行創(chuàng)新設計。</p><p>　　(3) 課程設計報告撰寫及裝訂要求</p><p>　　課程設計報告的撰寫要求表述簡明，圖表準確。</p><p>　　報告按如下內(nèi)容和順序用A4紙

6、進行打印并裝訂成冊。</p><p><b>　?。?）封面</b></p><p>　　采用統(tǒng)一的課程設計封面，并按要求填寫好封面要求的個人信息和選題。</p><p><b>　?。?）設計任務書</b></p><p><b>　?。?）評閱書</b></p>

7、<p><b>　?。?）目錄</b></p><p><b>　?。?）正文</b></p><p><b>　?。?）主要參考文獻</b></p><p>　　(4) 課程設計評分標準： </p><p>　?。?）達到課程設計的目的與要求，程序的可讀性較好，

8、并調(diào)試正確，60分；</p><p>　?。?）能正確回答設計的中老師所提問題，可增加10分；</p><p>　?。?）課程設計報告書寫規(guī)范整齊，可增加10分；</p><p>　　（4）心得體會認真總結(jié)，可增加10分；</p><p>　?。?）程序有創(chuàng)新性，可增加10分；</p><p>　　成績評定實行優(yōu)秀、良

9、好、中等、及格和不及格五個等級。不及格者需重做。</p><p>　　(5) 課程設計進度安排</p><p>　　（1）準備階段（6學時）：選擇設計題目、了解設計目的要求、查閱相關資料。</p><p>　　（2）程序模塊設計分析階段（8學時）：程序總體設計、詳細設計。</p><p>　　(3) 代碼編寫調(diào)試階段（10學時）：程序模塊代碼

10、編寫、調(diào)試、測試。</p><p>　　(4) 撰寫論文階段（6學時）：總結(jié)課程設計任務和設計內(nèi)容，撰寫課程設計論文。</p><p>　　(6）課程設計題目具體要求：</p><p>　　設計要求：設計一個“按揭購房還款計劃”</p><p>　　使用銀行按揭貸款是目前購買商品房常用的方式，即一次性貸款然后每月償還，在預定年限（還款年數(shù)）內(nèi)

11、連本帶息還清為止。本題目要求編制一個實用程序，幫助準備以按揭貸款形式購買商品房的人士計算出以不同年限、不同數(shù)額、不同還款方式貸款時每月應償還的款數(shù)、還款的總額以及還款額和貸款額的比值。</p><p>　　說明：貸款方式分為兩類：商業(yè)性貸款，年利率為5%；政策性貸款，年利率為4%（政策性貸款需要貸款人具有有效的公積金賬戶，且每人最多螚貸6萬元）。</p><p>　　等額本息還款法，每月還

12、款額相同，為：</p><p>　　等額本金還款法，每月還款額不相同，逐月遞減，第i月的還款額為，其中： ，月利率=年利率/12</p><p>　?、?運行程序，顯示主窗口（如圖1），其中“還款年數(shù)”組合框默認值為“16”，“享受政策性貸款的人數(shù)”默認為“二人”，“還款起始年月”默認值為用戶使用時的日期。</p><p><b>　　圖1</b&

13、gt;</p><p>　?、?用戶根據(jù)需要輸入總額、選擇還款年數(shù)、政策性貸款人數(shù)和還款起始年月，然后單擊“等額本息還款法”按鈕彈出“等額本息還款法”窗口（圖2），顯示以“等額本息還款法”還款時“每月的還款額”、“全部本息總和”（每月還款額×還款月數(shù)）、“還款與貸款之比”（全部本息總和÷貸款額）。</p><p>　　圖2

14、 圖3</p><p>　?、?在主窗口中單擊“等額本金還款法”按鈕，彈出“等額本金還款法”窗口（如圖3），列表框中顯示出從起始還款年月開始“每月還款額”以及“全部本金總和”及“還貸比”；單擊“保存到文件”按鈕，顯示如圖4所示的輸入對話框提示輸入文件名及路徑，然后將列表框中的內(nèi)容以文本文件的形式保存到指定文件中。</p><p>　　圖4

15、 圖5 </p><p>　?、?“等額本金還款法”和“等額本息還款法”窗口都必須單擊“關閉”按鈕后返回到主窗口?！暗阮~本金還款法”窗口中“每月還款額”列表框中顯示的內(nèi)容要求上下對齊。如果未輸入貸款總額就單擊計算按鈕，則顯示消息對話框予以提示。</p><p>　　

16、學生簽名： </p><p>　　2013年 6月 17 日</p><p>　　課程設計（論文）評閱意見</p><p>　　評閱人 周美玲 職稱 講師 </p><p>　　2013年 6 月 23 日 </p><p><b>　　目錄</b></p>

17、;<p>　　第1章 我的系統(tǒng)概要2</p><p><b>　　1.1功能介紹2</b></p><p>　　第2章內(nèi)容總體設計2</p><p><b>　　2.1設計思路2</b></p><p>　　2.2 屬性窗口3</p><p>　　第

18、3章源程序代碼6</p><p>　　3.1 Form1窗口的代碼6</p><p>　　3.2 Form2窗口的代碼8</p><p>　　3.3 Form3窗口的代碼8</p><p>　　3.4 模塊的代碼9</p><p>　　第4章 最后運行結(jié)果及分析10</p><

19、;p>　　4.1 運行結(jié)果10</p><p>　　4.2程序分析11</p><p>　　4.3運行程序的相關說明13</p><p>　　第5章 心得體會15</p><p><b>　　參考文獻16</b></p><p>　　第1章 我的系統(tǒng)概要</p>&

20、lt;p><b>　　“</b></p><p>　　使用銀行按揭貸款是目前購買商品房常用的方式，即一次性貸款后每月償還，在預定年限（還款年數(shù)）內(nèi)連本帶息還清為止。本題目要求 一個實用程序，幫助準備以按揭貸款形式購買商品房的人士計算出以不同年限、不同數(shù)額、不同還款方式貸款時每月應還的款數(shù)、還款的總額以及還款額和貸款額的比例，幫助其進行決策。</p><p>&l

21、t;b>　　1.1功能介紹</b></p><p>　　按揭購房還款計劃的應用程序是一個類似于計算器的問題，但它又不同于計算器，它能夠根據(jù)用戶的需要快地計算出其還款的總額以及還款額和貸款額的比例，當系統(tǒng)界面和代碼設計完成運行后，能夠?qū)崿F(xiàn)以下操作：</p><p>　?。?） 運行程序，顯示主窗口，其中“還款年數(shù)”組合框默認值為“15”，“享受政策性貸款的人數(shù)”默認為“二人

22、”，“還款起始年月”默認為用戶使用時的日期。</p><p>　　（2） 用戶根據(jù)需要輸入貸款總額、選擇還款年數(shù)、政策性貸款人數(shù)和還款起始年月，但后單擊“等額本息還款法”按鈕彈出“等額本息還款法”對話框，顯示以“等額還款本息還款法”還款時每月的還款額、全部本息總和（每月還款額×還款月數(shù)）、還款額與貸款額之比（全部本息總和除以貸款額）。</p><p>　?。?）在主窗體中單擊“等

23、額本金還款法”按鈕，彈出“等額本金還款法”對話框，列表框中顯示出從起始還款年月開始每月的還款額以及全部本息總和及還款比。單擊“保存到文件”按鈕，顯示如圖1.4所示輸入窗口提示文件名即路徑。然后將列表框中的內(nèi)容以文本文件的形式保存到指定文件中。</p><p>　?。?）“等額本金還款法”和“等額本息還款法”窗口都以模態(tài)窗口顯示，即必須單擊“關閉”按鈕后才能繼續(xù)使用之窗口。“等額本金還款法”窗口中“每月還款額”列表

24、框中顯示的內(nèi)容要求上下對齊。如果未輸入貸款總額就單擊“計算”按鈕，則顯示消息框給予提示。</p><p>　　第2章內(nèi)容總體設計</p><p><b>　　2.1設計思路</b></p><p>　　分析:因為商業(yè)性貸款和政策性貸款的年利率分別為5%和4%，所以用If Corpus1 > Corpus2 Then Corpus1

25、= Corpus1 - Corpus2 Else</p><p>　　Corpus2 = Corpus1 Corpus1 = 0 End If 來對貸款總額分類。</p><p>　　又因為還款方式分等額本息還款發(fā)和等額本金還款法兩種，其中等額本息還款法：由公式，每月還款額 等額本金還款法：有公式，第i個月還款額uation.3 </p

26、><p>　　所以建立一個全局通用的模塊，在模塊中定義A函數(shù) Function A(Corpus As Single, Rate As Single, Year As Integer) As Single 和 B函數(shù) Function B(Corpus As Single, Rate As Single, Year As Integer, Arr() As Single) As Single 然后再在每個

27、Click事件中調(diào)用這兩個即可。</p><p>　　要將得到的每個月還款額的列表框輸出到指定文件中，用Open 文件名 For 模式as 代號即可。具體流程圖如下：</p><p><b>　　流程圖</b></p><p><b>　　2.2 屬性窗口</b></p><p><b>

28、　　用戶界面：</b></p><p><b>　　對象屬性：</b></p><p><b>　　第3章源程序代碼</b></p><p>　　3.1 Form1窗口的代碼</p><p>　　Option Explicit</p><p>　　Privat

29、e Sub Form_Load()</p><p>　　Dim i As Integer</p><p>　　For i = 1 To 30</p><p>　　cboYear1.AddItem i</p><p><b>　　Next</b></p><p>　　cboYear1.Text =

30、15</p><p>　　For i = 0 To 9</p><p>　　cboYear.AddItem Year(Date) + i</p><p><b>　　Next</b></p><p>　　cboYear.Text = Year(Date)</p><p>　　For i = 1 T

31、o 12</p><p>　　cboMonth.AddItem i</p><p><b>　　Next</b></p><p>　　cboMonth.Text = month(Date)</p><p><b>　　End Sub</b></p><p>　　Private

32、 Sub Command1_Click()</p><p>　　Dim Corpus1 As Single</p><p>　　Dim Corpus2 As Single</p><p>　　Dim Rate As Single</p><p>　　Dim Year As Integer</p><p>　　Dim i

33、 As Integer</p><p>　　Dim A1 As Single</p><p>　　Dim A2 As Single</p><p>　　If Val(txtCorpus.Text) = 0 Or Val(cboYear1.Text) = 0 Then MsgBox "請輸入合適的貸款額。", 48, "注意":

34、 Exit Sub</p><p>　　Corpus1 = txtCorpus.Text</p><p>　　Year = cboYear1.Text</p><p>　　For i = 0 To 3</p><p>　　If Option1(i) Then Exit For</p><p><b>　　Ne

35、xt</b></p><p>　　Corpus2 = i * 6</p><p>　　If Corpus1 > Corpus2 Then</p><p>　　Corpus1 = Corpus1 - Corpus2</p><p><b>　　Else</b></p><p>　　

36、Corpus2 = Corpus1</p><p>　　Corpus1 = 0</p><p><b>　　End If</b></p><p>　　Corpus1 = Corpus1 * 10000</p><p>　　Corpus2 = Corpus2 * 10000</p><p>　　A1

37、 = A(Corpus1, 0.05, Year)</p><p>　　A2 = A(Corpus2, 0.04, Year)</p><p>　　Load Form2</p><p>　　Form2.Text1 = Format(A1 + A2, "0.00")</p><p>　　Form2.Text2 = Forma

38、t((A1 + A2) * Year * 12, "0.00")</p><p>　　Form2.Text3 = (A1 + A2) * Year * 12 / (Corpus1 + Corpus2)</p><p>　　Form2.Show 1</p><p><b>　　End Sub</b></p>&l

39、t;p>　　Private Sub Command2_Click()</p><p>　　Dim Corpus1 As Single</p><p>　　Dim Corpus2 As Single</p><p>　　Dim Rate As Single</p><p>　　Dim Year As Integer</p>

40、<p>　　Dim i As Integer, j As Integer</p><p>　　Dim A1 As Single</p><p>　　Dim A2 As Single</p><p>　　Dim start_year As Integer, start_month As Integer</p><p>　　Dim b1

41、() As Single</p><p>　　Dim b2() As Single</p><p>　　If Val(txtCorpus.Text) = 0 Or Val(cboYear1.Text) = 0 Then MsgBox "請輸入合適的貸款額。", 48, "注意": Exit Sub</p><p>　　Cor

42、pus1 = txtCorpus.Text</p><p>　　Year = cboYear1.Text</p><p>　　start_year = cboYear.Text</p><p>　　start_month = cboMonth.Text</p><p>　　ReDim b1(Year * 12)</p><

43、p>　　ReDim b2(Year * 12)</p><p>　　For i = 0 To 3</p><p>　　If Option1(i) Then Exit For</p><p><b>　　Next</b></p><p>　　Corpus2 = i * 6</p><p>　　

44、If Corpus1 > Corpus2 Then</p><p>　　Corpus1 = Corpus1 - Corpus2</p><p><b>　　Else</b></p><p>　　Corpus2 = Corpus1</p><p>　　Corpus1 = 0</p><p>&

45、lt;b>　　End If</b></p><p>　　Corpus1 = Corpus1 * 10000</p><p>　　Corpus2 = Corpus2 * 10000</p><p>　　A1 = B(Corpus1, 0.0504, Year, b1)</p><p>　　A2 = B(Corpus2, 0.0

46、405, Year, b2)</p><p>　　Load Form3</p><p>　　For i = 1 To Year * 12</p><p>　　Form3.List1.AddItem start_year & "年" & Format(start_month, "00") & "

47、月：" & Format(b1(i) + b2(i), "0.00") & "元"</p><p>　　start_month = start_month + 1</p><p>　　If start_month = 13 Then start_month = 1: start_year = start_year + 1&l

48、t;/p><p><b>　　Next</b></p><p>　　Form3.Text2 = A1 + A2</p><p>　　Form3.Text3 = (A1 + A2) / (Corpus1 + Corpus2)</p><p>　　Form3.Show 1</p><p><b>

49、;　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　3.2 Form2窗口的代碼</p>

50、<p>　　Private Sub Command1_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　3.3 Form3窗口的代碼</p><p>　　Option Explicit<

51、/p><p>　　Private Sub Command1_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　

52、　Dim s As String</p><p>　　Dim i As Integer</p><p>　　s = InputBox("請輸入文件名及路徑。", "文件名")</p><p>　　If s = "" Then Exit Sub</p><p>　　Open s For

53、 Output As 1</p><p>　　For i = 0 To List1.ListCount - 1</p><p>　　Print #1, List1.List(i)</p><p><b>　　Next</b></p><p><b>　　Close 1</b></p>

54、<p><b>　　End Sub</b></p><p>　　3.4 模塊的代碼</p><p>　　Option Explicit</p><p>　　Function A(Corpus As Single, Rate As Single, Year As Integer) As Single</p><p&

55、gt;　　Dim Temp As Single</p><p>　　Rate = Rate / 12#</p><p>　　Temp = (1 + Rate) ^ (Year * 12)</p><p>　　A = (Corpus * Rate * Temp) / (Temp - 1)</p><p>　　End Function</p

56、><p>　　Function B(Corpus As Single, Rate As Single, Year As Integer, Arr() As Single) As Single</p><p>　　Dim total As Single</p><p>　　Dim m_total As Single</p><p>　　Dim mo

57、nth As Integer</p><p>　　Dim i As Integer</p><p>　　Rate = Rate / 12</p><p>　　month = Year * 12</p><p>　　total = 0#</p><p>　　m_total = 0#</p><p>

58、;　　For i = 1 To month</p><p>　　m_total = Corpus / month + (Corpus - Corpus / month * (i - 1)) * Rate</p><p>　　Arr(i) = m_total</p><p>　　total = total + m_total</p><p>&

59、lt;b>　　Next</b></p><p><b>　　B = total</b></p><p>　　End function</p><p>　　第4章 最后運行結(jié)果及分析</p><p><b>　　4.1 運行結(jié)果</b></p><p>　　

60、當貸款總額為10時，運行結(jié)果如圖：</p><p><b>　　單擊等額本息還款法</b></p><p><b>　　等額本金還款法</b></p><p>　　當輸入貸款總額為0時：</p><p><b>　　4.2程序分析</b></p><p>

61、;<b>　　運行錯誤</b></p><p>　　在設計代碼的時候，確實遇到了不少問題，首先，在設置控件的屬性只能的時候，不知道哪些該改，哪些不該改。然后，編寫代碼時出現(xiàn)了很多錯誤。</p><p>　　1 模塊中的通用函數(shù)A、B，一是由公式代換時出現(xiàn)錯誤，二是定義變量時漏掉許多東西，于是就調(diào)試，重新定義變量。</p><p>　　2在應用

62、For循環(huán)語句和If條件語句嵌套時，漏寫Next或者Then或者End If。措施：加上缺少的語句即可。</p><p>　　3不知道怎么計算政策性和商業(yè)性貸款的總額，上網(wǎng)查詢。</p><p>　　4在調(diào)用通用過程時定義的變量有誤，重新定義變量。。</p><p>　　5使消息對話框出現(xiàn)警告，不知道用48代號，查閱書本。</p><p>　

63、　6文件輸出時出現(xiàn)路徑錯誤，調(diào)試后才發(fā)現(xiàn)是文件名錯誤。</p><p>　　4.3運行程序的相關說明</p><p>　　用戶根據(jù)需要輸入貸款總額、選擇還款年數(shù)、政策性貸款人數(shù)和還款起始年月，然后單擊“等額本息還款法”按鈕彈出“等額本息還款法”對話框，顯示以“等額還款本息還款法”還款時每月的還款額、全部本息總和（每月還款額×還款月數(shù)）、還款額與貸款額之比（全部本息總和除以貸款額）

64、。在主窗體中單擊“等額本金還款法”按鈕，彈出“等額本金還款法”對話框，列表框中顯示出從起始還款年月開始每月的還款額以及全部本息總和及還款比。單擊“保存到文件”按鈕，顯示如圖1.4所示輸入窗口提示文件名即路徑。然后將列表框中的內(nèi)容以文本文件的形式保存到指定文件中。如果未輸入貸款總額就單擊“計算”按鈕，則顯示如圖的消息框給予提示。</p><p><b>　　第5章 心得體會</b></

65、p><p>　　說實話，vb課程設計對我來說確實有很大的挑戰(zhàn)性，有很多東西都要自學，還要咨詢有經(jīng)驗的學長，但通過這個課程設計讓我對vb有了進一步的了解。</p><p>　　在這次的程序設計過程中，我遇到了很多問題。什么定義不存在之類的問題，于是我選擇了調(diào)試，可它指向的卻是“If Option1(i) Then Exit for”這一行，我百思不得其解。翻書查看無效之后，我便開始問學長究竟什么

66、原因，終于讓我發(fā)現(xiàn)了這個“Option1”，原來是我錯把1(數(shù)字)寫成l（英文字母）。在VB設計的過程中類似于這樣的問題有很多，看似很小的問題，即使是一個小標點或是一個英文字母對程序的影響也很大。因此，在設計的過程中，我們需要足夠的耐心。 </p><p>　　在這次的課程設計的過程中雖然碰到很多問題，但我收獲頗多。的確，是它讓我明白了萬事開頭難，但剛剛開始遇到一些困難沒關系，慢慢來。編程序本來就是一個比較繁瑣的

67、過程，是一個需要不斷學習、不斷積累的過程，而編寫程序的樂趣大概也正在于這樣學習的過程中吧。</p><p>　　這次程序的編寫也讓我明白編程不是一項輕松的活，尤其是對于一個VB課程設計，它并不像我們平常的上機作業(yè)那樣。面對每次的運行結(jié)果是“類型不匹配”或是“函數(shù)未定義”時，我整個人幾乎面臨崩潰，畢竟時間有限。這樣的VB課程設計真的很能鍛煉一個人的自學水平，沒有一定的基本功、細心及耐心是絕對不可能做到的。</

68、p><p>　　現(xiàn)在回想起整個課程設計的過程，有時候真的不想做了，討厭代碼編寫過程經(jīng)常漏洞百出和有些程序不能正常運行，在某一個瞬間程序正常運行之后我會不自覺的開懷大笑。總之，VB給予了我歡樂與痛苦。通過這樣一個學期VB的學習以及以這次課程設計，我對VB這門高級的程序設計語言有了許多了解。逐漸喜歡上了編程的過程。接下來，我一定要好好復習所學內(nèi)容去迎接最后的VB期末考核。相信我一定行。</p><p&