首先问下Option Base 1是什么意思啊，然后For i = LBound(b) To UBound(b)这个语句可不可以不要啊

Option Base ：在模块级别中使用，用来声明数组下标的缺省下界。
如果没有Option Base，数组下标从0开始，如dim a(10)为11项，从0到10；
Option Base 1：数组下标从1开始，如dim a(10)为10项，从1到10。
For i = LBound(b) To UBound(b)：从下标即1到上标即10，将数组中的值相加求和。
也可用for each：
Private Function sum(b) As Long
Dim i
For Each i In b
sum = sum + i
Next
End Function