在VB6中写入.exe以创建运行时错误“6”：溢出

Question

我需要创建一个抛出VB运行时溢出错误的.exe。有没有人有任何VB6代码可以做到这一点？我正在尝试测试某个错误处理方案。

Answer 1

怎么样：

Dim I As Integer

I = 32767 + 1

Answer 2

基于Eric J.的链接（见上述评论问题）：

Private Sub Form_Load()
  Dim upsize As Integer
  Dim ns As Integer
  Dim funcTable As Variant

  upsize = 34000
  upsize = 34000
  ReDim Preserve funcTable(0 To upsize + ns)

End Sub