하위 ABC ()
I = 1 끝 10 의 경우
Cells(i, "A") = Int(Rnd() * 50)+1
내가> 그렇다면 1
J = 1 에서 I-1 까지
셀 (I, "a") = 셀 (j, "a") 인 경우
I = I-1
종료 ...
만약 ... 끝날거야
다음 J.
J = 1 에서 I-1 까지
If 셀 (I, "a") < 세포 (j, "a") 그리고
B = 세포 (I, "a")
셀 (I, "A") = 셀 (j," a ")
셀 (j, "a") = b
만약 ... 끝날거야
다음 J.
만약 ... 끝날거야
다음으로 저는
끝단 접합