VB程式求出各位數為6且能被3整除的三位數共有多少個?

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;c…