求问，这个要求应该怎么编写鸭

(还没有人回答？嗯。)
假如此时单击的按钮的Name属性为“Command2”,则代码如下(简化版)
'#######################
#此行为注释，不用写#
########################
Private Sub Command2_Click()
Dim i
With List1
i = .List(.ListIndex)
.List(.ListIndex) = Text1.Text
Text1.Text = i
End With
Command2.Caption = "修改"
End Sub
'#######################
#此行为注释，不用写#
########################
嗯，就是这样。

2楼好像理解错题意了，写了个“将列表框选定内容与文本框内容交换”的代码
其实画线的部分两句代码就解决了：
List1.List(List1.ListIndex) = Text1.Text
Command2.Caption = "修改"
这个按钮的完整代码应该是通过一个If判断按钮的Caption属性，来决定执行哪个操作（将列表框内容给文本框，还是反过来）