用vb求100以内的偶数中能被3整除的正整数的和

高二vb考试

---

Function GetResult() As Integer
Dim Sum As Integer
Dim i As Integer

Sum = 0
For i = 2 To 100 Step 2
If (i Mod 3) = 0 Then
Sum = Sum + i
End If
Next i
GetResult = Sum

End Function

---