给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。

  从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形的三条边中的两边之和小于或等于第三边，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，刚输出此三角形的的面积。
  解：设三角形的三条边分别为a,b,c，则三角形的面积t的计算公式为：

以下是此题的【VB源代码】
Private Sub Form_click()
    Dim a, b, c, s, t As Single
    a = InputBox("请输入A边的边长")
    a = Val(a)
    If a < 0 Then End
    b = InputBox("请输入B边的边长")
    b = Val(b)
    c = InputBox("请输入C边的边长")
    c = Val(c)
    If a + b <= c Or a + c <= b Or b + c <= a Then
        MsgBox ("您输入的三条边长不能构成三角形，请重新输入！")
        Exit Sub
    End If
    s = (a + b + c) / 2
    t = Sqr(s * (s - a) * (s - b) * (s - c))
    Print "三角形的面积为："; t
 End Sub

运行程序：
当输入1，2，3时，提示：不能构成三角形，要求重新输入。
当输入8，7，6时，则输出结果为：三角形的面积为：20.33316
如果在第一个输入对话框中输入－1或小于0的值，就结束程序。

**********************
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.3.html