参考
Dim ja As New JArrayja.Add(New JObject) '给数组添加两个对象成员ja.Add(New JObject) ja(0)("name") = "李云龙"ja(0)("age") = 36ja(1)("name") = "黄晓明"ja(1)("age") = 26output.show(ja.Tostring)