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...