从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个 用VB程序怎么编

题目

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

答案

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