Private Sub Command1_Click()
Dim i As Integer,n As Integer
n = 0
For i = 106 To 999 Step 20
If i Mod 3 = 0 Then
n = n + 1
End If
Next i
Print n
End Sub
说明一下,这个算法其实有点取巧,没有很复杂的用多重判断,然后把数字拆分.
n是用来计数的,就是个数,每次有一个三位数符合,就加1,i是用来执行循环的,最巧妙的地方在i=106 to 999 step 20 106是最小的符合个位数是6,十位数是偶数的数,然后每循环一次,就加20,加20就保证了每次都是十位数为偶数,而且个位数是6,保持不变.