VB程序求出各位数为6且能被3整除的三位数共有多少个?

建个按钮控件：（下程序还可以显示每个数）

'VB程序求出各位数为6且能被3整除的三位数共有多少个?
Private Sub Command1_Click()
Dim cout As Integer
For i = 100 To 999
If i Mod 10 = 6 And i Mod 3 = 0 Then
Print i;
cout = cout + 1

If cout Mod 5 = 0 Then
Print
End If

End If
Next

Print cout;"个"
End Sub

------------------
下面这个只能求个数
'VB程序求出各位数为6且能被3整除的三位数共有多少个?
Private Sub Command1_Click()
Dim cout As Integer
For i = 100 To 999
If i Mod 10 = 6 And i Mod 3 = 0 Then
cout = cout + 1
End If
Next

Print cout; "个"
End Sub

Dim NCount As Integer
Private Sub Form_Load()
For i = 1 To 999
If Right(i, 1) = "6" Then
If i Mod 3 = 0 Then
List1.AddItem i
NCount = NCount + 1
End If
End If
Next i
MsgBox "个位数为6且能被3整除的三位数有" & NCount & "个&q