1之500自然数中,被6或8整除的数有几个

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 16:43:16
1之500自然数中,被6或8整除的数有几个1之500自然数中,被6或8整除的数有几个1之500自然数中,被6或8整除的数有几个PrivateSubForm_Load()DimiFori=1To500I

1之500自然数中,被6或8整除的数有几个
1之500自然数中,被6或8整除的数有几个

1之500自然数中,被6或8整除的数有几个
Private Sub Form_Load()
Dim i
For i = 1 To 500
If i Mod 6 + i Mod 8 = 0 Then
Print i,
j = j + 1
If j Mod 6 = 0 Then Print
End If
Next i
Print
Print "共有" & j & "个数能被6和8整除"
End Sub
24 48 72 96 120 144
168 192 216 240 264 288
312 336 360 384 408 432
456 480
共有20个数能被6和8整除