OriosのActiveBasic講座(1-2):条件・分岐・繰り返し

前の章では「ActiveBasicによる入出力」ということで入出力をはじめプログラミングの基礎的なことをやってきましたが、この章ではプログラムをプログラムたらしめる「条件・分岐・繰り返し」を学習します。 これは変数の値などに応じて行う処理を変えたり、同じ処理を何回も繰り返したりするものです。 今までは書いたら書いた分だけの処理しかできませんでしたが、これを使うと元のプログラムのコード(ソースと言います)が、それを書くのに費やした労力の何倍もの仕事ができる能力を持つようになります。 それではActiveBasicでプログラムに価値を持たせるための方法をこの章を学習しましょう。

1.Ifブロック

上の第二章のあいさつのところにも書きましたが、この章で学ぶことはプログラムを書くのに費やした労力以上の価値を持たせることができるというものです。 どういうことかと言えば、今までには例えば"a"を10回表示したい場合は、「Print "a"」を10回書かないといけませんでした。 つまり今まではプログラムを書く手間と実行結果の比が1:1だったわけです。 しかし、この章を学習すればこの比を1:10にも1:100にもすることができます。

今回は、まずその手始めとして、条件・分岐にあたる「If」という命令語を学習します。 これは変数の値などによって、プログラムの処理を変えることができるというプログラムの基本的な技術です。 それでははりきっていきましょう。

まずはいつもの通り、下のプログラムを実行してみましょう。

'lesson1-2-1
#console
Dim a As Long
Input "1 + 1 = "; a
If a = 2 Then
    Print "正解！"
ElseIf a < 2 Then
    Beep
    Print "正解はもっと大きいよ！"
Else
    Beep
    Print "正解はもっと小さいよ！"
End If
Sleep(3000)
End

上のプログラムを実行すると下のようになります。 今回はJavaScriptを使用してページ上で実際に体験できるようにしてみました(InternetExplorer 6.0, Opera7.53, Netscape7.1で確認済み)。 実際のプログラムとは、エンターキーの代わりに右の「Enter」ボタンを押すというところが変わっていますが、実際に数値を入れて試してください (カーソルが表示されていないときは「?」の横をクリックしてください)。

今回のプログラムは実行するときには、上の体験版でもいいのでわざと違う値を入れてみてください。 そうするとよりこのプログラムがどういうことをしているのか実感できます。 あとこのプログラムでは間違った答えを入力すると、音が出るのでボリュームに気をつけましょう。

では昔テストのときに筆算で「1 + 1 = 1」と書いたなんてアホな話は放っといて(^^;、今回の説明を始めましょう。

If a = 0 Then
    Print "aは0です。"
End If

If a = 0 Then
    Print "aは0です。"
ElseIf b = 0 Then
    Print "aは0ではありませんがbは0です。"
End If

If a = 0 Then
    Print "aは0です。"
ElseIf b = 0 Then
    Print "aは0ではありませんがbは0です。"
ElseIf b > 0 Then
    Print "aは0でなく、bは0より大きいです。"
End If

If a = 0 Then
    Print "aは0です。"
ElseIf b = 0 Then
    Print "aは0ではありませんがbは0です。"
Else
    Print "a, bはともに0でありません。"
End If

' エラーが出ます
If a = 0 Then
    Print "aは0です。"
Else
    Print "a, bはともに0でありません。"
ElseIf b = 0 Then
    Print "aは0ではありませんがbは0です。"
End If

今回はIfブロックをやりましたが、理解していただけましたでしょうか？ 今回の「Ifブロック」はプログラミングの基本の一つなのでしっかりIfブロックの構造をおさえてください。 もし分からないことがあれば掲示板などで気軽に質問してください。 では、今回の「やってみよう」です。