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
說明一下,這個(gè)算法其實(shí)有點(diǎn)取巧,沒有很復(fù)雜的用多重判斷,然后把數(shù)字拆分.
n是用來計(jì)數(shù)的,就是個(gè)數(shù),每次有一個(gè)三位數(shù)符合,就加1,i是用來執(zhí)行循環(huán)的,最巧妙的地方在i=106 to 999 step 20 106是最小的符合個(gè)位數(shù)是6,十位數(shù)是偶數(shù)的數(shù),然后每循環(huán)一次,就加20,加20就保證了每次都是十位數(shù)為偶數(shù),而且個(gè)位數(shù)是6,保持不變.