Question

VB运行时出现"实时错误6 溢出"是怎么回事?

Private Sub bOk_Click()
Dim bb As Integer
bb = test(2342342)
MsgBox (bb)
End Sub

Function test(a As Integer) As Integer
Dim b As Integer
b = a * 100
test = b
End Function

代码如上
一段很简单的东西
调用test()时如果传一个比较大的数字进去就会出现溢出
小点的则不会

Answer 1

'数字太大 把所有Integer换成Long就可以了，像下面这样 integer范围最大是32767，long的范围是21亿
Private Sub bOk_Click()
Dim bb As Long
bb = test(2342342)
MsgBox (bb)
End Sub

Function test(a As Long) As Long
Dim b As Long
b = a * 100
test = b
End Function