編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入一個(gè)整數(shù)，單擊“查找”按鈕，找出該整數(shù)的全部的連續(xù)整數(shù)固定和，并將它們顯示在列表框List1中．所謂一個(gè)數(shù)n的連續(xù)整數(shù)固定和，就是指存在a₁，a₂，…，a_n，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n.這樣a₁，a₂，…，a_n稱(chēng)為n的一個(gè)連續(xù)整數(shù)固定和．例如27的全部的連續(xù)整數(shù)固定和有3組，運(yùn)行界面如圖所示，實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
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=1To 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.