Excel の VBA
なんでこれがコンパイルエラーにならないんだ?
Option Explicit Private Sub swap(ByRef x As SortableExecutionClass, ByRef y As SortableExecutionClass) Dim d As SortableOrderClass Set d = x Set x = y Set y = d End Sub
なお、SortableExecutionClass と SortableOrderClass に関連は一切ない。