新人求大神教

编写程序，求[2,1000]间能被5整除的奇数之和
这个程序怎么编写

哪位大神教下很急了

不感兴趣

开通SVIP免广告

sum = 0
for i = 5 to 1000 step 10
sum = sum + i
next

Dim i As Integer, Tmpa As Long
Tmpa = 0
For i = 2 To 1000
If i Mod 10 = 0 Then Tmpa = Tmpa + i
Next i
MsgBox Tmpa

Dim a As Integer
Dim b As Long
For a = 2 To 1000
If a Mod 5 = 0 And a Mod 2 <> 0 Then
b = b + a
End If
Next a
Print b

i=i+1
i+5

下载贴吧APP
看高清直播、视频！

分享到: