VB:编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示:三角形面积的计算公式
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 04:44:48
![VB:编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示:三角形面积的计算公式](/uploads/image/z/1969402-58-2.jpg?t=VB%EF%BC%9A%E7%BC%96%E7%A8%8B%E8%AE%A1%E7%AE%97%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF%E7%BC%96%E7%A8%8B%E8%AE%A1%E7%AE%97%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF.%E8%A6%81%E6%B1%82%E9%80%9A%E8%BF%87%E8%BE%93%E5%85%A5%E6%A1%86%E8%BE%93%E5%85%A5%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E4%B8%89%E4%B8%AA%E8%BE%B9%E9%95%BFa%E3%80%81b%E3%80%81c%2C%E5%BD%93%E5%8D%95%E5%87%BB%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%E2%80%9C%E8%AE%A1%E7%AE%97%E2%80%9D%E6%97%B6%2C%E8%AE%A1%E7%AE%97%E5%B9%B6%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86%E4%B8%AD%E6%98%BE%E7%A4%BA%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E9%9D%A2%E7%A7%AFarea.%E6%8F%90%E7%A4%BA%EF%BC%9A%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF%E7%9A%84%E8%AE%A1%E7%AE%97%E5%85%AC%E5%BC%8F)
VB:编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示:三角形面积的计算公式
VB:编程计算三角形面积
编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.
提示:三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c))
其中,s = (a + b + c) / 2
注意:三角形的三条边是要判断是否符合形成一个三角形!
VB:编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示:三角形面积的计算公式
Private Sub Form_Load()
Do
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(InputBox("请输入三角形第1条边长"))
b = Val(InputBox("请输入三角形第2条边长"))
c = Val(InputBox("请输入三角形第3条边长"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能构成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面积为" & area
End If
Loop
End
End Sub