请教一道VB编程题请编写函数fun（a,b），其函数功能是：计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果，窗体上已经给出a,b的值。例如：a=1,b=4,处理后，结果为7.

Question

请教一道VB编程题
请编写函数fun（a,b），其函数功能是：计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果，窗体上已经给出a,b的值。
例如：a=1,b=4,处理后，结果为7.

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 = sEnd Function