用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期

答案:2 悬赏:40 手机版

解决时间 2021-02-07 18:14

提问者网友：饥饿走向夜
2021-02-07 03:31

最佳答案

五星知识达人网友：患得患失的劫
2021-02-07 03:58

4个text1-text4,Label1(0-3).Private Sub Command1_Click()Dim k1 As Single, k2 As Single, k3 As Single, k4 As Singlek1 = Val(Text1.Text) '金额k2 = Val(Text2.Text) '年限If Val(Text1.Text) = 0 Then MsgBox 请输入金额!If k2 = 0 Then MsgBox 请输入存款年限!If k1 >= 5 Then k4 = 3.6 ElseIf k1 >= 4 Then k4 = 3.2 ElseIf k1 >= 3 Then k4 = 2.9 ElseIf k1 >= 2 Then k4 = 2.7 ElseIf k1 >= 1 Then k4 = 2.5 Else k4 = 1.8End IfEnd IfEnd IfEnd IfEnd IfText3.Text = (k1 * k2 / 100)Text4.Text = k1 + (k1 * k2 / 100)MsgBox k2 & 年到期利息：　 & Text3.Text & 　元End SubPrivate Sub Command2_Click()endEnd SubPrivate Sub Form_Load()Command1.Caption = 计算Command2.Caption = 退出Label1(0).Caption = 存款金额：Label1(1).Caption = 存款年限：Label1(2).Caption = 到期利息：Label1(3).Caption = 本息合计：End Sub

全部回答

1楼网友：蓝房子
2021-02-07 04:54

哦，回答的不错

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息