プログラミング基礎

デバッグの練習

練習以下のフォームとプログラムを試しなさい。

Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim x, y, z x = Val(TextBox1.Text) y = Val(TextBox2.Text) z = x + x + x + x + x + x + x + x + x + x If (z - y) = 0 Then Label1.Text = x & "の10倍=" & y Else Label1.Text = x & "の10倍<>" & y End If End Sub

練習
以下のフォームとプログラムを試しなさい。


    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, z
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        z = x + x + x + x + x + x + x + x + x + x
        If (z - y) = 0 Then
            Label1.Text = x & "の10倍=" & y
        Else
            Label1.Text = x & "の10倍<>" & y
        End If
    End Sub

以下の左の列のように入力すると、右の結果になることを確認しましょう。

TextBox1	TextBox2	Label1
1	10	1の10倍=10
0.25	2.5	0.25の10倍=2.5
1	9.98	1の10倍<>9.98

以下の入力を試して、結果を確認しましょう。

TextBox1	TextBox2	Label1
0.1	1
0.5	5
0.6	6

なぜ結果がおかしくなるかを、デバッグを使って調査しましょう。