用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期
答案:2 悬赏:40 手机版
解决时间 2021-02-07 18:14
- 提问者网友：饥饿走向夜
- 2021-02-07 03:31
用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期
最佳答案
- 五星知识达人网友：患得患失的劫
- 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
哦，回答的不错
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯