Public txt As String '要选择的题号
Public number As String '选题总数


Private Sub Command1_Click()
Form4.Text1.Text = Text2.Text & ",last"
MyString = Trim(Text2.Text)
Myarray = Split(MyString, ",", -1, 1)

i = 0
Do While Not (Myarray(i) = "last")
txt = Myarray(i) & " or 题号='"
i = i + 1
Loop
number = i
End Sub

运行了以后出现＂下标错误＂的提示，请高手帮忙解决一下！

你这写的什么意思,想干吗啊

我觉得你用FOR循环好不?

我看你在最后加上了last
又用了Do While Not (Myarray(i) = "last")
这个循环有多种形式的，什么for next 什么do loop什么的还有你这个加不加While Not (Myarray(i) = "last")的
这个每一种循环用起来都差不多，但有一点不同，就是当条件满足时的那一刻还运行不。
这是一点，第二点，你的条件有没有满足过？
只要搞清楚这二点，我想你的问题一定可以解决的。
我怀疑，只是个人怀疑，你的条件没有满足过。可能的原因是：有空格等。

对了，加last时少加了一个回车，回车符是什么加来的？
我忘了，你问一下大家吧，好象是vb什么来的，拼写忘了，太久没用过VB了

[此贴子已经被作者于2006-6-7 21:16:40编辑过]

vbcrlf?

哈哈，好象是它吧。
Form4.Text1.Text = Text2.Text & vbcrlf & ",last"
这一句改成这样
你的最后一条记录才有可能取到last的值

[此贴子已经被作者于2006-6-8 14:20:08编辑过]

？为什么改不动了呢？改的东东不显示。
我在上面这个回复中，又增加了：

因为取不到last所以，不可能会有满足的条件，所以它一直运行，当然要越界了。

呵呵～～谢谢大哥了，我明白些了！我再试一试！