プログラミング中級２

練習

中級の段階に入っていますが、「練習」のコーナーを設けることにしました。

カレンダーの６回目「追加機能」のところで、少し説明不足だと感じた部分を、ここで練習します。
どの部分かと言いますと、「祝日と祝日にはさまれた平日」の判定部分です。 And と Or が出てくる If 文で、解かり難かったのではないでしょうか？
それでも、なんとか解ったと言うかたは、ここの練習は必要ないかも知れませんが・・・ま、お付き合いくださいませ。

And と Or

If 文でいろんな条件の判定ができること、２つ以上の条件は And や Or で続けて書けること、はすでに皆様ご存知だと思います。
And だけの組み合わせ、または Or だけの組み合わせだと、問題はありません。
And と Or を組み合わせた場合に問題が発生します。
まず、例題を出しましょう。

例題１．月と日を入力させて、５月３日だったら「祝日です」とメッセージを出します。

これを、以下のようにコーディングしました。

Sub Reidai1()

    Dim tuki    As Integer
    Dim hi      As Integer

    tuki = InputBox("月を入力してください")
    hi = InputBox("日を入力してください")

    If tuki = 5 And hi = 3 Then
        MsgBox "祝日です。"
    End If

End Sub

月と日が別々の変数の中に入りますので、「５月３日」の判定は、「月が５、かつ日が３」の２つの条件の判定になります。
「月が５、かつ日が３」の部分は上記ソースの６行目です。
　　　　　If tuki = 5 And hi = 3 Then
「月が５」と「日が３」を And でつないでいます。

では、次の例題はどうでしょうか？

例題２．月と日を入力させて、５月５日だったら「祝日です」とメッセージを出します。

例題１の後だと、ひどく簡単に見えるでしょ？
例題１．の６行目の数字を変えるだけですね。

Sub Reidai2()

    Dim tuki    As Integer
    Dim hi      As Integer

    tuki = InputBox("月を入力してください")
    hi = InputBox("日を入力してください")

    If tuki = 5 And hi = 5 Then
        MsgBox "祝日です。"
    End If

End Sub

続きまして、例題３です。

例題３．月と日を入力させて、５月３日または５月５日だったら「祝日です」とメッセージを出します。

「なんだ、簡単じゃないか」と思った人は、間違いを起こす可能性が高い人です。ご注意ください。
例題３．のソースのサンプルをお見せします。

Sub Reidai3_1()

    Dim tuki    As Integer
    Dim hi      As Integer

    tuki = InputBox("月を入力してください")
    hi = InputBox("日を入力してください")

    If tuki = 5 And hi = 5 Or hi = 3 Then
        MsgBox "祝日です。"
    End If

End Sub

問題の６行目は、
　　　If tuki = 5 And hi = 3 Or hi = 5 Then
となっていますね。

「月が５」というのが共通なので、tuki = 5 を繰り返さずに、１つにまとめているのですね。なかなかよく考えています。
これは、「５月で、３日か５日だったら」の意味です。人間なら、これで解るでしょう。しかし、悲しいかなコンピューターはアホです。もっと正確に指示しないと、エラーが発生してしまいます。

さて、どういうエラーでしょうか？

実行してみるのが一番よいのですが・・・。
Reidai3_1 を実行してみます。

まず５月３日のテストです。
月に 5 を入力して、ＯＫボタンをクリックします。
日に 3 を入力して、ＯＫボタンをクリックします。
すると、「祝日です」のメッセージが表示されます。
次に５月５日のテストです。
月に 5 を入力して、ＯＫボタンをクリックします。
日に 5 を入力して、ＯＫボタンをクリックします。
今度も、「祝日です」のメッセージが表示されます。
ここまでは、問題ありませんね。
では、今度は１月５日でテストしてみます。
月に 1 を入力して、ＯＫボタンをクリックします。
日に 5 を入力して、ＯＫボタンをクリックします。
そうすると・・・ありゃ！　またもや「祝日です」のメッセージが表示されました！
う～～ん、いよいよ問題登場。

じつは、１月５日以外でも、同じエラーが発生します。
２月５日でも、３月５日でも、「祝日です」のメッセージが表示されます。

なぜかと言うと、VB は６行目の、
　　　If tuki = 5 And hi = 3 Or hi = 5 Then
を、次のように解釈しているのです。

(a) 月が５で日が３（つまり５月３日）だったら、If tuki = 5 And hi = 3 Then
(b) あるいは、日が５（つまり何月でも５日）だったら、Or If hi = 5 Then
これでは目的が果たせないことを、理解いただけるでしょうか？

VB に解釈してほしいのは、こんな感じなのです。

　　　If tuki = 5 And hi = 3 Then
　　　　　Ｏｒ
　　　If tuki = 5 And hi = 5 Then

無論、これは構文エラーなので、ちゃんと VB の文法にそって書き直すと、
　　　If tuki = 5 And (hi = 3 Or hi = 5) Then
となります。
あるいは、次のようにしても構いません。
　　　If (tuki = 5 And hi = 3) Or (tuki = 5 And hi = 5) Then

こんな風に、And と Or が混じるとややっこしいことになります。その為、And と Or は、別の If 文にしたほうが、すっきりすることが多いのです。
別の If 文にして書き直すと、

　　　If tuki = 5 Then
　　　　　If hi = 3 Or hi = 5 Then

となります。

If 文のネスト（階層）が深くなるのが難点ですが、わかりやすくなると思いませんか？

では、練習問題を１つ出します。

練習問題．
　　月と日を入力させて、５月３日または５月５日または１１月３日または１１月２３日だったら「祝日です」とメッセージを出します。