Visual Basic 初級講座

Visual Basic 中学校 > 初級講座 >

第６回　条件判断

プログラムをしていると「もし、・・・の場合はこうして、そうじゃないときはこうする」のように場合に応じて処理を変えたいときがあります。そんなときにつかうのが「条件判断構造（じょうけんはんだんこうぞう）」と呼ばれる物で、これは条件に応じて処理を変える命令や構造のことを指します。ＶＢには条件判断構造として　If文（イフ文）　と　Select文（セレクト 文）　が用意されていてどちらもよく使い大変重要です。

１．文字列の長さ

まずはテキストボックスに文字が入力されているか判断してみましょう。文字が入力されているかチェックするには入力されている文字数を調べます。文字数が０ならば何も入力されていないことになります。

VBで、文字数を数えるには前回登場したLen関数（レン）を使います。おさらいしておきましょう。たとえば、MsgBox(Len("あいうえお"))とすると、　「５」　と表示されるのでしたね。それでは、これを利用して入力した文字の数を数えるプログラムを作ってみましょう。

■プログラム１：これから作成するプログラムはこんな感じです。

まず、フォームにボタン(Button)とテキストボックス(TextBox)を１つずつ配置してください。

そして、ボタンをダブルクリックしてClickイベントプロシージャに次のようにコーディングしてください。

■リスト１：テキストボックスに入力された文字数を数えるプログラム

解説しますと、２行目の　Dim Moji As String　は　文字列型の変数Mojiを使うという宣言でしたね。このことは前に解説していますがわからなくても気にしないで先に進んでください。。３行目の　Moji = TextBox1.Text　はテキストボックスに入力された文字をMojiに代入（セット）する命令です。３行目の　MsgBox(Len(Moji))　はMojiの文字数を表示せよ。という命令です。

それでは実行してみてください。テキストボックスに何か入力してボタンをクリックすると入力した文字の文字数が表示されます。

文字数を表示させる部分はこれだけで完成です。今度は文字数が０の時に表示されるメッセージを変えてみましょう。今のままではテキストボックスに何も入力しないでボタンを押すと 「０文字が入力されています。」と表示されます。「０文字入力されている」というのは感覚的にはおかしいですね。これでいいのだといってしまえばそれまでですが、 やはりこの場合は「何も入力されていません」などと表示したいものです。

「文字数が０の場合は」と言うところでいよいよ条件判断構造が登場します。

２．はじめての条件判断

ＶＢで条件を判断するにはIf文（イフ）を使います。If　は必ず　Then（ゼン）と一緒に使います。使い方は次のような形になります。

If ・・・・・　Then ・・・・・・

で、これはそのまま日本語の

もし　・・・・・・だったら　その時は　・・・・・・・・

という意味になります。

今回は　「もし、長さが０だったら」とするのですから

If Len(Moji) = 0 Then

となります。

さらに長さが０だったら　「何も入力されていません」と表示したいのですから、条件判断の部分は次のようにすれば完成です。

■リスト２

３行目のEnd Ifは条件判断の終了を示すものです。もしこれがなければＶＢはどこからどこまでが条件（今回の例では０文字の時）の場合に実行されるコードなのか判断することができなくなってしまいます。今回は条件（今回の例では０文字の場合）のときに実行されるコードが１行なのでいいですが、このIfとEnd Ifの間には他の部分と同じように何行でも書くことができるのです。

次に、何か入力されているときは今まで通りの表示をさせます。なにか入力されていれば、文字数が０より大きいはずですから、「もし、何か入力されていれば・・・」という条件は「もし、文字数が０より大きければ」となりますから、次のようにすればOKです。

■リスト３

記号　>　は算数・数学でもでてきて「左にある物は右にある物より大きい」を表すのでしたね。ここでは使いませんがこの他に　<　を使用することもできます。「以上」「以下」を使いたい場合はそれぞれ「>=」「<=」とします。これは算数・数学とは少し違います。(算数・数学で は「≧」、「≦」を使います）。はまた　　<>　という記号を使うと「・・・じゃないとき」と言う意味が表現できます。

では、改良を加えて完成したプログラムの全体を見てみましょう。

■リスト４：条件によって表示されるメッセージが変わる

実行して試してみてください。

以上で、かんたんな条件判断をするプログラムが完成したわけですが、正直に言うとはじめて　If　を使う人には少しきついと思います。これは　なれるしかありません。がんばってください。

３．その他の場合

今度はクイズを作ります。アメリカの最初の大統領は誰かを答えてもらうものを作りましょう。答えはもちろんジョージ・ワシントン(1732年〜1799年)です。

先ほどと同じようにフォームにテキストボックス(TextBox)とボタン(Button)、それにラベル(Label)を１つづつ貼り付けてください。そしてフォームをダブルクリックして、Loadイベントプロシージャに次のように記述してください。Loadイベントはフォームが開始されるときに自動的に発生するイベントです。

■リスト５

そして、クイズの答えはあのテキストボックスに書き込んでもらいましょう。答えたらボタンを押してもらうことにします。もし、答えが「ワシントン」なら「正解」と表示して、それ以外なら「残念でした」と表示することにします。

「もし、こたえがワシントンなら」というところが条件判断なのですね。

この部分はどうやればいいか分かりますか？　次のようにすればよいのです。

■リスト６

ここまでの全コードを下に示します。

■リスト７：正解の場合に「正解」と表示する

博士のワンポイントレッスン 博士： リスト７にはButton1_ClickプロシージャとForm1_Loadプロシージャがあ るがプロシージャには順番がないのじゃから、Form1_Loadプロシージャより前にButton1_Clickプロシージャ を書いても良いぞ。 V太：ふーん。まぁ順番は気にしなくて良いってことですね。

さて、「ワシントン」の場合は・・・　というところは完成しましたが、「その他の場合は・・・」の部分はどうしたらいいでしょうか？

If文　で「その他の場合」を使いたいときには　キーワード　Else　（ 読み方：Else = エルス）　を使います。具体的には次のようになります。

■リスト８

これで、

もし、TextBox1に入力されているのが「ワシントン」　なら　"正解"と表示しなさい。　その他の場合は　"残念でした"と表示しなさい。

という意味になります。なかなか便利なElseですね。最初の文字の長さを表示する例でもElseを使えばもっと短くプログラムできます。

それでは、もうお分かりかと思いますが念のためにこの簡単なクイズプログラムの全コードを掲載しておきます。

■リスト９：正解の場合に「正解」、不正解の場合には「残念でした」と表示する。

４．その他の場合で…

Elseを使うとその他の場合がすべて一緒にされてしまいますが、その他の場合でも区別したいときがあります。そのためにElse節でもう一度条件判断ができる ElseIf (読み方：ElseIf=エルスイフ)が用意されています。

上記の例で回答者が「ワシントン」ではなく2代目大統領のアダムズを回答してしまったときに、少し違うメッセージを表示するには次のようになります。

■リスト１０

ElseIfはいくつでも書くことができますから、この調子ですべての大統領を判断することもできます。ただ、大統領は４０人以上いますから本当にプログラムを作るならもっと別の方法をとるでしょう。

なお、１回 If や ElseIf の条件に合致すると処理は End If にジャンプします。そのため、ElseIf で複数の条件に合致する場合でも最初に合致するIf節またはElseIf節しか実行されません。

５．２つ以上の条件

以上で基本的なことは終了しました。今度はもっと複雑な条件判断について説明します。

たとえば、「Ｋが５　で、　Ｍが８　の時は・・・」という条件判断です。条件が２つ以上あってもIf文１つで書くことができます。ただし、 この場合「条件の関係」に注意してください。。

条件の関係とは、「Ｋが５　で　Ｍが８　の時」なのか「Ｋが５　か　Ｍが８　の時」なのかということです。前者の場合は　K=5　と　M=8 の両方が成立しているとき　ということですが、後者は　K=5　か　M=8　のどちらかが成立しているとき（両方でも良い）ということになります。

まず、「Ｋが５　で　Ｍが８　の時」から説明すると、この場合は　条件同士を　AndAlso　（ 読み方：AndAlso=アンドオールソー）でつなぎます。

のようになります。３つあれば、もう一つ AndAlso でつないでください。いくつでもつなげます。

そして、「Ｋが５　か　Ｍが８　の時」は、条件同士を　OrElse　（ 読み方：OrElse=オアエルス）でつなぎます。

のようになります。この場合も３つ以上つなぐこともできます。

ところで、次のようにしたらどうでしょうか？

■リスト１１

注意：小中学生へ、「成就」は「じょうじゅ」と読みます。「なしとげる」という意味です。たとえば、「太郎と遊ぶ約束は成就された。」といえば、「太郎と遊ぶ約束が果たされた。」というような意味になります。（これは国語の問題ですね）。

「成就されました。」と表示されるのはどんな場合でしょう？

OrElse　と　AndAlso の両方が同じ文で使われたときは　AndAlso の方が強い結合力をしめします。つまり、この例で「成就されました。」と表示されるのは　「ｋ＝５　の時」か「Ｍ＝８　で　Ｐ＝３１の時」のどちらかです。（どちらでもいいです）。

この場合を表にまとめると次のようになります。

しかし、結合力は　（ ）をつけることにより変化させることができます。たとえば、この例に（）をつけて下のようにします。

■リスト１２

こうすると、「成就されました。」と表示されるのは「Ｋ＝５　で　Ｐ＝３１の時」か「Ｍ＝８　で　Ｐ＝３１の時」のどちらかになります。（どちらでもいいです）。

この場合を表にまとめると次のようになります。

かっこ１つで意味が大きく変わってしまって紛らわしいので特に必要のない場合でもかっこをつけることをお勧めします。たとえば最初の例では次のように書くと良いです。

■リスト１３

６．ネスト

もう１つ複雑な条件判断として「ネスト」というものがあります。やはり　２つ以上の条件がある場合に使います。

上の例では　K = 5 で　M = 8　が条件の場合は AndAlsoを使って次のようにプログラムしていました。

■リスト１４

もちろんこれでは正解ですが、「ネスト」という方法を使ってこれと同じことをすると次のようになります。

■リスト１５

これは２つの If文　を「入れ子」のようにして使っているのです。

日本語に翻訳すると次のような意味になります。

もし、K = 5 なら、

もし、 M = 8 なら、

"条件に合致しました。"と表示しなさい

（M = 8　の場合はここまで）

（K = 5　の場合はここまで）

この「入れ子」状の構造を「ネスト」と言います。AndAlsoを使うかネスト を使うかはプログラマのお好みです。ただ「ネスト」は If の他にもいろいろでてきますから、今のうちに覚えておきましょう。ネストが特に効果を発揮するのは　Forループ　の時です。これについては次回解説しますのでお楽しみに。

７．Select Case

最後にIf文の他の条件判断構造であるSelect Case(読み方：Select Case=セレクト ケース)を紹介します。

Select Caseは条件によって処理が３つ以上に分かれるときに使うと特に便利ですが、そうでない場合もSelect Caseの方がわかりやすいといってIf文よりもSelect Case文を好んで使う人もいます。

Select Case文はIf文とまったく同じことができます。書き方が違うだけです。

最も単純な使い方は次のようなものです。

Case節 (読み方：Case = ケース)はいくつ書いても構いません。Case Else節は省略することができます。１つのCase節が実行されると処理はEnd Selectにジャンプします。つまり、複数のCase節に合致する場合は合致する最初のCase節しか実行されません。

具体例では次のようになります。

■リスト１６

この例はIf文でElseIfを使って表現することも可能です。

１つのCase節で複数の条件を判断することもできます。

■リスト１７

この例では、テキストボックスに「ワシントン」または「アダムズ」と入力すると「アメリカの大統領です。」と表示されます。

「ワシントン」または「アダムズ」という条件なのにCase節では Or が使われていないことに注意してください。Case節では単なる , (カンマ)が「または」という意味を表現します。逆に Or を使うと正常に条件判断がされません。(この場合の Or はビット演算を実行します。)

Case節には他にも便利か書き方があるので簡単にサンプルを紹介しておきます。

今日の日付によってメッセージが変わる例です。今日の日付は Now.Day (読み方：Now=ナウ、Day=デイ)で取得できます。

たとえば、6月27日 は Now.Day は 27 を返します。

■リスト１８

このサンプルに登場する To (読み方：To=トゥー)や Is (読み方：Is=イズ)に注意してください。熟達してくるとこれらを組み合わせてSelect Case文はいろいろな使い方ができるのですが、今回は基本的な使い方だけ紹介しました。

なお、IfとSelect Caseの例はサンプル集にも掲載しています。

・Ifを使用した条件判断

・Select Caseを使用した条件判断