VB 编写函数fun,其功能是:能计算从1开始到n的自然数中偶数的平方和!!!急用!!!

2025-04-13 01:15:06
推荐回答(3个)
回答1:

Function sum(n) As Double
sum = 0
For i = 1 To n
If i Mod 2 = 0 Then sum = sum + i *2
Next
End Function

回答2:

Function sum(n) As Double
sum = 0
For i = 0 To n step 2
sum = sum + i * i
Next
End Function

回答3:

Function sum(n) As Double
sum = 0
For i = 1 To n
If i Mod 2 = 0 Then sum = sum + i * i
Next
End Function