本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。

Option Explicit

Private Sub CmdRun_Click()

Dim m As Integer,sum As Integer,st As String

Dim i As Integer,j As Integer,k As Integer

m=Text1

For i=1 To m-1

（）

For j=i To m

sum=（）

If sum=m Then

st="" ’st赋以空值

For k=i To j

st= （）

Next k

List1.AddItem Left(st,Len(st)-1)

End If

Next j

Next i

End Sub