help me! help me!

[wzpphusj]

Private Sub Command1_Click()
Call test

End Sub



Sub test()
Dim sum As Long
这段程序败在哪里，运行的结果怎么是1？？？
Dim multi As Long
sum = 1
multi = 1
For I = 1 To 20

multi = multi / 2
sum = sum + multi
Next I
Print sum
End Sub

[佣工7001]

Dim sum As Long
Dim multi As Long
问题就在你的变量声明上，声明为Long，怎么能用于处理小数呢！

[qiqif]

对
在执行
multi = multi / 2
multi=1/2
就会等于0