配列ｘ（１）～ｘ（１０）に0,1のビット列を全て列挙するプログラム

ExcelVBAで、配列x（１）～ｘ（１０）の中に０，１の全てのパターンを格納し、そのままシートに列挙するプログラムを作りたいのですが、簡単に出来る方法はありますか？

例
00000 00000
～
11111 11111

の1024パターン全て列挙

No.1 ベストアンサー 回答者： kmee 回答日時： 2015/12/13 01:41

00000 00000 〜 11111 11111 は 、0〜1023の十進数に対応する2進数のパターンになっています。

ということは

0の2進数の0/1 をシートに
1の2進数の0/1 をシートに
...
1023の2進数の0/1 をシートに

というプログラムにすればいいわけです。