Для решения этой задачи в QBasic 4.0 можно использовать следующий код:

CLS
INPUT "Введите натуральное число: ", num
maxDigit = 0
minDigit = 9
WHILE num > 0
digit = num MOD 10
IF digit > maxDigit THEN
maxDigit = digit
END IF
IF digit < minDigit THEN
minDigit = digit
END IF
num = num \ 10
WEND
PRINT "Максимальная цифра: "; maxDigit
PRINT "Минимальная цифра: "; minDigit
END

Этот код сначала запрашивает у пользователя натуральное число, затем в цикле находит максимальную и минимальную цифры этого числа. Результаты выводятся на экран.