第６講 If文（分岐）を理解しよう
第４話 If文に否定の場合を加える（If～Else～文）
前話問題
解答例
Private Sub CommandButton1_Click()
Cells(6, 2) = Int(100 * Rnd())
If Cells(6, 2) >= 60 Then
Cells(8, 2) = "合格"
Else
Cells(8, 2) = "不合格"
End If
End Sub
さて、いよいよ第６講のメインイベントです。
例１が魔方陣であり、
例２が数独であることを検証するプログラムに取りかかりましょう。
まず、魔方陣であることを証明するプログラムを作りましょう。
第５講第11話のプログラム
を改良して、すべての列・行・対角線の合計が
６×（６×６＋１）÷２
に等しいなら、
と表示させ、消去ボタンを押すと
となるように改良しましょう。
６×（６×６＋１）÷２
は６次魔方陣の行・列・対角線の合計値です。
一般にｎ次魔方陣の行・列・対角線の合計値は、
ｎ×（ｎ×ｎ＋１）÷２
です。
なぜなら、ｎ次魔方陣の１からｎ×ｎまでのすべての数字の和は、
ｎ×ｎ×（ｎ×ｎ＋１）÷２
でそれを行数であるｎで割れば、
ｎ×（ｎ×ｎ＋１）÷２
となるからです。
ｎ×ｎ×（ｎ×ｎ＋１）÷２は
項数×（末項＋初項）÷２の計算です。
等差数列の和の公式です。
ｎ×（ｎ×ｎ＋１）÷２をVBA上で実現するときは、
Int(n * (n * n + 1) / 2)
です。
Int(*)は*の小数部分を切り捨て、整数に変換するものです。
割り算があるので、Int()で()の中のものを整数にキャストする必要があります。
といってもこれをすぐに課題にしたのでは、難しすぎます。
そこで、より簡単な課題を出したいと思います。
参考ファイルを開いてください。
例によって
とコードは空になっています。
さて、For文使ってB6からF6に１００以下のランダムな整数を発生させ、
それがすべて５０以上なら、
１教科でも５０未満なら、
となるプログラムを考えてください。
Byte型の変数hを用意しておいて、
はじめそれに１を代入しておきます。
そして、セルB6からF6の数字を５０と比べます。
もし、５０未満なら・・・
以降皆さんご自分で考えてみましょう。
初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
ＶＢ講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門
数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ
