【已解决】文本框累计求和

caoshuxue

已知变数n,假如n取值1、2、·····4，求和(n+4),结果为5+6+7+8=26

access新新新手

是不是这样
Sub tes()
    Dim i As Integer
    Dim n As Integer
    For n = 1 To 4
        i = i + (n + 4)
    Next
    MsgBox i
End Sub

roych

简单点写法是：

1. Function getSum(ByVal lngInput As Long) As Long
   
2.     If lngInput = 0 Then getSum = 0
   
3.     If lngInput >= 1 Then getSum = lngInput + getSum(lngInput - 1)
   
4. End Function

复制代码

调用：
sub test()
debug.print getSum(3)
'返回6
end sub
当然，也可以用for或者do循环来写（这里给出do语句，for语句请自行试写）：

1. Function getSum2(ByVal lngInput As Long) As Long
   
2.     Dim x As Long
   
3.     Do Until lngInput = 0
   
4.         x = x + lngInput
   
5.         lngInput = lngInput - 1
   
6.     Loop
   
7.     getSum2 = x
   
8. End Function

复制代码

caoshuxue

谢谢