主题：json 编写格式 多个code码

参考

Dim jo As New JObject
jo("Name") = "张三"
jo("Group") = "VIP"
Dim ja As New Jarray '定义数组
ja.Add("manager")
ja.Add("developer")
jo("Roles") = ja '将Roles设置为前面定义的数组
Output.Show(jo.ToString)