以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28450)

--  作者：lin_hailun --  发布时间：2013/1/30 9:19:00 --   看看是否这样。 Dim ls As New List(Of Integer) ls.Add(3) ls.Add(4) ls.Add(5) Dim sum As Double = 0 For Each i As Integer In ls     sum += i Next msgbox(sum)