[原创][分享]自然数求和公式,VB循环求和
# Sn = n * (n + 1) / 2 'n=最大数msgbox sn=n*(n+1) /2
我发的代码怎么没了
程序代码:
private sub command1_click() L = 0 for i = 1 to 100 L= L + i next i end sub
补上
[ 本帖最后由 tonoy 于 2013-8-28 19:26 编辑 ]
private sub command1_click() L = 0 for i = 1 to 100 L= L + i next i end sub