Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение В-в А - VB

Формулировка задачи:

Описать функцию ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2).

Решение задачи: «Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение В-в А»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Command1_Click()
 
    Dim A1 As Double, B1 As Double, C1 As Double
    Dim A2 As Double, B2 As Double, C2 As Double
    
    A1 = 0.111: B1 = 0.222: C1 = 0.333
    A2 = 1212.12: B2 = 3434.34: C2 = 5656.56
    
    MsgBox "До: " & "  A1 = " & A1 & "  B1 = " & B1 & "   C1 = " & C1
    Call ShiftLeft3(A1, B1, C1)
    MsgBox "После: " & "  A1 = " & A1 & "  B1 = " & B1 & "   C1 = " & C1
    
    MsgBox "До: " & "  A2 = " & A2 & "  B2 = " & B2 & "   C2 = " & C2
    Call ShiftLeft3(A2, B2, C2)
    MsgBox "После: " & "  A2 = " & A2 & "  B2 = " & B2 & "   C2 = " & C2
 
End Sub
 
Private Sub ShiftLeft3(ByRef A As Double, ByRef B As Double, ByRef C As Double)
    Dim Tmp As Double
    Tmp = B: B = C: C = A: A = Tmp
End Sub
                        