VB中用do while语句求1-100中被3和5同时整除的个数 if k mod 3=0 and k mod 5=0 then i

VB中用do while语句求1-100中被3和5同时整除的个数 if k mod 3=0 and k mod 5=0 then i

i = 0
k = 1
Do While k <= 100
     If k Mod 3 = 0 And k Mod 5 = 0 Then i = i + 1
     k = k + 1
Loop
MsgBox "1-100之间能被3和5整除的数的个数为：" & i

Dim i As Integer, sum As Integer
sum = 0
i = 1
Do While i <= 40
If i Mod 5 = 0 Then
sum = sum + i
End If
i = i + 1
Loop
MsgBox sum