Для расчета произведения всех целых чисел от 8 до 15 в Q-Basic можно использовать следующий код:

CLS
DIM result AS INTEGER
result = 1
FOR i = 8 TO 15
result = result * i
NEXT i
PRINT "Произведение всех целых чисел от 8 до 15 равно: "; result
END

Этот код сначала инициализирует переменную result как 1, затем использует цикл FOR для умножения всех чисел от 8 до 15 и сохранения результата в переменной result. Наконец, он выводит произведение всех чисел от 8 до 15 на экран.