PrivateSubForm_Click()
Dima(3),i,j,k,xAsInteger
x=Val(InputBox("x="))
Ifx1000ThenExitSub
a(1)=x100'取百位上的数字
a(2)=x10Mod10'取十位上的数字
a(3)=xMod10'取个位上的数字
Cls
Fori=1To3
Forj=1To3
Fork=1To3
Ifa(i)a(j)Anda(j)a(k)Anda(k)a(i)Then
Printa(i)&a(j)&a(k)&"";
EndIf
Next
Next
Next
Print
EndSub