急！！！在线等待

[yejili]

我在实现直接插入排序时
部分代码如下
If i < Text1.Text Then
x = A(i).Text
j = i - 1

While x < A(j).Text And j >= 0

A(j + 1).Text = A(j).Text
j = j - 1

Wend
A(j + 1).Text = x
Else
MsgBox "排序完成！", 0, "成功！

Text1.Text 是待排纪录的长度
运行时出现无效控件数组标号，主要是这一行的错误
While x < A(j).Text And j >= 0
请问有什么办法可解决？？？？
小弟是初学者
谢谢！！
在线等待！！

[xianziguilai]

数组越界问题

你的A（J）中的J存在没有数组下标的值

[1111111]

是不是你text控件是数组的?好像数组的才有A(int).text这样的吧?否则程序怎么知道是哪个text控件呢