个位数字是6,且能被3整除的3位数共有多少个?下面程序用于解决这一问题,在划线处填入合适的语句或表达式,设共有n个这样的数,Visual Basic程序如下:
Sub Command1_Click( )
Dim i As Integer, n As Integer
m = 106
n = ____________
Do While m <= 996
If _____________ Then n = n + 1
m = _____________
Loop
Text1.Text = Str(n)
End Sub