满足除3余2,除5余3条件的数符合公式15n+8(n是整数),所以可用以下代码: Private Sub Command1_Click() n = 0:m = 0:k = 8 Print "满足条件的数有:"; Do While k = 100 Then Print k;:m = m + 1 n = n + 1 k = 15 * n + 8 Loop Print Print "共计有" & m & "个." End Sub 结果:满足条件的数有:113 128 143 158 173 188 共计有6个.