FE試験過去問にこんな問題があり、頭で考えるより実際に作ってみようかと思ってExcelVBAで作成してみた。 Dim j,k As Long Dim A(8) As Variant j = 10 Debug.print j For k = 1 To 8 A(k) = j mod 2 j = j ¥ 2 Next Debug.print A(8); A(7); A(6); A(5); A(…