GenerateSomeDataForMSExcel [2008-05-27-PM-08-56-45]

    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub GenerateSomeDataForMSExcel()
        ' (本段程式之目的) Purpose:
        ' Generate data like the following for Microsoft Excel:
        '    1  2
        '    3  4
        '    5  6
        '    7  8
        '    9  10
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 05 27 PM 08 52 42)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim SB As New System.Text.StringBuilder

        For i As Integer = 1 To 10 Step 2

            With SB
                .Append(i & vbTab & (i + 1) & vbNewLine)
            End With
        Next

        Me.Do_PasteStringToTopOfRichTextBox(SB.ToString)

    End Sub ' GenerateSomeDataForMSExcel
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -