存贷款利率表2010?VB的一道编程题：参考程序和利率表，编写一个具有存贷款计算功能的小程序。

最好谜底： 你的第三点抒发不太清晰啊——几回再三贴现利为下限加点确定？

其它回应2： 因为第二次回应有字数限定以是我换个qq给你答——我就是——小鸟儿
Private Sub Command1_Click()
Dim he, je, i As Single
Dim y1, x, d1, m1, j, y2, m2, d2 As Integer

i = Val(Trim(Text1.Text))
x = Trim(Text2.Text)
j = Trim(Text3.Text)
y1 = Val(Mid(x, 1, 4))
m1 = Val(Mid(x, 6, 7))
d1 = Val(Mid(x, 9, 10))
y2 = Val(Mid(j, 1, 4))
m2 = Val(Mid(j, 6, 7))
d2 = Val(Mid(j, 9, 10))

If (y2 - y1) < 0 Then
MsgBox (输入有误)
Else
he = (y2 - y1) * 12 + (m2 - m1) + (d2 - d1) / 30
End If
If he <= 6 Then
je = he * 4.86
ElseIf he <= 12 Then
je = 6 * 4.86 + (he - 6) * 5.31
ElseIf he <= 36 Then
je = 6 * 4.86 + 6 * 5.31 + (he - 12) * 5.4
ElseIf he <= 60 Then
je = 6 * 4.86 + 6 * 5.31 + 24 * 5.4 + (he - 36) * 5.76
ElseIf he > 60 Then
je = 6 * 4.86 + 6 * 5.31 + 24 * 5.4 + 24 * 5.76 + (he - 60) * 5.94
End If

Text4.Text = je * i
End Sub
需要解答的题目：VB的一道儿编程题：参考步伐以及利率表，编著1个具备存贷款计较功效的小步伐