Dim variable As Short

16位有符号的全数字数据类型。可以将值从-32768保存到32767。

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

输出：

Short Range = -32768 to  32767

• 在-lang qb 方言中不可用，除非使用别名__Short引用。
  
  

• 名称“short”是FreeBASIC的新功能，但它们与QB中的整数相同
  
  

• UShort
  
• CShort