Dim a(3) as integer
Dim i%,j%,k%,m%,str$
a(0)=5:a(1)=6:a(2)=8:a(3)=9:m=0:str=""
for i=0 to 3
for j=0 to 3
for k=0 to 3
if i<>j and j<>k and i<>k then
m=m+1
next k
next j
next i
print m
这是我自己编的 ，但我不知道怎么把这三位数输出来，求教！！！

谢谢！不过三楼朋友的程序好复杂，我有些看不懂！

哦！谢谢！