สอบเก็บคะแนนการเขียนโปรแกรม

Public Class Form1
Dim high As Integer
Dim base As Integer
Dim total As Double
--------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
base = TextBox1.Text
high = TextBox2.Text
total = 0.5 * base * high
MsgBox("พื้นที่สามเหลี่ยมมีค่าเท่ากับ" & total)
End Sub
--------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

End Class