第1話問題解答例
①
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 1
While i <= 100
w = w + i
i = i + 1
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
実行画面
②
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
While i <= 100
w = w + i
i = i + 2
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
実行画面
③
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
While i <= 100
w = w + i
i = i + 3
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
実行画面
一般にプログラム言語では、条件式（上例では、i <= 100）は条件式自体が０または１の値をもっています。
条件式が偽すなわち間違っている場合、条件式は０の値を
条件式が真すなわち正しい場合、条件式は１の値をもちます。
例えば、i = 200のときは、i <= 100は200 <= 100で間違っているので０の値を
i = 2のときはi <= 100は2 <= 100で正しいので１の値をもちます。
この点に注意すると③の解答例は次のように変更することもできます。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
While 1
w = w + i
i = i + 3
If i > 100 Then Exit While
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
Exit Whileは、強制的にループ処理を抜けるときに使う命令です。
Exit は、For文でも使えます。この場合はExit Forです。
While文で気をつけなければならないことは、永久ループにならないよう注意することです。
たとえば、今のコーティングでうっかりIf i > 100 Then Exit Whileを忘れてしまうと
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
While 1
w = w + i
i = i + 3
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
永久ループになってしまいます。While 1 ですから永久に続けてしまうわけです。
ループを抜け出す条件を忘れると、永久ループになってしまいます。
また、ループを抜け出す条件が不適切な場合にも永久ループなってしまう場合があります。
実行して10秒も20秒も結果がでなければ永久ループになっている可能性を疑わなければなりません。
今作っているソフトは、ほとんどが０．００１秒もかからず結果の出るものばかりだからです。
これを超えたのは、円周率πの計算ぐらいでしょう。
永久ループになると、コンピュータは無限に計算を続けます。
つまり、ソフトは永久に稼働してしまいます。
このような状態になったときは、強制的にソフトを閉じてください。
強制的にソフトを終了させる方法は、
画面の一番下の矢印のあたりを右クリックしてください。
すると、サブメニュー
が開きます。それのタスクマネージャの起動をクリックします。
パフォーマンスタブをクリックしてCPU使用率が画面のように２５％を超えていれば、永久ループになっている可能性が濃厚です。
２５％を指標にするのは、コンピュータがCPUを4つ積んでいる場合です。
少なくともCPUひとつ分がフル稼働しているということは、コンピュータが永久ループの計算を永遠と計算している可能性を示しています。
アイドリング状態では、CPU使用率は高々数％です。
永久ループに陥ってしまった場合は、タスクマネージャーのアプリケーションタブをクリックします。
応答なしとなっているソフトを選びタスクの終了をクリックします。すると、プログラムの終了
がでてきますので、すぐに終了をクリックしてください。
永久ループになったソフトを終了することができます。
ループを抜け出す条件は、忘れたり不適切であることが結構ありますので慎重にしなければなりません。
さて、先のタイピングは次のようにすることも可能です。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
Dim a as Integer
a = 1
While a
w = w + i
i = i + 3
If i > 100 Then a = 0
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
If i > 100 Then a = 0がループを抜け出す条件です。
While文は条件式の値が1の間だけ繰り返しますので、
０なれば終了するわけです。
今回作ったソフトだといちいちプログラムソースをいじらなければなりません。
そこで、プログラムソースをいちいちいじらなくてもソフト上から条件を入力できるように改造しましょう。
例えば、次のようにForm1を改造して、実行できるようにコードをタイピングして下さい。
ここで１乗の和、２乗の和等とは、上図の実行画面例の場合それぞれ
等を表すことにします。ソース例は、例によって３０行下。
ただし、wは４乗の和などがかなり大きくなりますので、
long w;
と宣言しておくことにしましょう。
コード例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim a As Integer, b As Integer, c As Integer, i As Integer, w As Integer
'値の取得
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
'１乗の和の計算
w = 0
i = a
While i <= b
w = w + i
i = i + c
End While
TextBox4.Text = w.ToString
'２乗の和の計算
w = 0
i = a
While i <= b
w = w + i * i
i = i + c
End While
TextBox5.Text = w.ToString
'３乗の和の計算
w = 0
i = a
While i <= b
w = w + i * i * i
i = i + c
End While
TextBox6.Text = w.ToString
'４乗の和の計算
w = 0
i = a
While i <= b
w = w + i * i * i * i
i = i + c
End While
TextBox7.Text = w.ToString
End Sub
End Class
では、課題を出してこの話を閉めましょう。
それぞれの和について、合計の上限値を超えない範囲まで合計を続けるように変更させるにはどうしたらよいでしょうか。
つまり、例えば
１＋２＋３＋４＋・・・の和の合計が１００を超えない範囲で合計を続けさせるということです。
③の別解である
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
While 1
w = w + i
i = i + 3
If i > 100 Then Exit While
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
または、
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As Integer
'和の計算
w = 0
i = 2
Dim a as Integer
a = 1
While a
w = w + i
i = i + 3
If i > 100 Then a = 0
End While
'和の表示
Label1.Text = w.ToString
End Sub
End Class
を参考にして下さい。
