Dim MyArray
MyArray(0) = "17294201"
MyArray(1) = "1875543"
MyArray(2) = ""//后边自己加
MyArray(3) = ""
MyArray(4) = ""
MyArray(5) = ""
For UBound(MyArray) + 1
Call 第一章
Call 第二章
Call 第三章上
Call 第三章下
Call 第四章
Call 第五章
Call 数字(MyArray(i))
i=i+1
Next
NUM = Array("17294201", 值2, 值3, 值4)
For N = 0 To UBound(NUM) + 1
Call 章节
Call 数字(NUM(N))
Next
'这样简洁
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024