| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 376 人关注过本帖
标题:帮我看看 这个 小程序有啥问题 为什么老是提示 下标超届
只看楼主 加入收藏
tyl63390445
Rank: 1
等 级:新手上路
帖 子:11
专家分:5
注 册:2014-12-5
结帖率:100%
收藏
 问题点数:0 回复次数:2 
帮我看看 这个 小程序有啥问题 为什么老是提示 下标超届
在TEXT1内输入 一些字符   可以把字符两个两个放入 动态数组a()

请高手 帮忙看看, 谢谢!

Private Sub Command1_Click()
Dim a()
Dim b()
Dim St As String
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer

n = Len(Text1.Text)
ReDim b(Len(Text1.Text))
For i = 0 To Len(Text1.Text)
  b(i) = Mid(Text1.Text, i + 1, 1)
  Next i
  
  j = n / 2
 If n Mod 2 = 1 Then
  ReDim a(j + 1)
  For x = 0 To j
  a(x) = b(2 * x) & b(2 * x - 1)  '这里总是提示下标超届
   Next x
   a(j + 1) = b(n - 1)
   Else
   ReDim a(j)
   For y = 0 To j
   a(y) = b(2 * y) & b(2 * y - 1)
   Next y
   End If
    For z = 0 To UBound(a())
  Debug.Print a(z)
  Next z
End Sub
搜索更多相关主题的帖子: 动态 
2014-12-05 10:38
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
  a(x) = b(2 * x) & b(2 * x - 1)  '这里总是提示下标超届
x=0时,2*x-1=-1,不越界才怪

大开眼界
2014-12-05 11:51
tyl63390445
Rank: 1
等 级:新手上路
帖 子:11
专家分:5
注 册:2014-12-5
收藏
得分:0 
   谢谢啊!!!  太粗心了
2014-12-05 13:51
快速回复:帮我看看 这个 小程序有啥问题 为什么老是提示 下标超届
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024773 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved