📄 checkingaccount.vb
字号:
Public Class CheckingAccount
Inherits BankAccount
Public Sub New(ByVal owner As String)
MyBase.New(owner)
End Sub
Public Overrides Function Withdraw(ByVal amount As Decimal) As Decimal
MyBase.Withdraw(amount)
MyBase.Withdraw(0.25D)
Return Me.Balance
End Function
Public Overrides ReadOnly Property ID() As String
Get
Return Me.m_owner & "-C"
End Get
End Property
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -