Question

VB中求1到n的累加和

谢谢啦。比较急！！！！
答案中有function方法，谢谢各位！！！

Answer 1

Private Sub Command1_Click()
Dim n As Integer, s As Double
n = Val(InputBox("请输入n", , 10))

Print "1到" & n & "的和为：" & toSum(n)
End Sub

Private Function toSum(ByVal n As Integer) As Double
toSum = 1
If n > 1 Then toSum = n + toSum(n - 1)
End Function