2008年7月12日 星期六

加法高手Y2008M07D13 [2008-07-12-PM-09-36-50]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_07_12_PM_09_37_40]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'
'     加法高手Y2008M07D13 [2008-07-12-PM-09-36-50]
'
'     Version: 1.00.05
'     Last Updated: (2008 07 12 PM 09 36 41)
'     Version: 1.00.04
'     Last Updated: (2008 07 12 PM 09 28 37)
'     Version: 1.00.03
'     Last Updated: (2008 07 12 PM 08 03 34)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 加法高手Y2008M07D13
    ' Begin_Keywords for easily searching source code on [BlogSpot.com] :
    '
    ' 加法高手 Addition Expert
    ' Adding Add
    '
    ' Begin_Keywords for easily searching source code on [BlogSpot.com] :


    Private m_要炸掉的數字 As Integer

    Private m_數值的總和 As Integer

    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal 要炸掉的數字 As Integer)
        ' OK

        Me.m_要炸掉的數字 = 要炸掉的數字
    End Sub ' New
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function 加上這個數字(ByVal 要加上去的數值 As Integer) As Integer
        ' OK

        Me.m_數值的總和 = Me.m_數值的總和 + 要加上去的數值

        If Me.m_數值的總和 >= Me.m_要炸掉的數字 Then
            MsgBox("爆炸  爆炸   爆炸  爆炸  " & Me.m_要炸掉的數字)
        End If

        Return Me.m_數值的總和

    End Function ' 加上這個數字
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub 重新開始()
        ' OK
        Me.m_數值的總和 = 0
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function 數值的總和() As Integer
        ' Ok
        Return Me.m_數值的總和

    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' 加法高手Y2008M07D13


' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_07_12_PM_09_37_40]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

沒有留言: