编写VB程序，实现如下功能:在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a1 ， a2 ， …， an ， 其中ai+1比ai大1，使得a1+a2+…+an。这样a1 ， a2 ， …，an称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的程序如下，请在划线处填写合适代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer, k As Integer, tmp As String
n = Val (Text1.Text)
sum = 0:List1.Clear
For i = 1 To n-1
j=i
Do While sum < n
{#blank#}1{#/blank#}
j = j + 1
Loop
If sum = n Then
{#blank#}2{#/blank#}
For k=i+1 To j-1
tmp = tmp + “+” + Str(k)
Next k
List1.AddItem tmp +“=”+ Str(n)
End If
{#blank#}3{#/blank#}
Next i
End Sub
