CLS
DIM a(9)
FOR i=100 TO 333                '知道我为什么只循环到333么?
    i2=i*2:i3=i*3
    s$=LTRIM$(STR$(i))+LTRIM$(STR$(i2))+LTRIM$(STR$(i3))
    s=1:f=1
    FOR j=1 TO 9
        a(j)=MID$(s$,j,1)
        FOR k=1 TO j-1
            IF a(j)=a(k) THEN f=0:EXIT FOR
        NEXT k
    NEXT j
    IF f THEN PRINT i,i2,i3
NEXT i
END