用VB设计一个计算银行存款利息的程序

用VB设计一个计算银行存款利息的程序
假设银行存款利率如下：
一年以下 1.8% 一年定期 2.5%
二年定期 2.7% 三年定期 2.9%
四年定期 3.2% 五年定期 3.6%
五年以上按五年计算.
设计一个计算银行到期存款利息的程序,输入存款金额和存款期限,求到期利息.要求用If多分支选择语句完成代码设计.
运行界面要求：
第一行是：输入存款金额 第二行是：输入存款期限 第三行是：输入到期利息
最下面左边是计算按钮 右边是退出按钮
如果在28号之前回答 有加分.拜谢各位大能……

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
再问： 因为电脑是WIN7 64位的系统 装不了VB，不能检查……所以这个星期四才能验证……请耐心等待吧……到时候会加分的……

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

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