主题：字符串的查找匹配问题

这段代码可以产生下面这么多字符串:

lkij

dhyj

eklo

esmu

fpam

hndm

nidm

okmn

buka

smah

dikd

uPlk

adla

jfla

sjfl

 我在文本框只要输入里面任何一组字符串就可一通过,代码怎么补充?

Dim PassWord As String = e.Form.Controls("PassWord").Text

Dim t1 As String = e.Form.Controls("TextBox1").Value

t1= ComputerId

Dim m As Integer

Dim gs1,g As String

Dim gs As String ="lkijdhyjekloesmufpamhndmnidmokmnbukasmahdikduPlkadlajflasjfl"

Do While gs.length>0

    gs1 =left(gs,4)

    m = gs.length

    gs= gs.Replace(gs1,"")

    g = g & gs1 & ","

Loop

For n As Integer = 0 To g.trim(",").split(",").length -1

    If g.trim(",").split(",")(n) = PassWord Then

        e.form.close()

   Else

        MessageBox.Show("授权码错误,请重新输入!")

        PassWord =Nothing        

        Exit For

    End If

Next

通不过  我用msgbox测试g.trim(",").split(",")(n) 这个号码连续三次都是一样的.

 我有一个窗口,上面有一个文本框,一个按钮,按钮里面有一段代码:

 Dim gs As String ="l22k55i22jd88h22y26j4e22k2323lo23223e22323sm4ufp111amhnd1111mnidm4444okmnbuk888asm999ahd4ik9599du221P665lkad99aj55flasjfl"

For i As Integer = 0 To gs.length - 1 Step 6

    Dim l As Integer = Math.Min(6,gs.length -i)

    output.show(gs.Substring(i,l))

Next

 

 这段代码我在命令窗口测试后得到以下十几个6位数字符串:

    问题就是,然后我在文本框里面输入一个六位数的字符串,输入的只要是在上面的这十几个字符串范围之内就可以关闭窗口,否则提示输入的字符串不对.