7,785
社区成员
发帖
与我相关
我的任务
分享
- 全部
...
一个简单问题：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
公安备案号11010502030143- 京ICP备19004658号
- 京网文〔2020〕1039-165号
- 经营性网站备案信息
- 北京互联网违法和不良信息举报中心
- 家长监护
- 网络110报警服务
- 中国互联网举报中心
- Chrome商店下载
- 账号管理规范
- 版权与免责声明
- 版权申诉
- 出版物许可证
- 营业执照
- ©1999-2025北京创新乐知网络技术有限公司
