Visual Basic 6代码中的运行时溢出错误

Posted 2021-04-17

下面的Visual Basic 6.0代码 - SP2给出溢出错误。有人可以解释一下原因吗？

Private Sub Form_Click()

  Dim Qty as Long

  Qty= 290 * 113       '' 112 is working fine

  MsgBox Qty

End Sub

答案

表达式的类型由其成员决定，而不是由将要存储的变量决定。

113被打字为Byte。 290被输入为Integer，因为它不适合一个字节。

由于最大的相关类型是Integer，整个表达式290 * 113被命名为Integer。 Integer最多可以包含32767，小于290 * 113。

因此，在将结果存储到Long变量之前，它会在乘法时溢出。

明确键入至少一个数字为Long：

Qty = 290& * 113