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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 00:08:27
求100到200之间能被3和5整除的所有数之和求vb程序

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

求100到200之间能被3和5整除的所有数之和求vb程序
105+120+135+150+165+180+195=1050

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