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