我程序的目的是计算某一变量中所有偶数的和，但他只能显示出第一个，没有循环下去，为什么？
代码：
foreach v of varlist var1 {
if mod(`v',2)==0 {
dis as error `v'
scalar s=s+`v'
}
}

数据是下面这个：
var1
12
10
5
2
7
6
4
2
1
5

输出结果：
. di s
12