Re5:50歳から始めるラズベリーパイ-2
Re5:50歳から始めるラズベリーパイ
簡単なゲームで学ぶVBAプログラミング入門
amazon kindle版を出版しました。
3.2 魔方陣の作成-1
魔方陣とは、縦横斜めの数の和が同じとなるように、異なる整数を入力していくものです。数値を入力するだけで、合計はSUMで計算できますが、ここではVBAを使ってみましょう。
乱数を使って、9マスを埋めていきます。
これが、縦横斜めの和が同じになるようにしてみましょう。
3×3の魔方陣で、1~9までの数値を用いた場合は、
1から9までの合計が45となるので、縦横斜めは3で割って15となります。これを利用します。
(中央は5になります。角は偶数となります。)
(0)初期設定
A1からE4までの値をクリアします。罫線を引きます。
(1)角が偶数なので、対角線の数が10になるように、乱数で配置します。(ソートします。)10になるまで繰り返します。goto文を使います。
(2)中心が5、角の配置が決まったので、残りの配置をします。
(3)決まった配置の内、3から5個程度配置します。
(4)これから、魔方陣を埋めていきます。値を入力して、ボタンを押すと”正解”、”不正解”の判定をします。正解の場合、”正解!!”を表示します。