求100到200之间能被3和5整除的所有数之和求vb程序

问题描述:

求100到200之间能被3和5整除的所有数之和
求vb程序

Private Sub main()
MsgBox "100到200之间能被3和5整除的所有数之和为: " & sum
End Sub
Function Form_Load()
s = 0
For i = 100 To 200
If (i Mod 5 = 0) Or (i Mod 3 = 0) Then s = s + i
Next
sum = s
End Function

105+120+135+150+165+180+195=1050