以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  累加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125411)
--  作者：Liangcai
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2018/9/27 20:10:00
--  
没看懂你要实现什么，直接说你最后想得到什么。
--  作者：Liangcai
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2018/9/27 20:24:00
--  

Dim Sum As Double

Dim s As Double = 600/400
Dim i As Integer
For i = 1 To Math.Floor(s)
    Sum = Sum + i
Next

Output.Show(Sum)