- 416 名前：デフォルトの名無しさん mailto:sage [2008/04/28(月) 14:26:05 ]
- Sub 長さ４の配列データの並べ替え( A )
if(A(1)<A(2)AND(A(2)<A(3))AND(A(3)<A(4))then
return
end if
if( (A(2)<A(1))AND(A(1)<A(3))AND(A(3)<A(4))then
A(1)=A(2)
A(2)=A(1)
end if
あと１４個似た構文が続く
End Sub
以前、会社のシートにこれがあった。
バグが出る度に書き直していった苦労の跡がにじんでた。
なんだかんだいって、結構偉大なコードだと思った。
