主题：倍增问题

购买1个单价1元，购买2个单价2元，于此倍增，那么购买50个？请老师指点，谢谢

Dim str As Integer = 1 '单价
Dim s As Integer = 50 '数量

 

Dim s As Integer
Dim t As Integer
Dim i As Integer
Dim n As Integer = 50
For i=1 To n
    s = 2 ^ (i - 1)
    t = t + s
Next
Output.Show(t)

这样n最多只能输30

这个意思？

 

Dim s As Double = 0
Dim t As Double = 0
Dim i As Integer = 0
Dim n As Integer = 50
For i=1 To n
    s = 2 ^ (i - 1)
    t = t + s
Next
Output.Show(t)

等于1.12589990684262E+15  ？好像数不够了！

 

Dim s As Decimal = 0
Dim t As Decimal = 0
Dim i As Integer = 0
Dim n As Integer = 50
For i=1 To n
    s = 2 ^ (i - 1)
    t = t + s
Next
Output.Show(t)

 

如果每增加1翻一倍

Dim i As Integer = 0
Dim Sum As Integer
Dim n As Integer = 500
For i=1 To n
    Sum = Sum + i
Next
Output.Show(Sum)

这样对吗？老师指教

 

没看懂你要做什么，请具体举例，把什么数值累加起来。