用Visual Basic设计输入三角形的三条边,整数若可以,计算并输出三角形的面积;若不可以构成三角形,提示重新输人数据。
时间: 2024-03-22 10:38:48 浏览: 14
好的,以下是 Visual Basic 代码实现:
```
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Double
If Not Double.TryParse(TextBox1.Text, a) OrElse Not Double.TryParse(TextBox2.Text, b) OrElse Not Double.TryParse(TextBox3.Text, c) Then
MessageBox.Show("请输入有效的数字!")
TextBox1.Focus()
TextBox1.SelectAll()
ElseIf a + b <= c OrElse a + c <= b OrElse b + c <= a Then
MessageBox.Show("输入的三条边不能构成一个三角形,请重新输入!")
TextBox1.Focus()
TextBox1.SelectAll()
Else
Dim s As Double = (a + b + c) / 2
Dim area As Double = Math.Sqrt(s * (s - a) * (s - b) * (s - c))
MessageBox.Show("三角形的面积为:" & area.ToString())
End If
End Sub
```
在这个程序中,我们使用 `TryParse()` 方法来检查用户输入是否是有效的数字。如果用户输入的任何一个数字无效,则显示一个消息框提示重新输入,并将第一个输入框设置为焦点。
如果用户输入的三条边不能构成一个三角形,则显示一个消息框提示重新输入,并将第一个输入框设置为焦点。
如果用户输入的三条边可以构成一个三角形,则计算三角形的面积并显示在消息框中。我们使用海伦公式来计算三角形的面积。首先,我们计算半周长 `s`,然后使用海伦公式计算面积。最后,我们在消息框中显示计算结果。
请注意,在计算三角形的面积时,我们使用了 `Double` 类型的变量 `a`、`b` 和 `c`,因为这些三角形的边长可能是浮点数。