NP_2008_Summer_C01.減法高手Y2008M07D19 [2008-03-18-PM-07-48-23]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_07_19_PM_08_48_57]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Network Programs 2008 Summer, Class 01, Serving TSINT_2009級_進二技_篤班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     NP_2008_Summer_C01.減法高手Y2008M07D19
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -  
'     NP_2008_Summer_C01.減法高手Y2008M07D19 [2008-03-18-PM-07-48-23]
'     (修改程式的人員) Revised by: 李俊毅
'
'     Version: 1.00.01
'     Last Updated: (2008 07 19 PM 08 44 44)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 減法高手Y2008M07D19
    Private m_上帝給我的錢 As Integer
    Private m_我還有多少錢可以用 As Integer

    Public Sub New(ByVal 上帝給我的錢 As Integer)
        Me.m_上帝給我的錢 = 上帝給我的錢
        Me.m_我還有多少錢可以用 = 上帝給我的錢
    End Sub

    Public Sub 把這些錢花掉(ByVal 要花掉的錢 As Integer)
        Me.m_我還有多少錢可以用 = Me.m_我還有多少錢可以用 - 要花掉的錢
        If Me.m_我還有多少錢可以用 < 0 Then
            MsgBox("丫…我破產了。")
        End If
    End Sub

End Class '減法高手Y2008M07D19

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_07_19_PM_08_48_57]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '