刚学vb，搞个程序，8个元素把它放到8个文本框里。结果是每个文本框里都有8个元素。怎么把8个元素拆分，分别放到8个文本框里。
Private Sub Timer1_Timer()
Dim receive() As Byte, i As Integer
Dim a(8) As Variant
receive = MSComm2.Input
a(8) = receive
For i = 1 To 8
Text1.Text = Text1.Text & vbCrLf & a(i)
Text2.Text = Text1.Text & vbCrLf & a(i)
Text3.Text = Text1.Text & vbCrLf & a(i)
Text4.Text = Text1.Text & vbCrLf & a(i)
Text5.Text = Text1.Text & vbCrLf & a(i)
Text6.Text = Text1.Text & vbCrLf & a(i)
Text7.Text = Text1.Text & vbCrLf & a(i)
Text8.Text = Text1.Text & vbCrLf & a(i)
Next
End Sub

去看一下关于控件数组部分。
有这样的语句：
text1(i).text=a(i)

同楼上

谢谢，关键是怎么把8个元素拆分，分别放到8个文本框里。

for循环去掉
8个语句
text1.text=a(1) '第一个是0还是1自己测试
……
text8.text=a(8)

谢谢，还是不行，毛病出在那啦，
Private Sub Timer1_Timer()
Dim receive() As Byte, i As Integer
Dim a(8) As Variant
receive = MSComm2.Input
a(8) = receive(0)
Text1.Text = a(1)
Text2.Text = a(2)
Text3.Text = a(3)
Text4.Text = a(4)
Text5.Text = a(5)
Text6.Text = a(6)
Text7.Text = a(7)
Text8.Text = a(8)
End Sub

Text1....8 对应a（0）....a(7)

学习下控件的 Index 属性 2楼的方法你也就会了