Определение процедуры,выполняющей обмен двух переменных - VB

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

Составить программу, в результате которой величина a меняется значением с величиной b, а величина c – с величиной d. Определить процедуру, осуществляющую обмен значениями двух переменных.

Решение задачи: «Определение процедуры,выполняющей обмен двух переменных»

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

                            Option Explicit
 
Sub Swap_2(a, b)
    Dim t
    t = a: a = b: b = t
End Sub
 
Private Sub Form_Click()
    Dim a As Integer, b As Integer, c As String, d As String
    a = 2
    b = 7
    c = "cc"
    d = "dd"
    Swap_2 a, b
    Swap_2 c, d
    Print a, b, c, d
End Sub
                        

Оцени полезность:

5 голосов , оценка 3.8 из 5

Похожие ответы