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

'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