7,763
社区成员
发帖
与我相关
我的任务
分享一个简单问题：vb6.0中如何定义大的字符数组？
例如：dim a() as string.然后我想用redim动态改变数组的大小，但是当a的维数超过32767时就提示我溢出了。请问，有别的定义方法能使a的维数超过32767么？谢谢
...全文
请发表友善的回复…
发表回复
pigpag 2004-05-09
- 打赏
- 举报
不会溢出
Redim I(10000000&)
加一个Long的标志&
Redim I(10000000&)
加一个Long的标志&
flyingZFX 2004-05-09
- 打赏
- 举报
呵呵，同意楼上兄弟的观点
，不过，
我还是非常建议不要建这么在的数组
，不过，
我还是非常建议不要建这么在的数组
northwolves 2004-05-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim a() As String, i As Integer'------->改为LONG就不会溢出了
ReDim a(1000000)
For i = 0 To 1000000 Step 10000
a(i) = i
Debug.Print "a(" & i & ")=" & a(i)
Next
End Sub
Dim a() As String, i As Integer'------->改为LONG就不会溢出了
ReDim a(1000000)
For i = 0 To 1000000 Step 10000
a(i) = i
Debug.Print "a(" & i & ")=" & a(i)
Next
End Sub
northwolves 2004-05-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim a() As String, i As Integer'------->改为LONG就不会溢出了
ReDim a(1000000)
For i = 0 To 1000000 Step 10000
a(i) = i
Debug.Print "a(" & i & ")=" & a(i)
Next
End Sub
Dim a() As String, i As Integer'------->改为LONG就不会溢出了
ReDim a(1000000)
For i = 0 To 1000000 Step 10000
a(i) = i
Debug.Print "a(" & i & ")=" & a(i)
Next
End Sub
northwolves 2004-05-09
- 打赏
- 举报
不会吧：
Private Sub Command1_Click()
Dim a() As String
ReDim a(1000000)
For i = 0 To 1000000 Step 10000
a(i) = i
Debug.Print "a(" & i & ")=" & a(i)
Next
End Sub
Private Sub Command1_Click()
Dim a() As String
ReDim a(1000000)
For i = 0 To 1000000 Step 10000
a(i) = i
Debug.Print "a(" & i & ")=" & a(i)
Next
End Sub
liujinhai888 2004-05-09
- 打赏
- 举报
呵呵，我说错了，不是维数，他们的维数都是一维。我要说的是数组下标的最大值只能到32767。有办法能把一维数组中所存放的元素个数增加到超过32767么？
maskzha 2004-05-09
- 打赏
- 举报
VB中 数组每一维的长度受 Long 数据类型最大值 ((2 ^ 64) - 1) 的限制.
维数也最多为 32 维
维数也最多为 32 维
northwolves 2004-05-09
- 打赏
- 举报
干吗定义如此大的数组？即使能定义，效率也不会很高
BitBlt 2004-05-09
- 打赏
- 举报
不会吧，我的ReDim a(&H7FFFFFFF)都每问题。
你的括号里一定是两个integer相加或乘。比如1000*1000，当然溢出了。
应该这样写：1000&*1000
你的括号里一定是两个integer相加或乘。比如1000*1000，当然溢出了。
应该这样写：1000&*1000
