编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …，a_n ， 其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

   Dim i As Integer, j As Integer, sum As Integer

   Dim n As Integer

   n = Val(Text1.Text)

   sum = 0

   List1.Clear

   For i = 1 To n        ' ①

      j = i - 1

      Do While  sum <= n     ' ②

         j = j + 1

         sum = sum + j

      Loop

      If sum = n Then

        List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)

      End If       

      sum = 0

   Next i

End Sub

①   ②