20150423_VisualBasic_ReturnTwoDimensionalArrayTest

Module ReturnTwoDimensionalArrayTest

    ''' <summary>
    ''' 主程式
    ''' </summary>
    ''' <remarks></remarks>
    Sub Main()
        Dim array = Return_a_Array() '令 array 為 [Return_a_Array] 之回傳二維陣列
        For i As Integer = 0 To 10 Step 1
            For j As Integer = 0 To 10 Step 1
                Console.Write(Setw(array(i, j), 4)) '輸出 (顯示於螢幕)
            Next
            Console.Write(vbNewLine)
        Next

        Console.ReadKey()
    End Sub

    ''' <summary>
    ''' 測試回傳二維陣列之副程式
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function Return_a_Array()
        Dim array(10, 10)
        For i As Integer = 0 To 10 Step 1
            For j As Integer = 0 To 10 Step 1
                array(i, j) = i * j
            Next
        Next
        Return array
    End Function

    ''' <summary>
    ''' 字串格式化 (調整寬度)
    ''' </summary>
    ''' <param name="_value"> 傳入數值 </param>
    ''' <param name="_lenght"> 傳入預留空間長度 </param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function Setw(ByVal _value As Integer, ByVal _lenght As Integer) As String
        Dim space As String = String.Empty
        For i As Integer = _lenght To _value.ToString.Length Step -1
            space &= " "
        Next

        Return space & _value.ToString
    End Function

End Module