vb高手请进入,text1到text5相继输出

Dim ctEsc As Boolean
Private Sub Command1_Click()
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75

For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16

DoEvents

If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Text1.Text = Text1.Text & sz(i) & "+" & sz(j) & "+" & sz(k) & "+" & sz(l) & "+" & sz(m) & "+" & sz(n) & " "

End If
Next n
Next m
Next l
Next k
Next j
Next i
End Sub
上面输出的这段代码,怎样修改让它在

VB难题！高手请进入～～ 在VB中怎样把文本Text1的内容进行复制，粘贴，剪切到T文本ext2中？？？？？急~~~~~~~~ t=text1.value 这条VB语句对不对? 请教各位vb高手，我如何把文本的内容text1.text写入到我新建的文本文件里 VB text1对比TXT里的内容，高手进 VB请教高手：首先制作COMMAND1然后点击他使Text1和Text2中的内容发送到ASP空间中的txt文档中 文学高手请进入 显卡高手请进入 局域网高手请进入 化学高手请进入