初学VB.NET，大家帮帮忙啊！

Question

编译器错误信息: CS0103: 当前上下文中不存在名称“InStr”源错误: 行 30: 
行 31:              
行 32:    while (InStr(subject,";"))
行 33:         xx=InStr(subject,";");
行 34:         subj = left(subject, xx);
 
大哥门，帮忙解决一下啊！谢谢

Answer 1

晕，你发了三遍?while (subject.IndexOf(";")<>-1)
xx=subject.IndexOf(";")
subj=subject.SubString(0,xx-1)

Answer 2

Dim idx As Integer = -1
While subject.IndexOf(";") > 0
    idx = subject.IndexOf(";")
    subj = subject.SubString(0, idx-1)
...