按照你的意思，模拟了下这个代码逻辑
dim array = ['1','2','3','4','5','6','7','8','9','0','11','12','13','14','15','16','17','18','19','20']
For k=0 To Len(array)-1 step 10 
Dim ToNum = k + 9
for m = k to ToNum step 1
//每次要输入的10个数据，利用这个循环把10个元素拼接好，写入到目标元素中
TracePrint( array[m] )
next
Next