'数字太大 把所有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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024