第３話 変数の再利用
変数３個の場合のコーティング例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim 言葉１ As String
Dim 言葉２ As String
Dim 言葉３ As String
Dim 言葉４ As String
Dim 言葉５ As String
Dim 人１ As String
Dim 人２ As String
Dim 人３ As String
言葉１ = "明るく"
言葉２ = "前向き"
言葉３ = "優しく"
言葉４ = "活発"
言葉５ = "は"
人１ = "太郎"
人２ = "花子"
人３ = "次郎"
Label1.Text = 人１ + 言葉５ + 言葉１ + 言葉２
Label2.Text = 人２ + 言葉５ + 言葉３ + 言葉４
Label3.Text = 人３ + 言葉５ + 言葉１ + 言葉３
人１ = "優子"
人２ = "三郎"
人３ = "洋子"
Label4.Text = 人１ + 言葉５ + 言葉２ + 言葉３
Label5.Text = 人２ + 言葉５ + 言葉１ + 言葉４
Label6.Text = 人３ + 言葉５ + 言葉１ + 言葉３ + 言葉２ + 言葉４
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 言葉１ As String
Dim 言葉２ As String
Dim 言葉３ As String
Dim 言葉４ As String
Dim 言葉５ As String
Dim 人 As String
言葉１ = "明るく"
言葉２ = "前向き"
言葉３ = "優しく"
言葉４ = "活発"
言葉５ = "は"
人 = "太郎"
Label1.Text = 人 + 言葉５ + 言葉１ + 言葉２
人 = "花子"
Label2.Text = 人 + 言葉５ + 言葉３ + 言葉４
人 = "次郎"
Label3.Text = 人 + 言葉５ + 言葉１ + 言葉３
人 = "優子"
Label4.Text = 人 + 言葉５ + 言葉２ + 言葉３
人 = "三郎"
Label6.Text = 人 + 言葉５ + 言葉１ + 言葉３ + 言葉２ + 言葉４
人 = "洋子"
Label5.Text = 人 + 言葉５ + 言葉１ + 言葉４
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 言葉１ As String
Dim 言葉２ As String
Dim 言葉３ As String
Dim 言葉４ As String
Dim 言葉５ As String
Dim 人 As String
言葉１ = "明るく"
言葉２ = "前向き"
言葉３ = "優しく"
言葉４ = "活発"
言葉５ = "は"
人 = "太郎"
Label1.Text = 人 + 言葉５ + 言葉１ + 言葉２
人 = "花子"
Label2.Text = 人 + 言葉５ + 言葉３ + 言葉４
人 = "次郎"
Label3.Text = 人 + 言葉５ + 言葉１ + 言葉３
人 = "優子"
Label4.Text = 人 + 言葉５ + 言葉２ + 言葉３
人 = "三郎"
Label6.Text = 人 + 言葉５ + 言葉１ + 言葉３ + 言葉２ + 言葉４
人 = "洋子"
Label5.Text = 人 + 言葉５ + 言葉１ + 言葉４
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 言葉１ As String
Dim 言葉２ As String
Dim 言葉３ As String
Dim 言葉４ As String
Dim 言葉５ As String
Dim 人 As String
言葉１ = "明るく"
言葉２ = "前向き"
言葉３ = "優しく"
言葉４ = "活発"
言葉５ = "は"
人 = "太郎"
Label1.Text = 人 + 言葉５ + 言葉１ + 言葉２
人 = "花子"
Label2.Text = 人 + 言葉５ + 言葉３ + 言葉４
人 = "次郎"
Label3.Text = 人 + 言葉５ + 言葉１ + 言葉３
人 = "優子"
Label4.Text = 人 + 言葉５ + 言葉２ + 言葉３
人 = "三郎"
Label6.Text = 人 + 言葉５ + 言葉１ + 言葉３ + 言葉２ + 言葉４
人 = "洋子"
Label5.Text = 人 + 言葉５ + 言葉１ + 言葉４
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 言葉１ As String
Dim 言葉２ As String
Dim 言葉３ As String
Dim 言葉４ As String
Dim 言葉５ As String
Dim 人 As String
言葉１ = "明るく"
言葉２ = "前向き"
言葉３ = "優しく"
言葉４ = "活発"
言葉５ = "は"
人 = "太郎"
Label1.Text = 人 + 言葉５ + 言葉１ + 言葉２
人 = "花子"
Label2.Text = 人 + 言葉５ + 言葉３ + 言葉４
人 = "次郎"
Label3.Text = 人 + 言葉５ + 言葉１ + 言葉３
人 = "優子"
Label4.Text = 人 + 言葉５ + 言葉２ + 言葉３
人 = "三郎"
Label6.Text = 人 + 言葉５ + 言葉１ + 言葉３ + 言葉２ + 言葉４
人 = "洋子"
Label5.Text = 人 + 言葉５ + 言葉１ + 言葉４
End Sub
End Class
とするべきです。
後で（といっても本講座の最後の方ですが）構造化プログラミングについて述べますが、
この言葉は難しいですが、内容は簡単です。
内容は、部品をプログラムのパーツのように独立させて、そのパーツから全体を組み立てることをいいます。
構造化プログラミングの重要な思想は、プログラムをわかりやすく書くです。
常にわかりやすく書きましょう。
意味の固まりごとに段組をする、あるいは空白行を入れる等をするとわかりやすくなります。
