Declare Sub Swap (ByRef a As Any, ByRef b As Any )

a
b

Меняет местами значения двух переменных.

' Обмен значениями с помощью Swap для установки порядка возрастания чисел:
Dim a As Integer, b As Integer

Input "input a number: "; a
Input "input another number: "; b
If a > b Then Swap a, b
Print "the numbers, in ascending order are:"
Print a, b

• Нет
  
  

• Оператор = (Присваивание)