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

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

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