從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…