写一个函数，要求：返回一个数值范围内所有偶数之和

      。

      参数1、参数2：整数型，数字

      提示：For循环与VBS命令函数应用。

 

解题思路：

         找出偶数，保存变量，相加得出和

 

1-6级按键认证答案大全下载 url7.me/S4Vk1

 

 

代码：

 

       TracePrint qiu(2, 55)

 

       Function qiu(a, b)

        Dim 差, i

        qiu = 0 : 差 = Abs(a - b)

        If 差 mod 2 = 1 Then 

         差 = 差 - 1 

          End If

        For i = 0 To 差 / 2 - 1

        qiu = qiu + 差 - i * 2

        Next

       End Function