当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号