For ...... ...... Text1.Text = Text.Text & "要显示的数据或变量" & vbCrlf ......Next
dim a as stringfora= a & "你的结果（变量无需用双引号）" & "空格or符号（用来分隔每个循环结果）"nexttext1 = a
你可以先把循环得到的结果赋给一个变量，然后把这个变量赋给text不就行了
