已知三点坐标求三角形面积



  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim X1 As Double = Me.TextBox1.Text
        Dim Y1 As Double = Me.TextBox2.Text
        Dim X2 As Double = Me.TextBox3.Text
        Dim Y2 As Double = Me.TextBox4.Text
        Dim X3 As Double = Me.TextBox5.Text
        Dim Y3 As Double = Me.TextBox6.Text
        Dim s As Double = 0.5 * (X1 * Y2 - X1 * Y3 + X2 * Y3 - X2 * Y1 + X3 * Y1 - X3 * Y2)
        MsgBox(s)
    End Sub

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*7=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情