累加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2314人关注过本帖树形打印复制链接主题：累加

Liangcai

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：300 积分：2541 威望：0 精华：0 注册：2011/9/24 13:30:00

累加

Post By：2018/9/27 19:31:00 [显示全部帖子]

Dim Sum As Double

Dim s As Double = 600/400
Dim i As Integer
For i = 1 To s
Sum = Sum + i
Next

Output.Show(Sum)

s有小数代码怎么改?请老师指教，谢谢！

[此贴子已经被作者于2018/9/27 19:32:02编辑过]

Liangcai

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：300 积分：2541 威望：0 精华：0 注册：2011/9/24 13:30:00

Post By：2018/9/27 20:20:00 [显示全部帖子]

Dim Sum As Double

Dim s As Double = 1200/400
Dim i As Integer
For i = 1 To s
Sum = Sum + i
Next

Output.Show(Sum）

Sum=6

如果

s =1400/400=3.5

For i = 1 To 3.5
Sum = Sum + i
Next

Sum=8

代码怎么写Sum=8？

[此贴子已经被作者于2018/9/27 20:43:55编辑过]

主题：累加