主题：[求助]如何遍历JSON对象

 我测试这个代码没问题。

 请贴出你测试的json数据

Dim json As String = "{'name':'李云龙','age':'36'}"
For Each obj As object In JObject.Parse(json)
    msgbox(obj.key & " " & obj.value)
    Dim s As String = obj.key.tostring
Next