Можно:
Type Body
Field x,y,z
End Type
Dim array.Body(10)
For i=0 To 10
array(i) = New Body
array(i)\x=Rnd(1,10)
array(i)\y=Rnd(1,10)
array(i)\z=Rnd(1,10)
Next
For i=0 To 10
Text 10, i*10, array(i)\x
Text 100, i*10, array(i)\y
Text 200, i*10, array(i)\z
Next
WaitKey()