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