วันอาทิตย์ที่ 23 มกราคม พ.ศ. 2554

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





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