Office中国论坛/Access中国论坛

标题: 【已解决】文本框累计求和 [打印本页]

---

作者: caoshuxue    时间: 2016-7-30 11:13
标题: 【已解决】文本框累计求和
已知变数n,假如n取值1、2、·····4，求和(n+4),结果为5+6+7+8=26

---

作者: access新新新手    时间: 2016-7-30 12:01
是不是这样
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    时间: 2016-7-30 12:20
简单点写法是：

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    时间: 2016-7-30 12:40
谢谢

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3