[發問] 輸出資料換行

edchen70

下列是主控台應用程式，當我執行輸入數值為5時,顯示如圖1，當我執行輸入數值為10時,顯示如圖2，請問各位圖2的輸出如何像圖1一樣？程式碼紅色字部份要如何改呢？
Module Module1

    Sub Main()
        Dim sum, i, n As Integer
        Console.WriteLine("=求到100可以被n整除的整數=")
        Console.WriteLine()
        Console.Write("請輸入1到100的整數n：")
        n = CInt(Console.ReadLine())
        If n >= 1 And n <= 100 Then
            Do While sum + n <= 100
                sum += n
                Console.Write("{0},", sum)
                i += 1

                If i Mod n = 0 Then
                    Console.WriteLine()
                End If
            Loop
            Console.WriteLine()
        End If

        Console.ReadKey()
    End Sub

End Module