|
Как поменять местами значение двух переменных
без использования третьй переменной
Private Sub Form_Load()
x = 34
y = 29
'x = x + y
'y = x - y
'x = x - y
x = x * y
y = x / y
x = x / y
MsgBox "x=" & x & " :" & "y=" & y
End Sub
или
Если в течении работы программы Вам нужно
несколько раз менять значения двух переменных,
то используйте эту процедуру:
Sub Swap (V1 As Variant, V2 As Variant)
Dim Mk As Variant
Mk = V2
V2 = V1
V1 = Mk
End Sub
Вызов: Swap x, y
Но объявление переменных желательно поменять с Variant
на то, которое нужно Вам - меньше памяти надо
будет. А эта процедура - универсальна! Чтобы не
содержали аргументы V1 и V2, их значения поменяются
местами.
|