[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。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 & "+"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)