Question

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

Answer 1

共有20个数能被6和8整除。

若整数b除以非零整数a，商为整数，且余数为零， 我们就说b能被a整除（或说a能整除b），b为被除数，a为除数，即a|b（“|”是整除符号），读作“a整除b”或“b能被a整除”。a叫做b的约数（或因数），b叫做a的倍数。整除属于除尽的一种特殊情况。

整除与除尽既有区别又有联系。除尽是指数b除以数a（a≠0）所得的商是整数或有限小数而余数是零时，我们就说b能被a除尽（或说a能除尽b）。

因此整除与除尽的区别是，整除只有当被除数、除数以及商都是整数，而余数是零．除尽并不局限于整数范围内，被除数、除数以及商可以是整数，也可以是有限小数，只要余数是零就可以了。它们之间的联系就是整除是除尽的特殊情况。

设整数x的个位数为a，判断其是否能被n整除：令(x-a)/10-ma=nk(k∈N*)，则x=n[10k+(10m+1)a/n]，要使x能被n整除，只要(10m+1)/n为自然数。

Answer 2

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整除