PB中二维数组的显示

[carnationmxp]

定义了一个PB的二维数组array[21,21]
如何通过PB程序将数组中的所有元素全部显示出来呢。 并且是按规范的行和列！ 高手赐教！

[glint]

for i=1 to 21
  for ii=1 to 21
    text=text + space(1) + array[i,ii]
  next
  text =+ char(13)
next

[PB菜鸟]

楼上的方法可以的

[carnationmxp]

[Quote=引用 3 楼 xiaobn_cn 的回复:]
需求写得有点模糊，按规范的行和列，是指行列对齐吗？

VB code

// mle_1是一个MultiLineEdit控件
for i = 1 to 21
for j = 1 to 21
// 使用fill进行间隔符填充
mle_1.text += fill(' ', 8 - length(array[i,j])) + array[i,j]
next
……
[/Quote]

谢过喽！

[carnationmxp]

[Quote=引用 1 楼 glint 的回复:]
VB code

for i=1 to 21
for ii=1 to 21
text=text + space(1) + array[i,ii]
next
text =+ char(13)
next
[/Quote]

3Q3Q

[xiaobn_cn]

需求写得有点模糊，按规范的行和列，是指行列对齐吗？

// mle_1是一个MultiLineEdit控件
for i = 1 to 21
  for j = 1 to 21
    // 使用fill进行间隔符填充
    mle_1.text += fill(' ', 8 - length(array[i,j])) + array[i,j]
  next
  // 回车换行
  mle_1.text += "~r~n"
next