使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Option Explicit
Sub 错误示范()
Dim zdrq As Variant
zdrq = InputBox("输入一个大于65535的值")
MsgBox zdrq
End Sub