1、直接循环不就行了?比如
For i As Integer = 1 To 2 '可以有多段图文
2、你也可以写多段下面的代码
Dim ao As New JObject ao("type") = "monday" ao("begin_hour") = 10 ao("end_hour") = 22 ao("begin_minute") = 01 ao("end_minute") = 30 ar.add(ao) ao = New JObject ao("type") = "monday" ar.add(ao)