使用VB求得S>1000的最小的正数,其中S=1+2+3...+n
人气:460 ℃ 时间:2020-07-03 05:45:36
解答
你可以递归,也可以循环,这里给你介绍我写的一个循环的方法.vb6.0调试通过
你求得s吗
Private Sub Form_Load()
Test
End Sub
Private Function GetSum(ByVal n As Integer)
GetSum = ((1 + n) * n) / 2
End Function
Private Sub Test()
Dim s As Integer
Dim i As Integer
i = 1
s = 1000
While GetSum(i)
推荐
猜你喜欢
- 法语音标m,n,v,f 怎么发音?和英语的m,n,v,f是一样吗?
- 15/21x3/4+10/21x3/4-3/4 二十一分之十五乘四分之三加二十一分之十乘四分之三减四分之三
- The public traffic in shanghai is busier than _______.(A:Nanjing B:Nanjing's C:in Nanjing D:that in Nanjing)选什么,为什么选这个.
- 世界三大渔场都位于寒暖流交汇处?
- 三年级124人分乘三辆车去春游,第二辆比第一辆多坐四人,第三辆比第二辆少坐七人,第一辆坐?第二辆呢,还
- 过正方形ABCD的顶点A作PA⊥平面ABCD,设PA=AB=a,求平面PAB和平面PCD所成二面角的大小.
- 可爱的用英语除了CUTE.SMART.还有哪些
- 中国共产党成立的伟大历史意义是什么