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