主题：创建多张code码卡券二维码的奇怪问题

数组是这样加的，每次要重新new，如

Dim jo As New JObject
Dim ja As New JArray
jo("dept") = "销售部"
jo("mpr") = "赵刚"
jo("staff") =  ja '
ja.Add(New JObject) '给数组添加两个对象成员
ja.Add(New JObject)
ja(0)("name") = "李云龙"
ja(0)("age") = 36
ja(1)("name") = "黄晓明"
ja(1)("age") = 26
Output.Show(jo.ToString)