Dim variable As Short

16-битный тип данных целого числа со знаком. Может содержать значения от -32768 до 32767.

  Dim x As Short = CShort(&H8000)
  Dim y As Short = CShort(&H7FFF)
  Print "Short Range = "; x; " to "; y

Вывод:

Short Range = -32768 to  32767

• Нет в наличии в диалекте -lang qb , но есть псевдоним __Short.
  
  

• Имя "short" новое в FreeBASIC, однако оно такое же, как Integer числа в QB
  
  

• UShort
  
• CShort