Function 顺序坐标(SeZb) Dim xb=UBOUND(SeZb) //获取到数组的总数 For i = 0 To xb TracePrint SeZb(i)//获取坐标 Dim SeZb2=Split (SeZb(i),",") //分割坐标 Delay 50 TracePrint SeZb2(0),SeZb2(1) Next End Function //作业 // Dim Rnd2=array("600,400","600,540","600,680","600,1141","619,1297","637,1847","686,1695","657,1572","691,1449","624,1263","636,1090")//坐标收集起来 可以用遍历函数采集 //call 顺序坐标 (Rnd2)