奇怪的问题

Question

Option ExplicitPrivate Sub Command1_Click()
    Me.Caption = 1000 * 100
End Sub
 
运行结果：
实时错误‘6’
溢出。

Answer 1

Me.Caption = CLng(1000) * CLng(100)这样就可以了，这里有一个问题1000默认是Integer，100当然也是，所以保存它们的值的临时变量（隐式）也是Integer，而Integer的最大值是32767，当然放不下1000*100的值，所以就会溢出而当把它们都变成long型就不会了

Answer 2

加引号
Me.Caption = "1000 * 100"