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

建个按钮控件：（下程序还可以显示每个数）'VB程序求出各位数为6且能被3整除的三位数共有多少个?Private Sub Command1_Click()Dim cout As IntegerFor i = 100 To 999If i Mod 10 = 6 And i Mod 3 = 0 ThenPrint i;cout = cout + 1If cout Mod 5 = 0 ThenPrintEnd IfEnd IfNextPrint cout;"个"End Sub------------------下面这个只能求个数'VB程序求出各位数为6且能被3整除的三位数共有多少个?Private Sub Command1_Click()Dim cout As IntegerFor i = 100 To 999If i Mod 10 = 6 And i Mod 3 = 0 Thencout = cout + 1End IfNextPrint cout; "个"End Su