>>248
これピラフ
http://trendy.nikkeibp.co.jp/article/column/20080821/1017834/03_px300.jpg


ところで、ピラフ完全に閃いたんだけどさ、
2つの配列を結合するメソッドConcatがあったとするじゃん。

Function Concat(A, B)
　　Dim C
　　ReDim C(UBound(A) + UBound(B) + 1)
　　Copy C, A, 0
　　Copy C, B, UBound(A) + 1
　　Concat = C
End Function

Sub Copy(S, D, I)
　　Dim E
　　For Each E In D
　　　　S(I) = E
　　　　I = I + 1
　　Next
End Sub

そしたら、配列に値を追加するメソッドAppendはあっさり実装できるんだよね。

Function Append(A, Value)
　　Append = Concat(A, Array(Value))
End Function

これってすごくない？