Basic в возрастающей последовательности натуральные двухзначные числа,в которых нет одинаковых цифр

CLS
FOR i = 10 TO 98
  IF i \ 10 = i - 10 * (i \ 10) THEN
  ELSE
    PRINT i,
  END IF
NEXT i

Еще один вариант
FOR i = 1 TO 9
    FOR j = 1 TO 9
        IF i <> j THEN PRINT i * 10 + j; " ";
    NEXT j
NEXT i