计算1~100以内能被3或5整除的数之和.以及显示其中能被3和5整除的数求这个VB的编码,特别是求和部分,急求

问题描述:

计算1~100以内能被3或5整除的数之和.以及显示其中能被3和5整除的数
求这个VB的编码,特别是求和部分,急求

Sub a()i = 1j = 1s = 0For i = 1 To 100 Step 1If i Mod 3 = 0 Or i Mod 5 = 0 ThenCells(j + 1,1) = is = s + ij = j + 1End IfNext iCells(1,1) = "1~100以内能被3或5整除的数之和等于" & sEnd Sub