Question

求按键精灵高手帮我解答下这个赋值问题

问题是这样的 这是我的程序:
i = InputBox("输入定点个数：", "选择定点个数")
m = 2 * i - 1
z = m
Dim a(3)
e = 1
m=0
For i//记录定点坐标
a（m） = InputBox("请输入第"& e &"定点的x坐标", "输入定点坐标")
m = m + 1
a（m） = InputBox("请输入第"& e &"定点的y坐标", "输入定点坐标")
m = m + 1
e = e + 1
Next
好了
1首先前面几行那个dim a(3) 本来里面那个3本来是m的 但是一直报错只好改为3 我要问的是不能用字母已经前面赋值的字母定义一个数组吗?
2就是for里面的
我用那个录入筐的方式给数组赋值后用
MessageBox a（0）
MessageBox a（1）
MessageBox a（2）
MessageBox a（3）
的命令查看发现显示出来的书根本就是空的难道这种方式不能赋值?求真解啊 付过真不能的话求推荐另外一种方式 可以程序运行后自定义一个数组的位数的和分别给数组赋值的代码 谢谢啊

Answer 1

//你的写法不够精简果断，最大问题是声明变量只有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))