vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
其他人气：361 ℃时间：2019-10-23 06:02:23
优质解答
Private Sub Command1_Click()Dim N As Long,S As LongDoN = N + 1S = S + N * (N + 1)If S > 5000 Then Exit DoLoopPrint "结果=" & SPrint " N =" & NEnd Sub'结果=5200'N=24请参考.
我来回答
类似推荐
猜你喜欢
- 1已知全集U={1,2,3,4,5},A∩CuB={1,2},则集合(CuA)∩B的子集个数为-----------
- 2想问一些像turn out,turn off,turn down...这样类似的短语 yue duo yue hao
- 3这段英文的中文翻译?
- 4表示天气寒冷的词4个
- 5一个梯形上底是5厘米，下底是8.2厘米，高是4.5厘米，如果在这个梯形中剪去一个最大的三角形，剩下的面积是多少平方厘米？
- 6甲、乙、丙三个实心正方体分别放在水平地面上，它们对水平地面的压强相等，已知物体密度关系为ρ甲＞ρ乙＞ρ丙，若分别在三个正方体上表面中央施加一个竖直向上的拉力F甲、F乙、F丙
- 7煤气,液化石油气,天然气?
- 8分析下列氧化还原反应中化合价变化关系指出氧化剂和还原剂
- 9帮帮忙用英文写一下中国的天气预报
- 10延续性动词和短暂性动词同时存在时,用when/while/as?