VB program to find out the number of three digits with 6 digits and divisible by 3?

VB program to find out the number of three digits with 6 digits and divisible by 3?

Create a button control: (the next program can also display each number)'vb program finds out how many three digits each digit is 6 and can be divided by 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...