问题描述: 已知s=1+2+3+...+n,找出最大的n,使得S 1个回答 分类:数学 2014-11-23 问题解答: 我来补答 Private Sub Command1_Click() Dim s, n As Long n = 1 Do While s < 30000 s = s + n n = n + 1 Loop Print (n)End Su 展开全文阅读