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

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

[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。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 & "+"

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5473295.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-12
下一篇 2022-12-12

发表评论

登录后才能评论

评论列表(0条)

保存