题目

vb程序 个位数为6,能被3 整除,且十位数是偶数的三位数共有多少个 要数字显示出来的
我建了一个COMMAND 键,就点一下就出来的那种

提问时间：2020-10-31

答案

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,保持不变.