在生成json的时候，产生了很多空{}，不知为什么，麻烦哪位老师看看下面的代码

Dim Val() As String = {"0","1","2","3","4","5","6","7","8","9"}
Dim Vcl() As String = {"1","2","3","4","5","6","7","8","9"}
Dim job As New JObject
Dim jb As New JArray
Dim jd As New JArray
Dim ja As New JArray
job("data") = ja
For i As Integer = 0 To Vcl.Length - 1
    ja.Add(new jobject)
    ja(i)("value") = 100000 + 10000*i
    ja(i)("text") = Vcl(i)
    ja(i)("children") = jb
    For it As Integer = 0 To Val.Length - 1
        jb.Add(new jobject)
        jb(it)("value") = 110001 + 1000*it
        jb(it)("text") = Val(it)
        jb(it)("children") = jd
        For ic As Integer = 0 To Val.Length - 1
            jd.Add(new jobject)
            jd(ic)("value") = 111000 + 100*ic + ic
            jd(ic)("text") = ic
        Next
    Next
Next
Output.Logs("调试日志").add(job.Tostring)
Output.Logs("调试日志").Save("D:\\abc.txt",True)

请说明你需要生成什么json数据？具体说明逻辑。