![[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。Option ExplicitPrivate,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E6%9C%AC%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%E6%89%BE%E5%87%BA%E4%B8%80%E7%BB%84%E8%BF%9E%E7%BB%AD%E7%9A%84%E6%95%B4%E6%95%B0%2C%E5%AE%83%E4%BB%AC%E7%9A%84%E5%92%8C%E6%95%B0%E7%AD%89%E4%BA%8E%E7%BB%99%E5%AE%9A%E7%9A%84%E6%95%B0%E3%80%82%E9%80%9A%E5%B8%B8%E7%BB%99%E5%AE%9A%E4%B8%80%E4%B8%AA%E6%95%B0%2C%E5%8F%AF%E8%83%BD%E4%BC%9A%E6%89%BE%E5%87%BA%E5%A4%9A%E7%BB%84%E7%AC%A6%E5%90%88%E8%A6%81%E6%B1%82%E7%9A%84%E8%BF%9E%E7%BB%AD%E6%95%B4%E6%95%B0%E3%80%82%E6%9F%A5%E6%89%BE%E7%9A%84%E6%96%B9%E6%B3%95%E6%98%AF%E7%A9%B7%E4%B8%BE%E6%B3%95%E3%80%82%E8%AF%B7%E5%AE%8C%E5%96%84%E6%9C%AC%E7%A8%8B%E5%BA%8F%E3%80%82Option+ExplicitPrivate.png "[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。Option ExplicitPrivate,第1张")
[填空题] 本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。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条）