資源描述：
《vb課程設(shè)-按揭購(gòu)房還款計(jì)劃設(shè)計(jì)報(bào)告》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、按揭購(gòu)房還款計(jì)劃設(shè)計(jì)報(bào)告學(xué)院土木工程班級(jí)測(cè)繪C111學(xué)號(hào)117538姓名霍新成績(jī)一、設(shè)計(jì)思路1.要達(dá)到的目的⑴培養(yǎng)學(xué)生綜合利用VB語(yǔ)言進(jìn)行程序設(shè)計(jì)的能力，主要是利用VB的圖像控件進(jìn)行界面設(shè)計(jì)，用VB的鼠標(biāo)事件進(jìn)行控件的拖拽處理以及利用數(shù)組進(jìn)行數(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ī)范化文檔的掌握并查閱
2、有關(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í)到面向?qū)ο蟪绦蛟O(shè)計(jì)與面向過(guò)程設(shè)計(jì)的根本區(qū)別。⑸進(jìn)一步掌握在集成環(huán)境下調(diào)試程序和修改程序的方法和技巧。2.關(guān)鍵問(wèn)題的解決⑴用戶輸入貸款總額、選擇還款年數(shù)、政策性貸款人數(shù)和還款起始年月，但后單擊“等額本息還款法”按鈕彈出“等額本息還款法”對(duì)話框，顯示以“等額還款本息還款法”還款時(shí)每月的還款額、全部本息總和、還款額與貸款額之比。⑵）在主窗體中單擊“等額本金還款法”按鈕，彈出“等額本金還款法”
3、對(duì)話框，列表框中顯示出從起始還款年月開(kāi)始每月的還款額以及全部本息總和及還款比。單擊“保存到文件”按鈕，顯示提示文件名即路徑的窗口。然后將列表框中的內(nèi)容以文本文件的形式保存到指定文件中。⑶“等額本金還款法”和“等額本息還款法”窗口都以模態(tài)窗口顯示，即必須單擊“關(guān)閉”按鈕后才能繼續(xù)使用之窗口。“等額本金還款法”窗口中“每月還款額”列表框中顯示的內(nèi)容要求上下對(duì)齊。如果未輸入貸款總額就單擊“計(jì)算”按鈕，則顯示消息框給予提示。二、模塊之間的調(diào)用關(guān)系，或程序流程圖Command1Command2Command3主程序?qū)崿F(xiàn)
4、等額本息還款法實(shí)現(xiàn)等額本金還款法退出應(yīng)用程序每月還款額︵元︶全部本息總和︵元︶還款與貨款之比全部本息總和︵元︶還款比保存路徑三、部分程序關(guān)鍵源代碼及注釋對(duì)于主窗體Form1的代碼編寫(xiě)為PrivateSubForm_Load()DimiAsIntegerFori=1To30Combo1.AddItemi‘設(shè)置還款年數(shù)NextiCombo1.Text=15‘系統(tǒng)默認(rèn)還款年數(shù)為15年Fori=2008To2020Combo2.AddItemi‘還款起始的年份NextiCombo2.Text=2008‘系統(tǒng)默認(rèn)的還款
5、起始年份Fori=1To12Combo3.AddItemI‘還款的月份NextiCombo3.Text=1‘系統(tǒng)默認(rèn)的還款起始月Text1.Text=0Option1(2).Value=TrueEndSub針對(duì)實(shí)現(xiàn)等額本息還款法的程序代碼：PrivateSubCommand1_Click()DimsAsSingle,zAsSingle,s1AsSingle,z1AsSingleDimYearAsInteger,iAsIntegerIfVal(Text1.Text)=0OrVal(Combo1.Text)=0T
6、henMsgBox"請(qǐng)輸入合適的貸款額。",48,"注意":ExitSubs=Text1.Text‘S為貸款的數(shù)額Year=Combo1.Text‘Year為還款的年數(shù)Fori=0To3‘i為享受政策性貸款的人數(shù)IfOption1(i)ThenExitForNextiz=i*6Ifs>zthens=s-zElsez=ss=0‘計(jì)算出各種情況下的政策性貸款額和商業(yè)性貸款額EndIfs=s*10000z=z*10000s1=(s*(0.05/12)*(1+0.05/12)^(Year*12))/((1+0.05/
7、12)^(Year*12)-1)z1=(z*(0.04/12)*(1+0.04/12)^(Year*12))/((1+0.04/12)^(Year*12)-1)LoadForm2‘下載窗體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.Show1‘顯示窗體fo
8、rm2EndSub=====================================================================對(duì)于加載的窗體form2的代碼編寫(xiě)為：PrivateSubCommand1_Click()UnloadMe‘只是退出程序而不是停止運(yùn)行程序EndSub================================================
