我有一个赋值,我需要在不使用第三个变量的情况下交换两个整数。 我不知道该怎么做。我该怎么编码?
答案 0 :(得分:18)
是的,有可能:
Dim var1 = 1
Dim var2 = 2
var1 = var1 + var2
var2 = var1 - var2
var1 = var1 - var2
但你为什么需要呢?代码变得深奥。
答案 1 :(得分:7)
让我们假设
a = 10;
b = 20;
a = a + b; // a = 30
b = a - b; // b = 10
a = a - b; // a = 20
交换价值。
答案 2 :(得分:5)
阅读" xor swap algorithm。"
你可以在这里找到答案:
http://www.java2s.com/Tutorial/VB/0040__Data-Type/Swaptwointegerswithoutusingathird.htm
firstValue = firstValue Xor secondValue
secondValue = firstValue Xor secondValue
firstValue = firstValue Xor secondValue
答案 3 :(得分:3)
Dim a As Integer
Dim b As Integer
a= 1
b= 2
a = a Xor b
b = a Xor b
a = a Xor b
答案 4 :(得分:2)
交换两个数字变量就像这样
a = a + b;
b = a - b;
a = a - b;
OR
a = a xor b;
b = a xor b;
a = a xor b;
其中a和b是要交换的变量
答案 5 :(得分:1)
理论上有3种方式
a = 4 , b = 5
<强> 1。使用XOR
a = a XOR b = 4 XOR 5 = 9
b = a XOR b = 9 XOR 5 = 4
a = a XOR b = 9 XOR 4 = 5
<强> 2。使用+, -
a = a+b = 4+5 = 9 // should not overflow
b = a-b = 9-5 = 4
a = a-b = 9-4 = 5
第3。使用*,/
a = a*b = 4*5 = 20 // should not overflow
b = a/b = 20/5 = 4 // should not overflow and should not be irrational number
a = a/b = 20/4 = 5 // should not overflow and should not be irrational number
答案 6 :(得分:0)
上面的Xor或a + b算法是最好的方法,但这只是一种奇怪的方法。仍然不确定你为什么要这样做。只需构建一个函数,您可以提供两个值ByRef并让它执行标准交换方法。
Dim newList as New List(Of Integer)
newList.Add firstvalue
newList.Add secondValue
newList.Reverse
secondValue = newList.Item(0)
firstValue = newList.Item(1)
答案 7 :(得分:0)
Take two text boxes and a command box.In command box type this code.
text1.text=val(text1.text) + val(text2.text)
text2.text=val(text1.text) - val(text2.text)
text1.text=val(text1.text) - val(text2.text)
答案 8 :(得分:0)
<强>方法#1中。强>
加法和减法方法
Integer a, b
read a and b
a= a+b;
b=a-b;
a=a-b;
<强>问题:强>
当数字总和超过整数范围时,结果不正确。
<强>方法#2。强>
乘法和除法
Integer a, b
read a and b
a=a*b;
b=a/b;
a=a/b;
<强>问题:强>
<强>方法3。强>
XOR方法
Integer a , b
read a and b
a=a^b;
b=a^b;
a=a^b;
解决此问题的最佳方法,没有任何陷阱。