//你的写法不够精简果断，最大问题是声明变量只有4个数组，假如不是4个坐标就会出问题了，所以建议如下编写：
i = InputBox("输入定点个数：", "选择定点个数")//提示：返回数值i是字符串，你的乘法值会无效。
redim a(int(i))
For e=0 to int(i)-1
a(e)= InputBox("请输入第"& e &"定点的x,y坐标", "xy坐标用,逗号分开")//建议直接输入x和y的坐标
Next
MessageBox "你输入的所有坐标为"&join(a,"|")
MessageBox "第一组"&a(0)&" 分解X和Y坐标x="&int(Split(a(0),",")(0))&" Y="&int(Split(a(0),",")(1))
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024