主题：如何解析JSON

你得到的应该是一个数组吧？参考

Dim json As String = "{'name':'李云龙','card':[{'bank1111':'工行','account111':'123'},{'bank2222':'建行','account222':'678'}]}"
Dim jo As JObject = JObject.Parse(json)
Output.Show(jo("name"))
For Each jt As JToken In jo("card")
    For Each a As object In jt
        output.show(a.name & " " & a.value)
    Next
Next