| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 集合计算请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54791) |
| -- 作者：hbhb -- 发布时间：2014/8/4 20:10:00 -- 集合计算请教 甜大师：好！请教集合计算代码！ 有一集合vars("汇算"，gettype(of string)),该集合的各字符串为（“南京”，“湛江”，“台湾”，“美国”）分别对应另一集合 vars(“南京”，gettype(of double)), vars(“湛江”，gettype(of double)), vars(“台湾”，gettype(of double)), vars(“美国”，gettype(of double))。 vars("南京"）的集合为（1,2.3,4）， vars("湛江"）的集合为（2,3,5,6,8）， vars("台湾"）的集合为（1,13,15,16,18）， vars("美国"）的集合为（22,33,45,56,68）。 求vars("汇算")的合计的代码 |
| -- 作者：有点甜 -- 发布时间：2014/8/4 20:15:00 -- Dim 汇算 As String = "南京,湛江,台湾,美国" Dim sum As Double = 0 For Each s As String In 汇算.Split(",") For Each n As Double In vars(s) sum += n Next Next msgbox(sum) |
| -- 作者：hbhb -- 发布时间：2014/8/4 20:34:00 -- 你是我的小苹果，怎么佩服也不算多！ |