使用VB求得S>1000的最小的正数,其中S=1+2+3...+n

Question

使用VB求得S>1000的最小的正数,其中S=1+2+3...+n

Answer 1

你可以递归,也可以循环,这里给你介绍我写的一个循环的方法.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)