编写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

①____   ②____