VB程序题：编写如图G.3所示的利息计算程序。当通过滚动条改变本金、月份或年利率时，能立即计算出利息及本息合计的值。

VB程序题：编写如图G.3所示的利息计算程序。当通过滚动条改变本金、月份或年利率时，能立即计算出利息及本息合计的值。
提示：
利息 + 本金 = 本金 * ( 1 + （年利率/100) * (月份数/12) )

G.3图：

解题，如上图所示，在窗体上画3个滚动条，5个文本框控件，其中VScroll1控件用于本金的调节，HScroll1用于月份调节，HScroll2用于年利率调节。

Private Sub HScroll1_Change()
    Text1 = VScroll1.Value
    Text2 = HScroll1.Value
    Text3 = HScroll2.Value
    Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00")
    Text5 = Format(Val(Text4) + Val(Text1), "0.00")
End Sub

Private Sub HScroll2_Change()
    Text1 = VScroll1.Value
    Text2 = HScroll1.Value
    Text3 = HScroll2.Value
    Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00")
    Text5 = Format(Val(Text4) + Val(Text1), "0.00")
End Sub

Private Sub VScroll1_Change()
    Text1 = VScroll1.Value
    Text2 = HScroll1.Value
    Text3 = HScroll2.Value
    Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00")
    Text5 = Format(Val(Text4) + Val(Text1), "0.00")
End Sub
 
Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/101.html