用VB设计一个计算银行存款利息的程序假设银行存款利率如下：一年以下 1.8% 一年定期2.5%二年定期 2.7% 三年定期2.9%四年定期 3.2% 五年定期3.6%五年以上按五年计算.设计一个计算银行到期存款利息的程序,输入存款金额和存款期限,求到期利息.要求用If多分支选择语句完成代码设计.运行界面要求：第一行是：输
网友回答
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
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.8
End IfEnd IfEnd IfEnd IfEnd IfText3.Text = (k1 * k2 / 100)
Text4.Text = k1 + (k1 * k2 / 100)
MsgBox k2 & 年到期利息： & Text3.Text & 元
End Sub
Private Sub Command2_Click()
endEnd Sub
Private Sub Form_Load()
Command1.Caption = 计算
Command2.Caption = 退出
Label1(0).Caption = 存款金额：
Label1(1).Caption = 存款年限：
Label1(2).Caption = 到期利息：
Label1(3).Caption = 本息合计：
End Sub