VB编写利息计算程序。当通过滚动条改变本金 月份或年利率时，能立即计算出利息及本息合计的值

来源：百度知道 编辑：UC知道 时间：2024/05/27 15:00:11

月还款额=申请借款*月利率*POWER(1+月利率,总还款月数)/(POWER(1+月利率,总还款月数)-1)

Private Sub HScroll1_Change()
HScroll1.Max = 12
HScroll1.Min = 1
HScroll1.LargeChange = 1
Text2.Text = CStr(HScroll1.Value)
ChgResult
End Sub

Private Sub HScroll2_Change()
HScroll2.Max = 150
HScroll2.Min = 0
Text3.Text = CStr(HScroll2.Value)
ChgResult
End Sub

Private Sub VScroll1_Change()
Text1.Text = CStr(VScroll1.Value)
ChgResult
End Sub
Sub ChgResult()
Text4.Text = CStr(Val(Text1.Text) * Val(Text3.Text) / 100 * Val(Text2.Text) / 12)
Text5 = CStr(Val(Text4) + Val(Text1))
End Sub