静静 2008-4-24 09:41
各位老大谁哪里有VB,1到9999的求和源代码呀急等！！
各位老大谁哪里有VB,1到9999的求和源代码呀急等！！
yiko 2008-6-22 14:22
如果是普通写法就是:
Dim i As Long, x As Long
For i = 1 To 9999
x = x + i
Next i
MsgBox "1+2+ ... + 9999= " & x
如果用等差公式(A1+An)*n/2 就比较直接了:
MsgBox "1+2+ ... + 9999= " & (1 + 9999) * 9999 / 2
[[i] 本帖最后由 yiko 于 2008-6-22 14:23 编辑 [/i]]
