計算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