第６話 第５話問題解答例と新しい問題
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 'まとめて整数型変数を宣言
'TextBoxから値を取得し、変数に整数を代入
a = TextBox1.Text
b = TextBox2.Text
'和を計算
c = a + b
'和を表示
TextBox3.Text = c
'差を計算
c = a - b
'差を表示
TextBox4.Text = c
'積を計算
c = a * b
'積を表示
TextBox5.Text = c
'商を計算
c = a / b
'商を表示
TextBox6.Text = c
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 a As Integer, b As Integer 'まとめて整数型変数を宣言
'TextBoxから値を取得し、変数に整数を代入
a = TextBox1.Text
b = TextBox2.Text
'和を計算し表示
TextBox3.Text = a+b
'差を計算し表示
TextBox4.Text = a-b
'積を計算し表示
TextBox5.Text = a*b
'商を計算し表示
TextBox6.Text = a/b
End Sub
End Class
さて、このようにコーティングし直すと、
割り算が正確にできないという問題も解消されてしまいました。
今、初心者のための世界で一番簡単なVisual C++入門講座も同時に展開しているので勘違いしてしまいましたが、
左辺のa/bの段階で整数に丸められるのではなく、
c = a / bと代入する段階で丸められてしまうのです。
ここが、C言語と違う点です。
さて、とりあえずコーティングを
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 'まとめて整数型変数を宣言
'TextBoxから値を取得し、変数に整数を代入
a = TextBox1.Text
b = TextBox2.Text
'和を計算
c = a + b
'和を表示
TextBox3.Text = c
'差を計算
c = a - b
'差を表示
TextBox4.Text = c
'積を計算
c = a * b
'積を表示
TextBox5.Text = c
'商を計算
c = a / b
'商を表示
TextBox6.Text = c
End Sub
End Class
に戻しておきましょう。
後に浮動小数点型変数を導入して、こちらの場合の問題も解消する予定になっているからです。
今回の改良ですでにソフトは簡易計算ソフトになっているといえますが、
さらに、改良していろいろな場合が計算できるようにしましょう。
皆さん、上のようなForm1を作り、コーティングも考えてみましょう。
