主题：一个比较奇葩的需求，但是却非常需要，哪位老师给看看，这个问题怎么解决

逛逛老师提供的一段代码如下：

Dim s As String = "[(1A1C)*36+1A4D+(1A1E)*5+2A4B4A4F3A6B3A4B4A4B2A1B+(11A10B)*4+1A3B+(1A1B)*9]*11+[(3A1C)*36+5A4D+(1G1E)*5+2A4B2A1B+(11A10B)*4+1A3B+(1A1B)*9]*12"

Dim SS() As String = {"A" ,"B","C","D","E"  ,"F","G","H","Z" }

Dim sq As String

For i As Integer = 0 To ss.Length - 1

     sq = Regex.Replace(s, SS(I) , "@")

     sq = Regex.Replace(sQ, "[1-9]\d{0,2}[a-zA-Z]" , "")

    sq = sQ.Replace("()","0")

     sq = sQ.Replace("@","+")   

    sq = Regex.Replace(sQ, "[\[\{\(]", "(")

    sq = Regex.Replace(sQ, "[\]\}\)]", ")")

    sq = sQ.Replace("++","+")

    sq = sQ.Replace("+)",")")

    Output.Show(ss(i) & "=" & Eval(sq))