2c00-0917-2三角形面積

配合課本p.69

Public Class Form1

    Dim a, b, c As Single

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = (a * b) / 2

        Label5.Text = c

    End Sub

End Class