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