vb課程設(shè)計--銀行存取款管理(編輯修改稿)
2024-12-22 16:29 本頁面
【文章內(nèi)容簡介】 (存款金額 ) + 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。天數(shù) b = InputBox(請輸入密碼 ) If b (密碼 ) Then MsgBox 密碼錯誤 Else If Then MsgBox 您的余額已不足 Else If = 活期 Then 39。根據(jù)取款類型計算相應(yīng)利息 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。記錄指針?biāo)谖恢? i = (MsgBox(確認(rèn)取款 amp。 ？ , vbYesNo)) If i = 6 Then MsgBox (您取了 amp。 amp。 元 ) ( 存款金額 ) = (存款金額 ) l + Val() ( 取款金額 ) = (取款金額 ) + l Else End If End If End If End Sub 5 計算儲戶利息 根據(jù)存取款時間差，存款類型計算對應(yīng)的利息。 程序段如下： k = (Year(Text5) Year(Text3)) * 365 + (Month(Text5) Month(Text3)) * 30 + (Day(Text3) Day(Text5)) 39。天數(shù) If = 活期 Then 39。根據(jù)取款類型計算相應(yīng)利息 Text6 = (c * / 100) * k / 365 ElseIf = 定期一年 Then Text6 = (c * / 100) * k / 365 ElseIf = 定期兩年 Then
法律信息相關(guān)推薦
鄂ICP備17016276號-1