vb 如何将数组里的数据逐行输出到文本框里

[leon113]

所要完成功能如下，

已知数组，
a(1)=111
a(2)=222
a(3)=334
a(4)=444
a(5)=555

想在文本框TextOut中，逐行显示
a(1)=111
a(2)=222
a(3)=334
a(4)=444
a(5)=555

应该怎么办啊，小弟初学，感激不尽！

[zzyong00]

dim i as integer
for i=lbound(a) to ubound(a)
text1.text=text1.text & "a(" & i & ")=" & a(i) &vbcrlf
next i

[熊孩子开学喽]

逐行输出到文本框里这样写
Dim I as long
dim Str as string
for I =1 to 5
Str=Str & "a(" & I & ")=" & a(I) & chr(13)
next
Text1.multiline = True
Text1.text = Str

[dccrazyboy]

Text1.multiline = True
这行最关键

[zzyong00]

哪一行只能在设计时用！

[meiZiNick]

关注 接分

[leishengwen]

[Quote=引用 2 楼 wallescai 的回复:]
逐行输出到文本框里这样写
Dim I as long
dim Str as string
for I =1 to 5
  Str=Str & "a(" & I & ")=" & a(I) & chr(13)
next
Text1.multiline = True
Text1.text = Str
[/Quote]
以上代码在运行时会出现错误：
Compile error:
Can't assign to read-only property

如果注释掉后在属性中设置Multiline->True后不起作用，
因为Str=Str & "a(" & I & ")=" & a(I) & chr(13)
使str成了一个整体。