从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 23:24:33

从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?
从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个用VB程序怎么编
或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?

从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?
Dim pp As Integer
Dim pp_Num As String
Dim i As Integer,x As Integer,y As Integer,z As Integer
For x = 1 To 6
For y = 1 To 6
For z = 1 To 6
If x y Then
If y z Then
If x z Then
i = 100 * x + 10 * y + z
If i Mod 6 = 0 Then
pp = pp + 1
pp_Num = pp_Num & "," & i
End If
i = 0
End If
End If
End If
Next z,y,x
Debug.Print pp,pp_Num
共24个:126,132,156,162,216,234,246,264,312,324,342,354,426,432,456,462,516,534,546,564,612,624,642,654

从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个 用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?

从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编?