GO-AHEADの日記

GO-AHEADで出版した書籍の紹介をします

Re5:50歳から始めるラズベリーパイ-2

Re5:50歳から始めるラズベリーパイ

簡単なゲームで学ぶVBAプログラミング入門

amazon kindleを出版しました。


3.2 魔方陣の作成-1
 魔方陣とは、縦横斜めの数の和が同じとなるように、異なる整数を入力していくものです。数値を入力するだけで、合計はSUMで計算できますが、ここではVBAを使ってみましょう。

 

f:id:GO-AHEAD:20200324151225p:plain

 

 乱数を使って、9マスを埋めていきます。
これが、縦横斜めの和が同じになるようにしてみましょう。
3×3の魔方陣で、1~9までの数値を用いた場合は、
1から9までの合計が45となるので、縦横斜めは3で割って15となります。これを利用します。
(中央は5になります。角は偶数となります。)

 

(0)初期設定
 A1からE4までの値をクリアします。罫線を引きます。

(1)角が偶数なので、対角線の数が10になるように、乱数で配置します。(ソートします。)10になるまで繰り返します。goto文を使います。

(2)中心が5、角の配置が決まったので、残りの配置をします。

(3)決まった配置の内、3から5個程度配置します。

 

(4)これから、魔方陣を埋めていきます。値を入力して、ボタンを押すと”正解”、”不正解”の判定をします。正解の場合、”正解!!”を表示します。

f:id:GO-AHEAD:20200324151306p:plain

f:id:GO-AHEAD:20200324151321p:plain

f:id:GO-AHEAD:20200324151333p:plain