输入一个正数n，输出所有和为n连续正数序列

51.和为n连续正数序列。
题目：输入一个正数n，输出所有和为n连续正数序列。
例如输入15，由于1+2+3+4+5=4+5+6=7+8=15，所以输出3个连续序列1-5、4-6和7-8。
分析：这是网易的一道面试题。

 

VB.NET codes as below:

 

Module MyModule

 

    Sub Main()

        Print(15)

 

        Console.ReadKey()

    End Sub

 

    Public Sub Print(ByVal num As Integer)

        Dim n = 2

 

        While (CountSum(n - 1) <= num)

            Dim mn = num - CountSum(n - 1)

 

            If (mn Mod n = 0 And mn <> 0) Then

                Dim m = mn / n

 

                For i = m To n + m - 1

                    Console.Write("{0}  ", i)

                Next

 

                Console.WriteLine()

            End If

 

            n += 1

        End While

    End Sub

 

    Private Function CountSum(ByVal m As Integer) As Integer

        Dim sum = 0

 

        For i = 0 To m

            sum += i

        Next

 

        Return sum

    End Function

End Module