1、 設(shè)計(jì)任務(wù)書(shū) 華東交通大學(xué)藝術(shù)學(xué)院音樂(lè)學(xué)1班一、課程設(shè)計(jì)題目： 按揭購(gòu)房還款計(jì)劃二、課程設(shè)計(jì)工作自2012年5月27日起至2011年6月6日止三、課程設(shè)計(jì)地點(diǎn)： 計(jì)算機(jī)中心四：課程設(shè)計(jì)內(nèi)容要求：1. 本課程設(shè)計(jì)的目的 進(jìn)一步鞏固和加深對(duì)“VB程序設(shè)計(jì)”課程基本知識(shí)的理解和掌握，了解VB語(yǔ)言在項(xiàng)目開(kāi)發(fā)中的應(yīng)用。 學(xué)習(xí)程序設(shè)計(jì)開(kāi)發(fā)的一般方法，了解和掌握項(xiàng)目開(kāi)發(fā)過(guò)程及方式，培養(yǎng)正確的設(shè)計(jì)思想和分析問(wèn)題、解決問(wèn)題的能力，特別是項(xiàng)目設(shè)計(jì)能力。 通過(guò)對(duì)標(biāo)準(zhǔn)化、規(guī)范化文檔的掌握并查閱有關(guān)技術(shù)資料等，培養(yǎng)項(xiàng)目設(shè)計(jì)開(kāi)發(fā)能力。 掌握自頂而下的設(shè)計(jì)方法，將大問(wèn)題進(jìn)行模塊化分解，領(lǐng)會(huì)結(jié)構(gòu)化程序設(shè)計(jì)的方法，同時(shí)深刻認(rèn)識(shí)

2、到面向?qū)ο蟪绦蛟O(shè)計(jì)與面向過(guò)程設(shè)計(jì)的根本區(qū)別。 進(jìn)一步掌握在集成環(huán)境下調(diào)試程序和修改程序的方法和技巧。2. 課程設(shè)計(jì)的任務(wù)及要求： 基本要求： 對(duì)系統(tǒng)功能進(jìn)行需求分析； 使用Visual basic開(kāi)發(fā)環(huán)境進(jìn)行程序設(shè)計(jì)； 提出系統(tǒng)的設(shè)計(jì)方案； 編寫(xiě)源程序代碼并進(jìn)行調(diào)試。 創(chuàng)新要求 在程序能正常運(yùn)行之后，對(duì)于其中一些比較繁瑣的程序代碼嘗試用循環(huán)來(lái)使其變得較為簡(jiǎn)單一些，也增強(qiáng)了代碼的可讀性。 課程設(shè)計(jì)報(bào)告撰寫(xiě)及裝訂要求 課程設(shè)計(jì)報(bào)告的撰寫(xiě)要求簡(jiǎn)明，圖表準(zhǔn)確。 報(bào)告按如下內(nèi)容和順序用A4紙進(jìn)行打印并裝訂成冊(cè)。 封面 采用統(tǒng)一的課程設(shè)計(jì)，并按要求填寫(xiě)好封面要求的個(gè)人信息和選題。 設(shè)計(jì)任務(wù)書(shū) 評(píng)閱書(shū) 目錄

3、 正文 主要參考文獻(xiàn) 課程設(shè)計(jì)評(píng)分標(biāo)準(zhǔn) 達(dá)到課程設(shè)計(jì)的目的與要求，程序可讀性較好，并調(diào)試正確，60分； 能正確回答設(shè)計(jì)中的老師所提的問(wèn)題，可增加10分； 課程設(shè)計(jì)報(bào)告書(shū)寫(xiě)規(guī)范整齊，可增加10分； 心得體會(huì)認(rèn)真總結(jié)，可增加10分； 程序有創(chuàng)新性，可增加10分；成績(jī)?cè)u(píng)定實(shí)行優(yōu)秀、良好、中等、及格和不及格五個(gè)等級(jí)，不及格者需重做。 課程設(shè)計(jì)進(jìn)度安排 準(zhǔn)備階段（6學(xué)時(shí)）：選擇設(shè)計(jì)題目、了解設(shè)計(jì)目的要求、查閱相關(guān)資料。 程序設(shè)計(jì)模塊設(shè)計(jì)分析階段（8學(xué)時(shí)）：程序總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)。 代碼編寫(xiě)調(diào)試階段（10學(xué)時(shí)）：程序模塊代碼編寫(xiě)、調(diào)試、測(cè)試。 撰寫(xiě)論文階段（6學(xué)時(shí)）：總結(jié)課程設(shè)計(jì)任務(wù)和設(shè)計(jì)內(nèi)容，撰寫(xiě)課程設(shè)

4、計(jì)論文。 課程設(shè)計(jì)題目設(shè)計(jì)要求：設(shè)計(jì)一個(gè)實(shí)用程序，幫助準(zhǔn)備以按揭貸款形式購(gòu)買(mǎi)商品房的人士計(jì)算出以不同年限、不同數(shù)額、不同還款方式貸款時(shí)每月應(yīng)還的款數(shù)、還款的總額以及還款額和貸款額的比例，幫助其進(jìn)行決策。在設(shè)計(jì)的過(guò)程中需要考慮的問(wèn)題： 第一：了解商業(yè)性貸款和政策性貸款的年利率以及相關(guān)算法，此外也要了解知道“等額本息還款法”和“等額本金還款法”的相關(guān)含義以及其計(jì)算方式。 第二：對(duì)于貸款的數(shù)值其不能為零，而且在計(jì)算商業(yè)性貸款和政策性貸款的數(shù)值的過(guò)程中，需要利用“變量代換，數(shù)值交換”原則，從而簡(jiǎn)化計(jì)算。 第三：在代碼中編寫(xiě)還款額的計(jì)算公式時(shí)，要注意運(yùn)算符 “+”、“”、“*”、“”等的優(yōu)先級(jí)，從而根據(jù)

5、其是否要加括號(hào)。 第四：在對(duì)主窗口的程序設(shè)計(jì)中，要學(xué)會(huì)多模塊程序設(shè)計(jì)、文本文件的保存、列表框等的基本使用，運(yùn)行程序，顯示主窗口，其中“還款年數(shù)”組合框默認(rèn)值為“15”，“享受政策性貸款的人數(shù)”默認(rèn)為“二人”，“還款起始年月”默認(rèn)為用戶使用時(shí)的日期。 第五： 用戶根據(jù)需要輸入貸款總額、選擇還款年數(shù)、政策性貸款人數(shù)和還款起始年月，但后單擊“等額本息還款法”按鈕彈出“等額本息還款法”對(duì)話框，顯示以“等額還款本息還款法”還款時(shí)每月的還款額、全部本息總和、還款額與貸款額之比。第六：在主窗體中單擊“等額本金還款法”按鈕，彈出“等額本金還款法”對(duì)話框，列表框中顯示出從起始還款年月開(kāi)始每月的還款額以及全部本息

6、總和及還款比。單擊“保存到文件”按鈕，會(huì)出現(xiàn)窗口提示文件保存路徑。然后將列表框中的內(nèi)容以文本文件的形式保存到指定文件中。算法要求： “+”：運(yùn)算后的到的商業(yè)性還款與政策性還款的全部本息總和（“-”和“+”的情況相類(lèi)似） “/”：運(yùn)算后所得到的是還款額與貸款額之比以及每月平均的還款數(shù)目等。(“*”和“/”的情況大同小異) 學(xué)生簽名： 2012年 6月6日 課程設(shè)計(jì)（論文）評(píng)閱意見(jiàn)序號(hào)項(xiàng) 目等級(jí)優(yōu)秀良好中等及格不及格1課程設(shè)計(jì)態(tài)度評(píng)價(jià)2出勤情況評(píng)價(jià)3任務(wù)難度評(píng)價(jià)4工作量飽滿評(píng)價(jià)5設(shè)計(jì)中創(chuàng)新性評(píng)價(jià)6論文書(shū)寫(xiě)規(guī)范化評(píng)價(jià)綜合評(píng)定等級(jí) 評(píng)閱人 職稱(chēng) 年 月 日 目錄第1章 系統(tǒng)概要6 第2章 設(shè)計(jì)思路與算

7、法 7第3章 窗體的詳細(xì)設(shè)計(jì)8第4章源程序代碼12第5章 運(yùn)行結(jié)果及分析16第6章 心得體會(huì)19參考文獻(xiàn)20第一章 系統(tǒng)概要1.1 題目要求： 設(shè)置一個(gè)按揭購(gòu)房還款計(jì)劃的一個(gè)實(shí)用程序，幫助準(zhǔn)備以按揭貸款形式購(gòu)買(mǎi)商品房的人士計(jì)算出以不同年限、不同數(shù)額、不同還款方式貸款時(shí)每月應(yīng)還的款數(shù)、還款的總額以及還款額和貸款額的比例，幫助其進(jìn)行決策。1.2 功能概述：按揭購(gòu)房還款計(jì)劃的應(yīng)用程序是一個(gè)類(lèi)似于計(jì)算器的問(wèn)題，但它又不同于計(jì)算器，它能夠根據(jù)用戶的需要快地計(jì)算出其還款的總額以及還款額和貸款額的比例，當(dāng)系統(tǒng)界面和代碼設(shè)計(jì)完成運(yùn)行后，能夠?qū)崿F(xiàn)以下操作：用戶輸入貸款總額、選擇還款年數(shù)、政策性貸款人數(shù)和還款起始

8、年月，但后單擊“等額本息還款法”按鈕彈出“等額本息還款法”對(duì)話框（如圖5-2），顯示以“等額還款本息還款法”還款時(shí)每月的還款額、全部本息總和（每月還款額×還款月數(shù)）、還款額與貸款額之比（全部本息總和除以貸款額）。）在主窗體中單擊“等額本金還款法”按鈕，彈出“等額本金還款法”對(duì)話框（如圖5-3），列表框中顯示出從起始還款年月開(kāi)始每月的還款額以及全部本息總和及還款比。單擊“保存到文件”按鈕，顯示如圖5-5所示輸入窗口提示文件名即路徑。然后將列表框中的內(nèi)容以文本文件的形式保存到指定文件中（文件內(nèi)容如圖5-5）“等額本金還款法”和“等額本息還款法”窗口都以模態(tài)窗口顯示，即必須單擊“關(guān)閉”按鈕

9、后才能繼續(xù)使用之窗口?！暗阮~本金換狂發(fā)”窗口中“每月還款額”列表框中顯示的內(nèi)容要求上下對(duì)齊。如果未輸入貸款總額就單擊“計(jì)算”按鈕，則顯示如圖5-1的消息框給予提示。第二章 計(jì)思路設(shè)與算法Command1Command2Command3 主程序?qū)崿F(xiàn)等額本息還款法實(shí)現(xiàn)等額本金還款法退出應(yīng)用程序每月還款額元全部本息總和元還款與貨款之比全部本息總和元還款比保存路徑 第三章 窗體的詳細(xì)設(shè)計(jì) 主窗口的界面為下圖3-1，其中，貸款總額、還款年數(shù)以及還款起始年月均為系統(tǒng)默認(rèn)值。 圖31 屬性設(shè)置控件名屬性名屬性值Lable1Caption貨款總額Lable2Caption還款年數(shù)Lable3Caption年L

10、able4Caption月Text1textCombo1Style0Combo2Style0Combo3Style0Option1（0）Caption無(wú)人Option1（1）Caption一人Option1（2）Caption二人Option1（3）Caption三人Frame1Caption享受政策性貸款的人數(shù)Frame2Caption還款的起始年月Command1Caption等額本息還款法Command2Caption等額本金還款法Command3Caption退出Form2的窗體界面如下： 圖3-2 屬性設(shè)置控件名屬性名屬性值Lable1Caption每月還款額（元）Lable2Cap

11、tion全部本息總和Lable3Caption還款與貨款之比Text1TextText2TextText3TextCommand1Caption關(guān)閉Form3窗體的界面如下： 圖3-3 屬性設(shè)置 控件名屬性名屬性值Frame1Caption每月還款額（元）List1Columns0Lable1Caption全部本息總和（元）Lable2Caption還貨比Text1Text1Text1Text1Command1Caption保存路徑Command1Caption關(guān)閉第四章 源程序代碼對(duì)于主窗體Form1的代碼編寫(xiě)為Private Sub Form_Load() Dim i As Integer

12、For i = 1 To 30Combo1.AddItem i 設(shè)置還款年數(shù)Next iCombo1.Text = 15 系統(tǒng)默認(rèn)還款年數(shù)為15年For i = 2008 To 2020Combo2.AddItem i 還款起始的年份Next iCombo2.Text = 2008 系統(tǒng)默認(rèn)的還款起始年份For i = 1 To 12Combo3.AddItem I 還款的月份Next iCombo3.Text = 1 系統(tǒng)默認(rèn)的還款起始月Text1.Text = 0Option1(2).Value = TrueEnd Sub對(duì)于Command1的程序代碼為：Private Sub Comma

13、nd1_Click()Dim s As Single, z As Single, Rate As Single, s1 As Single, z1 As SingleDim Year As Integer, i As IntegerIf Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox "請(qǐng)輸入合適的貸款額。", 48, "注意": Exit Subs = Text1.Text S為貸款的數(shù)額Year = Combo1.Text Year為還款的年數(shù)For i = 0 To 3 i為享受政策性

14、貸款的人數(shù)If Option1(i) Then Exit ForNext iz = i * 6If s > z Thens = s - zElsez = ss = 0 計(jì)算出各種情況下的政策性貸款額和商業(yè)性貸款額End Ifs = s * 10000z = z * 10000s1 = (s * (0.05 / 12) * (1 + 0.05 / 12) (Year * 12) / (1 + 0.05 / 12) (Year * 12) - 1)z1 = (z * (0.04 / 12) * (1 + 0.04 / 12) (Year * 12) / (1 + 0.04 / 12) (Ye

15、ar * 12) - 1)Load Form2 下載窗體 form2Form2.Text1 = Format(s1 + z1, "0.00") 用于顯示每月還款額Form2.Text2 = Format(s1 + z1) * Year * 12, "0.00") 用于顯示全部本息總和Form2.Text3 = (s1 + z1) * Year * 12 / (s + z) 用于顯示還款與貨款之比 Form2.Show 1 顯示窗體form2End Sub對(duì)于加載的窗體form2的代碼編寫(xiě)為：Private Sub Command1_Click() Unl

16、oad Me 只是退出程序而不是停止運(yùn)行程序End Sub對(duì)于的Command2代碼編寫(xiě)為:Private Sub Command2_Click()Dim s As Single, z As Single, Rate As Single, s1 As Single, z1 As SingleDim Year As Integer, i As Integer, j As Integer, start_year As Integer, start_month As IntegerIf Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox &

17、quot;請(qǐng)輸入合適的貸款額。", 48, "注意": Exit Subs = Text1.TextYear = Combo1.Textstart_year = Combo2.Text start year為開(kāi)始還款的年份start_month = Combo3.Text start month為開(kāi)始還款的月份ReDim b1(Year * 12)ReDim b2(Year * 12)For i = 0 To 3 得到享受政策性還款的人數(shù) If Option1(i) Then Exit ForNext iz = i * 6If s > z Thens = s

18、 - zElsez = ss = 0End Ifs = s * 10000 得到商業(yè)性貸款的數(shù)額z = z * 10000 得到政策性貸款的數(shù)額Load Form3 下載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) 用for循環(huán)求商業(yè)性還款額z1 = z1 + b2(i) 用

19、for循環(huán)求政策性還款額Form3.List1.AddItem start_year & "年" & Format(start_month, "00") & "月：" & Format(b1(i) + b2(i), "0.00") & "元"start_month = start_month + 1If start_month = 13 Then start_month = 1: start_year = start_year + 1Next iForm3

20、.Text1 = s1 + z1 計(jì)算等額本金還款的全部本息總和Form3.Text2 = (s1 + z1) / (s + z) 計(jì)算其還貨比Form3.Show 1 顯示form3窗體End Sub對(duì)于加載的Form3窗體編寫(xiě)的程序代碼為：Private Sub Command1_Click()Dim s As StringDim i As Integers = InputBox("請(qǐng)輸入文件名及路徑。", "文件名") 利用InputBox函數(shù)來(lái)引入輸入對(duì)話框If s = "" Then Exit Sub 如果s為空則退出不保存

21、Open s For Output As #1 打開(kāi)文件供輸出For i = 0 To List1.ListCount - 1Print #1, List1.List(i) 輸出i行內(nèi)容Next iClose #1 關(guān)閉文件#1End SubPrivate Sub Command2_Click() Unload MeEnd Sub對(duì)于Command3命令按鈕的代碼編寫(xiě)為：Private Sub Command3_Click()End 結(jié)束運(yùn)行End Sub第五章 運(yùn)行結(jié)果及分析第六章 心得體會(huì) 毫不夸張的說(shuō)，VB課程設(shè)計(jì)于我而言是一項(xiàng)比較大的“工程”，對(duì)于這次課程設(shè)計(jì)的題目按揭購(gòu)房還款計(jì)劃，就這么一個(gè)題目，也就只是這個(gè)題目，除了準(zhǔn)備階段我整整用了一天半的時(shí)間才把它給做出來(lái)。在這次的程序設(shè)計(jì)過(guò)程中，我遇到了很多問(wèn)題。就比如在創(chuàng)建單選框的時(shí)候，我理所當(dāng)然的選擇了Option1,Option2,Option3,Option4四個(gè)單選框，而在程序編寫(xiě)的過(guò)程中它總是出項(xiàng)“子程序或函數(shù)未定義”的提示，