第２話 文字の足し算
変数は、文字を収納するときより数字を収納するときの方が遙かに威力を発揮しますが、
文字においても変数を利用すると便利な点があります。
文字の足し算ができるのです。
第２講第１話で作ったプロジェクトを開いてください。
デザインはこのままで、コードを改良しますのでForm1.vbをクリックしてコードを出してください。
コードを次のように変更しましょう。
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
変数１ = "Visual"
変数２ = " "
変数３ = "Basic"
変数４ = "にようこそ！"
Label1.Text = 変数１ + 変数２ + 変数３ + 変数４
Label2.Text = 変数１ + 変数２ + 変数３ + 変数４
Label3.Text = 変数１ + 変数２ + 変数３ + 変数４
Label4.Text = 変数１ + 変数２ + 変数３ + 変数４
Label5.Text = 変数１ + 変数２ + 変数３ + 変数４
Label6.Text = 変数１ + 変数２ + 変数３ + 変数４
End Sub
End Class
（コピペするときは、面倒でも１行１行やりましょう。上は全角スペースが入っているので文字の部分だけコピペしましょう。）
これでF5を押すて実行ボタンをクリックすると、
文字が足し算されている様子がわかります。コードを次のように変更しましょう。
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
変数１ = "Visual"
変数２ = " "
変数３ = "Basic"
変数４ = "にようこそ！"
Label1.Text = 変数１ + 変数２ + 変数３ + 変数４
Label2.Text = 変数１
Label3.Text = 変数１ + 変数２
Label4.Text = 変数１ + 変数２ + 変数３
Label5.Text = 変数４ + 変数３ + 変数２ + 変数１
Label6.Text = 変数３ + 変数１ + 変数４ + 変数２
End Sub
End Class
（変数ところは全部全角で、それ以外は全部半角です。繰り返しますが、全角スペースを使うとエラーします。
ご自分で打つ場合は、全角半角にご注意してください。全角と半角の変更が面倒な方は、変数も半角アルファベットと半角数字の組み合わせにしましょう。
ただし、1aのように数字を先頭にもってくるとエラーします。a1は問題ありません。）
F5を押し実行ボタンを押すと、
（図の２行目と３行目が同じに見えますが、実は違います。
３行目はVisualの後に半角のスペースが入っています。）
注
Dim 変数１ As String
Dim 変数２ As String
Dim 変数３ As String
Dim 変数４ As String
は
Dim 変数１,変数２,変数３,変数４ As String
とまとめて宣言することも出来ます。
また、コードを変更し性格診断ソフトにしてみましょう。
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
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
さて、コードいろいろいじって皆さんなりの性格診断ソフトにしてください。
さて、問題を出して今話を閉じます。
人を表す変数を６個用意しましたが、変数３個で同じになるようにするにはどうしたらよいですか。
同じく変数を１個にすると、どのようにコーティングしたらよいですか。
