01.将两个一维数组合并为一个对应的数组

Dim temp, 姓名, arrRet, sRet, ObjSet, arrayData, iRet
姓名 = ["王文忠", "李海霞", "李一恒"]
成绩 = [56, 58, 59]
iRet = UBound(姓名)
For i = 1 To iRet+1 step 1
arrRet = insert(姓名, 2*i-1, 成绩[i-1])
Next

TracePrint(arrRet)