Question

VB 怎样将文本框多行数据顺序首尾互换?

例如文本框1(multiline=true)
11111
33333
22222
dsfds
.
.
.(省略)
大声反对
4323&%^

换成:
4323&%^
大声反对
.
.
.
dsfds
22222
33333
11111

意思就是
最后一行改为第一行,倒数第二行改为第二行....依此类推.
顺序首尾互换.

刚学VB,写一写代码好吗?>

Answer 1

Private Sub Command1_Click()
Dim s() As String, temp As String
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s) \ 2
temp = s(i)
s(i) = s(UBound(s) - i)
s(UBound(s) - i) = temp
Next
Text1.Text = Join(s, vbCrLf)
End Sub