vb ReDim s(400000000) As Byte 溢出

来源:百度知道 编辑:UC知道 时间:2024/07/04 23:22:51
Private Sub Form_Load()
Dim s() As Byte
ReDim s(400000000) As Byte ==》 提示溢出
End Sub

我的问题是如何使其上限大于400000000且不溢出呢?
调试通过的加20分!!

400000000Bytes,接近400M,你可以定义一个小数组,重复使用

long的范围-2147483648~2147483647
Dim s() As Byte
ReDim s(1 To 4000000, 1 To 10)
也许也能能实现你的目的

1 语法错误 ReDim s(400000000) 就可以了
2 定义一个二维数组,将元素数均开试试,如 Dim s(4000,100000)

后面As Byte有问题 Redim不能用于再声明变量数组