上个帖子还没采纳呢Dim a() As StringPrivate Sub Command1_Click()
Static b
If b = UBound(a) + 1 Then b = LBound(a)
Text2.Text = a(b)
b = b + 1End SubPrivate Sub Text1_Change()
a = Split(Text1.Text, vbCrLf)End SubPrivate Sub Text2_Change()
If Mid(Trim(Text2.Text), 1, 3) = "G72" Then
Msg...