Question

VB能够定义一个A数组，这个A数组中的单个元素也是数组吗？

如果我想让A(1)表示P（1,1），P（1,2）一直到P（1，m）； A(2)表示P（2,1），P（2,2）一直到P（2，m）；。。。；A(i)表示P（i，1），P(i，2)一直到P（i，m）应该如何用代码实现？A是（1 to i），P是二维数组P(1 to i，1 to m)。

Answer 1

Private Type NewType '定义类型
p() As String '如果你的p数组是数字，把string改为integer。double。long等。
End Type
Private Sub Command1_Click()
Dim i As Integer
i = 10 'a的维数，i值自己修改
Dim A() As NewType '定义一个NewType变量
ReDim A(1 To i) '分配数组a的维数
Dim m As Integer
m = 4 'm值自己修改
For j = 1 To i
ReDim A(j).p(1 To i, 1 To m) '定义a数组的所有元素a(1)、a(2)、a(3)……a(i)为二维数组
Next
A(1).p(1, 1) = 3 '赋值，改变三个数字值就行，for……next用三重循环赋值
A(1).p(1, 2) = 2 '赋值
'……
A(2).p(1, 1) = 1 '赋值
'……
End Sub

测试通过，

追问

这段代码是可以执行，但是A(1)表示的并不是是A(1).p(1, 1)，A(1).p(1, 2).。。。A(1).p(1, i)啊。我想达到的目的是输入A(1)，计算计就知道我想提取A(1).p(1, 1)，A(1).p(1, 2).。。。A(1).p(1, i)这i个值，给个例子就是 我输入Print A(1)，i个值

追答

a(1)表示的就是p(1...)，p数组是a数组的子数组
你要调用a(1)，就用代码循环遍历后面的p（），如果直接输入a(1)是不可能打印出全部元素的。你可以弄一个textbox输入1,2,3,...i。
dim num as integer
num=int(text1.text)
for j=1 to i
print a(num).p(1,j)'这样就把你要提取的全部提取了，num=1，就是打印a(1)的全部元素，num=2，就是打印a（2）的全部元素
next
——————
a(1)是一个单独的值？和p数组没关系？
那把a(1)的索引和p(1...)配对，然后通过a数组元素的值判断出该元素的索引，如果索引是1，程序就遍历调用p(1,m)，索引是2，程序就遍历p(2,m)……
——————
你给的例子我没看太明白，如果以上两个理解都错误，你再追问吧

追问

我问这个问题，是想解决下面这个情况：有个画直线的函数addline（起点数组，终点数组），我想画A(1)点到A(2)点的这条直线。按道理说addline（A(1)，A(2)）就行了，但是你说输入A(1)，并不能提取出A(1).p(1, 1)，A(1).p(1, 2).【这里i=2，A(1).p(1, 1)，A(1).p(1, 2).表示x、y坐标】。

追答

除非你的那个函数能提取,不然的确不能提取.
以下你参考吧,其实你第一个问题问错了，两点确定一线，顶多四个坐标，不需要第二个数组的。
Private Type Point
X As Integer
Y As Integer
End Type
Private Sub Command1_Click()
Dim A(1 To 2) As Point
A(1).X = 10
A(1).Y = 10
A(2).X = 2000
A(2).Y = 2000 '赋值方式回答中有的
Call Addline(A(1), A(2))
'这样才行,我弄了个addline函数，不知道你的是不是这样。
End Sub
Private Function Addline(A As Point, b As Point)
Line (A.X, A.Y)-(b.X, b.Y)
End Function

Answer 2

'可以将P（1,1），P（1,2）一直到P（1，m）当作字符串连起来，再赋值给A(1)
'举例:
i = 100
ReDim A(1 To i)
For i1 = 1 To i
For i2 = 1 To m
A(i1) = A(i1) & P(i1, i2) & ","
Next
Next
'使用时再使用 Split函数变为数组
b = Split(A(1), ", ")

Answer 3

可以把二维数组P的元素一行接一行排成一个很长的行放到一维数组A中。P和A中元素位置关系通过简单的关系式决定。

Answer 4

VB好象不允许