网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月18日
漏签
0
天
excel吧
关注:
279,219
贴子:
1,527,466
看贴
图片
吧主推荐
视频
游戏
3
回复贴,共
1
页
<<返回excel吧
>0< 加载中...
求教 阶乘
只看楼主
收藏
回复
骨古
骨娄
博采众E
6
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
指定多位阶乘:例如10*9*8*7*6,例2:24*23*22*21*20*19*18*17
菠萝蜜
E览无余
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
Option Explicit
Sub 计算阶乘()
Dim n
n = CDec(1)
Call fac(6, 10, n) '10*9*8*7*6
Debug.Print n
n = CDec(1)
Call fac(17, 24, n) '24*23*22*21*20*19*18*17
Debug.Print n
End Sub
Function fac(a, b, n)
Dim i
For i = a To b
n = n * i
Next
End Function
夸克
夸克,追求极速智能搜索的先行者,年轻人更爱用的搜索引擎!
2024-09-18 21:40
广告
立即查看
佳佳是个好小伙
E见钟情
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
函数FACT
芙蓉虾
日新月E
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
我也想问类似问题,怎么可以往上拉时候让序列递减,反正就是构建从上而下的递减序列
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示