![[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。Option ExplicitPrivate](http://www.mshxw.com/aiimages/31/481244.png "[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。Option ExplicitPrivate")
[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。Option ExplicitPrivate Sub CmdRun_Click()Dim m As Integer,sum As Integer,st As StringDim i As Integer,j As Integer,k As Integerm=Text1For i=1 To m-1（）For j=i To msum=（）If sum=m Thenst="" ’st赋以空值For k=i To jst= （）Next kList1.AddItem Left(st,Len(st)-1)End IfNext jNext iEnd Sub
正确答案：sum=0；sum+j；st& k & "+"
