問題描述:
例如文本框1(multiline=true)
11111
33333
22222
dsfds
.
.
.(省略)
大聲反對
4323&%^
換成:
4323&%^
大聲反對
.
.
.
dsfds
22222
33333
11111
意思就是
最後壹行改為第壹行,倒數第二行改為第二行....依此類推.
順序首尾互換.
剛學VB,寫壹寫代碼好嗎?>
解析:
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