能用vb的知识回答: . 编写程序:7. 自行设计一个窗体，在文本框中输入三角形的三条边长

Question

a,b,c如果能构成三角形，求该三角形的周长和面积，并将计算结果输出在标签或文本框中；否则在信息框输出“不能构成三角形”提示信息。

Answer 1

VB.net:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c, p As Integer
        a = Integer.Parse(TextBox1.Text)
        b = Integer.Parse(TextBox2.Text)
        c = Integer.Parse(TextBox3.Text)
        If a + b > c And a + c > b And b + c > a And Math.Abs(a - b) < c And Math.Abs(a - c) < b And Math.Abs(b - c) < a Then
            p = (a + b + c) / 2
            Label1.Text = "S = " & Math.Sqrt(p * (p - a) * (p - b) * (p - c)) & vbCrLf & "C = " & (2 * p)
        Else
            MsgBox("不能构成三角形", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "错误")
        End If
    End Sub
End Class

追问

请详细点吧 基本是不懂得vb

追答

这是VB.net的代码，如果你用的是VB6是不行的

追问

我用的就是vb6

追答

抱歉 不记得怎么用了 两三年前用的vb6

追问

还是很很
谢谢你