作业帮用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期 2.5%二年定期 2.7% 三年定期 2.9%四年定期 3.2% 五年定期 3.6%五年以上按五年计
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 23:01:14
用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期 2.5%二年定期 2.7% 三年定期 2.9%四年定期 3.2% 五年定期 3.6%五年以上按五年计
用VB设计一个计算银行存款利息的程序
假设银行存款利率如下：
一年以下 1.8% 一年定期 2.5%
二年定期 2.7% 三年定期 2.9%
四年定期 3.2% 五年定期 3.6%
五年以上按五年计算.
设计一个计算银行到期存款利息的程序,输入存款金额和存款期限,求到期利息.要求用If多分支选择语句完成代码设计.
运行界面要求：
第一行是：输入存款金额 第二行是：输入存款期限 第三行是：输入到期利息
最下面左边是计算按钮 右边是退出按钮
如果在28号之前回答 有加分.拜谢各位大能……
用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期 2.5%二年定期 2.7% 三年定期 2.9%四年定期 3.2% 五年定期 3.6%五年以上按五年计
4个text1-text4,Label1(0-3).
Private Sub Command1_Click()
Dim k1 As Single, k2 As Single, k3 As Single, k4 As Single
k1 = 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
Else
If k1 >= 4 Then
k4 = 3.2
Else
If k1 >= 3 Then
k4 = 2.9
Else
If k1 >= 2 Then
k4 = 2.7
Else
If k1 >= 1 Then
k4 = 2.5
Else
k4 = 1.8
End If
End If
End If
End If
End If
Text3.Text = (k1 * k2 / 100)
Text4.Text = k1 + (k1 * k2 / 100)
MsgBox k2 & " 年到期利息： " & Text3.Text & " 元"
End Sub
Private Sub Command2_Click()
end
End Sub
Private Sub Form_Load()
Command1.Caption = "计算"
Command2.Caption = "退出"
Label1(0).Caption = "存款金额："
Label1(1).Caption = "存款年限："
Label1(2).Caption = "到期利息："
Label1(3).Caption = "本息合计："
End Sub