主题：字符串变换求助

Dim s1 As String() = "65/10,65/20,85/30,85/40,85/50,85/60,85/70".Split(",")

Dim ss As new List(of String)

For Each s As String In s1

    If ss.count=0 Then

        ss.Add(s)

    Else

        Dim str=ss(ss.count-1)

        Dim sss As String() =s.Split("/")

        If sss(0)=str.split("/")(0) Then

            ss(ss.count-1)=str & "." & sss(1)

        Else

            ss.Add(s)

        End If

    End If

Next

Dim result As String

For Each s As String In ss

    result=result & "," & s

Next

MessageBox.show(result.trim(","))