From the six numbers 1, 2, 3, 4, 5, 6, take any three to form a three digit number, among which there are several that can be divided by 6, how to program with VB Or take any three of the six numbers from 0 to 9 to form a three digit number. How to make up this situation?

From the six numbers 1, 2, 3, 4, 5, 6, take any three to form a three digit number, among which there are several that can be divided by 6, how to program with VB Or take any three of the six numbers from 0 to 9 to form a three digit number. How to make up this situation?

Dim pp As IntegerDim pp_ Num As StringDim i As Integer,x As Integer,y As Integer,z As IntegerFor x = 1 To 6For y = 1 To 6For z = 1 To 6If x y ThenIf y z ThenIf x z Theni = 100 * x + 10 * y + zIf i Mod ...