vb.net - 在 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