Question

请教一道VB编程题请编写函数fun（a,b），其函数功能是：计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返

Answer 1

Private Function fun(ByVal a As Integer, ByVal b As Integer) As Integer

s = 0

For i = a To b

If i Mod 3 0 Then

s = s + i

End If

Next

fun = s

End Function