求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