字符串的拆分没看明白，几句
Dim s = Label1.Text.Split(New Char() { "| "}, 2)(1)
' ' ' ' ' '这个是s是什么呢？Label1.Text= "0|1|0 " 这样的数据

Dim s1 As String() = s.Split( "| ")

就有10分了，等下可能还有个问题，先无耻的留下5分=_=还请指点一二

[解决办法]
你的是0|1|0，当找到第一个|时开始拆分成两个字符串，后面的（1）是拆分后的索引，所以显示的是1|0，要是改成（0），显示的就是0了