私有子命令1_Click()
Dim a為Double '總抵押金額'
Dim i As Double '抵押貸款利率'
Dim n為Double '抵押期數'
Dim h為Double '每月按揭還款'
Dim Y為Double '抵押貸款利率'
Dim z作為雙“配電盤價格”
Dim s為雙“首付比例”
Dim d為雙重“信用調查”
Dim f為雙倍“定金”
Dim b為雙倍“手續費”
Dim c As Double 'gps初裝費'
Dim e為Double 'gps使用費'
Dim j As Double“管理費”
Dim k As Double '保留購買價格'
作為雙重“保險”
Dim p為Double '首次付款合計'
Y = Val(Text2。正文)
n = Val(Combo2。正文)
如果n & lt那麽13
Text11。Text = 960
其他
Text11。Text = 1920
如果…就會結束
z = Val(文本5。正文)
s = Val(文本6。正文)
d = Val(Combo1。正文)
b = Val(Text8。正文)
c = Val(Text10。正文)
e = Val(Text11。正文)
j = Val(Text12。正文)
k = Val(Text13。正文)
g = Val(Text18。正文)
f = z * s / 100
a = z - f
i = Y / 100
h = a *(I/12 *(1+I/12)^ n)/((1+I/12))'^ n-1)
Text1。Text = a
短信3。Text = f
文本4。文本=格式(h，“0.00”)
文本8。Text = a * 0.01
Text16。Text = z * 0.1
Text14。文本=格式(h * n - a，“0.00”)
Text15。text = p+z * 0.1+e+d+j+g+k+c+b+f
末端接頭
私有子命令2_Click()
Text1。文本= " "
文本2。文本= " "
短信3。文本= " "
文本4。文本= " "
末端接頭
私有子窗體_Load()
Dim X為整數，q為整數
對於X = 1500到5000步500
Combo1。AddItem字符串(X)
下壹個X
對於q = 1到24步1
組合2。AddItem字符串(q)
下壹問
Text1。文本= " "
文本2。文本= " "
短信3。文本= " "
文本4。文本= " "
文本6。文本= " "
Text10。Text = "1880 "
Text12。Text = "500 "
Text13。Text = "500 "
文本2。Text = "6.68 "
文本6。Text = "10 "
末端接頭
私有子文本10_Change()
Text10。Text = "1880 "
末端接頭
私有子文本12_Change()
Text12。Text = "500 "
末端接頭
私有子文本13_Change()
Text13。Text = "500 "
末端接頭
私有子文本2_Change()
文本2。Text = "6.68 "
末端接頭
私有子文本6_Change()
文本6。Text = "10 "
末端接頭