Foxtable(狐表) → 用户栏目 → 专家坐堂 → 间隔数字求和问题


  共有2530人关注过本帖树形打印复制链接

主题：间隔数字求和问题
帅哥哟，离线，有人找我吗？
swagger
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		间隔数字求和问题  发帖心情 Post By：2023/10/28 23:14:00 [只看该作者]

随便输入起始数字和结束数字，譬如1-100，或者50-100，里面每间隔5（或者其它数字如3等）列出一个数字，譬如1，5，10，15，20...95,100 （或者50，55...95，100），然后 再自动计算 1*0.5+5*0.5+10*0.5...100*0.5 的总和。这个公式代码应该是怎么样写呢

假设列名是： 起始数字，结束数字，间隔，系数

对应分别是1，100， 5， 0.5

[此贴子已经被作者于2023/10/28 23:27:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/29 19:45:00 [只看该作者]

范围1-100，间隔5，那么数列应该是1、6、11、16、21、...，而不是1，5，10，15，20...，因为1和5 的间隔是4，后面的间隔才是5。

Dim 起始数字 As Integer = 50
Dim 结束数字 As Integer = 60
Dim 间隔 As Integer = 5
Dim 系数 As Double = 0.5
Dim sum As Double
For i As Integer = 起始数字 To 结束数字 Step 间隔
    sum = sum + i * 系数
Next
msgbox(sum)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询