Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=425116 Tue, 10 Aug 2004 05:10:38 +0000 Поменять местами две переменные https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=425116
     
    Public Sub Swap (V1 As Variant, V2 As Variant)
        Dim Mk As Variant
        Mk = V2
        V2 = V1
        V1 = Mk
    End Sub

Вставив раз забудешь, как делать по другому :yes:]]> Гость under Разное (кодинг) https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=417503 Mon, 02 Aug 2004 11:35:51 +0000 Поменять местами две переменные https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=417503
    Dim A As Long, B As Long
    A = 3517
    B = 2498
    A = A Xor B
    B = B Xor A
    A = A Xor B
    Debug.Print A; Tab; B
]]> Гость cardinal Разное (кодинг) https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=343230 Thu, 22 Apr 2004 07:41:01 +0000 Поменять местами две переменные https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=343230
    Dim A As Long, B As Long
    A = 3517
    B = 2498
    A = A + B
    B = A - B
    A = A - B
    Debug.Print A; Tab; B
]]> OlegG Разное (кодинг) https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=336348 Sun, 11 Apr 2004 23:31:53 +0000 Поменять местами две переменные https://forum.sources.ru/index.php?showtopic=51082&view=findpost&p=336348
    Dim A As Long, B As Long
    A = 3517
    B = 2498
    A = A * B
    B = A / B
    A = A / B
    Debug.Print A; Tab; B
]]> SCINER Разное (кодинг)