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

发布网友发布时间：2024-10-22 07:39

共1个回答

热心网友时间：2024-11-24 18:21

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

例如文本框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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com