7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-04-01
- 打赏
- 举报
可以利用剪贴板：
'反复单击command1
Dim a As String, b As String
Private Sub Command1_Click() ' exchange a & b
Clipboard.SetText b, 1 ' send b to clipboard
b = a
a = Clipboard.GetText 'get b from clipboard to a
MsgBox "a=""" & a & """" & vbCrLf & "b=""" & b & """", 64, "after exchange"
End Sub
Private Sub Form_Load()
a = "12345"
b = "abcde"
MsgBox "a=""" & a & """" & vbCrLf & "b=""" & b & """", 64, "before exchange"
End Sub
'反复单击command1
Dim a As String, b As String
Private Sub Command1_Click() ' exchange a & b
Clipboard.SetText b, 1 ' send b to clipboard
b = a
a = Clipboard.GetText 'get b from clipboard to a
MsgBox "a=""" & a & """" & vbCrLf & "b=""" & b & """", 64, "after exchange"
End Sub
Private Sub Form_Load()
a = "12345"
b = "abcde"
MsgBox "a=""" & a & """" & vbCrLf & "b=""" & b & """", 64, "before exchange"
End Sub
evice 2004-04-01
- 打赏
- 举报
好像没什么意义。
你想把两个盘子里的菜换一换，即使你像玩杂技一样把菜抛到空中，然后换盘子，在那一瞬间，空中也算是第三个容器。
交换指针也得用第三个指针吧，指针也是变量。
要是图操作省事，可做个函数，像swap一样的。
你想把两个盘子里的菜换一换，即使你像玩杂技一样把菜抛到空中，然后换盘子，在那一瞬间，空中也算是第三个容器。
交换指针也得用第三个指针吧，指针也是变量。
要是图操作省事，可做个函数，像swap一样的。
tds3003 2004-04-01
- 打赏
- 举报
有2位了,每人50分..
tds3003 2004-04-01
- 打赏
- 举报
楼上的大哥,是这样吧?
我结帖了,100分给你..
swap(int *a, int *b)
{*a=*a+*b;
*b=*a-*b;
*a=*a-*b;
}
我结帖了,100分给你..
swap(int *a, int *b)
{*a=*a+*b;
*b=*a-*b;
*a=*a-*b;
}
华芸智森 2004-04-01
- 打赏
- 举报
a = a xor b
b = a xor b
a = a xor b
b = a xor b
a = a xor b
ustc_tweeg 2004-04-01
- 打赏
- 举报
把这两个变量的指针换一换
