推荐这篇日记的豆列
······>> 计算1!+2!+3!+...+n!的较快的算法。
计算1!+2!+3!+...+n!的较快的算法。
所属分类：
下载地址：
N_fac_plus.rar文件大小：11.43 kB
分享有礼！ 》
请点击右侧的分享按钮，把本代码分享到各社交媒体。
通过您的分享链接访问Codeforge，每来2个新的IP，您将获得0.1 积分的奖励。
通过您的分享链接，每成功注册一个用户，该用户在Codeforge上所获得的每1个积分，您都将获得0.2 积分的分成奖励。
计算1!+2!+3!+...+n!的较快的算法。
Sponsored links
源码文件列表
温馨提示： 点击源码文件名可预览文件内容哦 ^_^
Project1.vbw54.00 B21-07-07 22:05
frmMain.frx153.00 B21-07-07 22:05
最终版.exe32.00 kB21-07-07 22:05
frmMain.frm7.17 kB21-07-07 22:05
Project1.vbp817.00 B21-07-07 22:05
（提交有效评论获得积分）
评论内容不能少于15个字，不要超出160个字。
评价成功，多谢！
下载N_fac_plus.rar
CodeForge积分（原CF币）全新升级，功能更强大，使用更便捷，不仅可以用来下载海量源代码马上还可兑换精美小礼品了
您的积分不足，优惠套餐快速获取 30 积分
10积分 / ￥100
30积分 / ￥200原价 ￥300 元
100积分 / ￥500原价 ￥1000 元
订单支付完成后，积分将自动加入到您的账号。以下是优惠期的人民币价格，优惠期过后将恢复美元价格。
支付宝支付宝付款
微信钱包微信付款
更多付款方式：、
您本次下载所消耗的积分将转交上传作者。
同一源码，30天内重复下载，只扣除一次积分。
鲁ICP备号-3 runtime:Elapsed:71.127ms - init:0.1;find:0.6;t:0.4;tags:0.4;related:31.1;comment:0.2; 27.69
登录 CodeForge
还没有CodeForge账号？
Switch to the English version?
^_^"呃 ...
Sorry!这位大神很神秘，未开通博客呢，请浏览一下其他的吧查看: 13150|回复: 74
怎么用VBA计算 s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值
阅读权限10
在线时间 小时
各位老师，求助，如何用VBA 计算s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值。
谢谢各位老师赐教。
阅读权限90
在线时间 小时
楼主最好先给出S的求和公式，而不是要别人帮你推导，希望有数学高手在。
阅读权限10
在线时间 小时
就是拿VBA 写个算法。
我想是可以分成
1+2+3+...n
就是有N个1，N-1个2 以此类推，最后+N
我不知道应该怎么写。
阅读权限20
在线时间 小时
试试以下代码
Function psum(n)
For i = 1 To n
For k = 1 To i
zz = zz + k
psum = psum + zz
End Function
阅读权限95
在线时间 小时
我的想法：
例如: 1...5
1& & +&&2& & +&&3
1& & +&&2& & +&&3& &&&+&&4
1& & +&&2& & +&&3& &&&+&&4& & +&&5
------------------------------
1*5 + 2*4 + 3*3 + 4*2 + 5*1
Sub test()
Dim i, m, n, S As Long
a = InputBox(&输入起迄数，並以逗号隔开: 例1,5&)
MyArray = Split(a, &,&, -1, 1)& &'以逗号切割字串
m = Left(a, InStr(a, &,&) - 1)
n = Right(a, Len(a) - InStr(a, &,&))
For i = m To n
& & S = S + i * (n - i + 1)
MsgBox &S=& & S
[ 本帖最后由 mineshine 于
16:01 编辑 ]
阅读权限10
在线时间 小时
谢谢楼上各位老师，我试试看。
阅读权限30
在线时间 小时
原帖由 mineshine 于
15:59 发表
我的想法：
例如: 1...5
1& & +&&2& & +&&3
1& & +&&2& & +&&3& &&&+&&4
1& & +&&2& & +&&3& &&&+&&4& & +&&5
------------------------------
1*5 + 2*4 + 3*3 + 4*2 + 5*1
Sub test()
真正的算法大师！
阅读权限50
在线时间 小时
Function myAdd(n As Integer) As Long
& & myAdd = n * (n + 1) * (n + 2) / 6
End Function
Sub test()
& & MsgBox myAdd(5)
阅读权限70
在线时间 小时
Dim s As Double
Dim n As Integer
n = InputBox(&输入n值&)
s = (n * (n + 1) / 2 + n * (n + 1) * (2 * n + 1) / 6) / 2
MsgBox &和数 s =& & s
阅读权限70
在线时间 小时
Dim temp As Double, s As Double
Dim n As Integer
Dim i As Integer
temp = 0: s = 0
n = InputBox(&输入n值&)
For i = 0 To n
& & temp = temp + i
& & s = s + temp
MsgBox &S=& & s
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
第3章VB程序设计代码基础分析.ppt 42页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
需要金币：350 &&
你可能关注的文档：
······
第3章VisualBasic程序设计代码基础▲3.1字符集1.字符集使用Unicode字符集，其基本字符集包括:数字:0~9英文字母:a~z，A~Z特殊字符:空格！&#$%&'()*+-/\^，.:;&=&?@[]_{}|~等。2.关键字关键字又称为保留字VB自动将关键字的首字母转换为大写字母例如:PRINT5+6转换成Print5+63.2数据类型3.2.1数值型数据Integer(整型)Long(长整型)Single(单精度浮点型)Double(双精度浮点型)Currency(货币型)Byte(字节型)1.整数类型(1)整型(Integer)以2个字节存储十进制表示:由+-号，0~9组成范围:-八进制表示:以&O开头，由0~7组成范围:&O0~&O177777十六进制表示:以&H开头，由0~9,A~F组成范围:&H0~&HFFFF例:-&O456&O36&H1AC&H38&H2(2)长整型(Long)以4个字节存储十进制表示:由+-号，0~9组成范围:-~+八进制表示:以&O开头，以&结束范围:&O0&~&O&十六进制表示:以&H开头，以&结束范围:&H0&~&HFFFFFFFF&例:68+6&&O36&&H1AC&&H38&&H2&2.实数类型浮点数采用IEEE格式,由尾数及指数组成:[±]?...?[.?...?][E|D][±]???(3)货币型(Currency)以8个字节存储用于表示定点数，其小数点左边有15位数字，右边有4位数字。3.字节型(Byte)用于存储二进制数据，其取值范围为0~255。3.2.2字符串型数据(String)由&&括起来的一串符号例:&abc&&ABC&&计算机&&12.34&&3+2&&&(空串)如果字符串本身包括双引号，可用连续两个双引号表示。例:要打印以下字符串：&Youmuststudyhard&,hesaid.在程序中需要将该字符串表示成:&&&Youmuststudyhard&&,hesaid.&3.2.3布尔型数据(Boolean)用于进行逻辑判断，只有True和False两个值3.2.4日期型数据(Date)用于表示日期和时间格式:#……#VB接受许多种日期时间格式例:下面的Date/Time值全部有效。#3-6-9313:20##March27,19931:20am##Apr-2-93##14April/.5对象型数据(Object)以4个字节存储，用于引用程序中的对象。3.2.6可变类型数据(Variant)可以包含任何类型的数据。可以包含Empty、Error、及Null等特殊值*3.2.7枚举类型（自学）3.2.8用户自定义类型是用户自己定义的类型，这种类型可以包含多个基本类型。例如，可以定义一个Students数据类型，该类型中的每一个数又包含了学生的班级、学号、姓名、成绩信息。定义格式为：PrivateTypeStudentsClassAsString'班级NoAsString'学号NameAsString'姓名ScoreAsInteger'成绩EndType3.3常量指在程序运行期间其值不发生变化的量。两种形式:直接常量；符号常量3.3.1直接常量例:&欢迎使用VisualBasic&字符串常量12345数值型常量True布尔型常量#11/10/2001#日期型常量3.3.2用户自定义符号常量格式:Const&常量名&[As&类型&]=&表达式&类型:IntegerLongSingleDoubleStringString*nBooleanDateCurrencyByteVariant例:ConstPi=3.14159ConstMaxAsInteger=9ConstBirthDate=#1/1/01#ConstMyString=&friend&'用逗号分隔多个常量声明ConstPi=3.14,Max=
正在加载中，请稍后...