vb课程设计--银行存取款管理

vb课程设计--银行存取款管理内容摘要：

(存款金额 ) + j Else End If End Sub Private Sub c_Click() 39。 菜单 —取款 Dim b As Integer Dim c As Integer Dim k As Integer Dim l As Integer Dim a% c = Val() k = (Year(Text5) Year(Text3)) * 365 + (Month(Text5) Month(Text3)) * 30 + (Day(Text3) Day(Text5)) 39。 天数 b = InputBox(请输入密码 ) If b (密码 ) Then MsgBox 密码错误 Else If Then MsgBox 您的余额已不足 Else If = 活期 Then 39。 根据取款类型计算相应利息 Text6 = (c * / 100) * k / 365 ElseIf = 定期一年 Then Text6 = (c * / 100) * k / 365 第 9 页，共 13 页 ElseIf = 定期两年 Then Text6 = (c * / 100) * k / 365 End If l = Val() a = 39。 记录指针所在位置 i = (MsgBox(确认取款 amp。 , vbYesNo)) If i = 6 Then MsgBox (您取了 amp。 amp。 元 ) ( 存款金额 ) = (存款金额 ) l + Val() ( 取款金额 ) = (取款金额 ) + l Else End If End If End If End Sub 5 计算储户利息 根据存取款时间差，存款类型计算对应的利息。 程序段如下： k = (Year(Text5) Year(Text3)) * 365 + (Month(Text5) Month(Text3)) * 30 + (Day(Text3) Day(Text5)) 39。 天数 If = 活期 Then 39。 根据取款类型计算相应利息 Text6 = (c * / 100) * k / 365 ElseIf = 定期一年 Then Text6 = (c * / 100) * k / 365 ElseIf = 定期两年 Then。