新建From1（窗体），代码：

可以看到我们的Json数据，实际上在代码中可以先把双引号替换成单引号放在代码中：

Dim s$: s = "{""a"": {""arr"": [1,2,3,4,5] }, ""obj"": {""b"": 6} }"
或
Dim s$: s = "{'code':'2','a': {'arr': [1,2,3,4,5] }, 'b': {'b': 6} }"

运行结果：

2
 1 
 6