作业帮 > 数学 > 作业

从1~300中,数字和是六的倍数的数有多少个?

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:数学作业 时间:2024/04/29 04:53:25
从1~300中,数字和是六的倍数的数有多少个?
从1~300中,数字和是六的倍数的数有多少个?
6 15 24 33 39 42
48 51 57 60 66 75
84 93 99 105 114 123
129 132 138 141 147 150
156 165 174 183 189 192
198 204 213 219 222 228
231 237 240 246 255 264
273 279 282 288 291 297
共有48个
Private Sub Form_Load()
Dim a,b,c,i,s As Integer
For i = 1 To 300
a = i \ 100
b = (i - a * 100) \ 10
c = i - a * 100 - b * 10
If (a + b + c) Mod 6 = 0 Then
s = s + 1
Debug.Print i,
If s Mod 6 = 0 Then Debug.Print
End If
Next
Debug.Print "共有" & s & "个"
End Su