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 这是我自己编的 ，但我不知道怎么把这三位数输出来，求教！！！