示例1：使用海伦公式计算面积
```vb
Private Sub Command1_Click（）
Dim a, b, c, p, s As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
c = Val（Text3.Text）
p = （a + b + c） / 2
If a + b > c And a + c > b And b + c > a And a > 0 And b > 0 And c > 0 Then
s = Sqr（p * （p - a） * （p - b） * （p - c））
Text4.Text = s
Else
Text4.Text = "输入边长不能组成三角形!"
End If
End Sub
```
示例2：使用输入框输入边长并计算面积
```vb
Private Sub Form_Load（）
Dim a As Single, b As Single, c As Single, p As Single, s As Single
Do
a = Val（InputBox（"请输入三角形第1条边长"））
If a = -1 Then Exit Do
b = Val（InputBox（"请输入三角形第2条边长"））
If b = -1 Then Exit Do
c = Val（InputBox（"请输入三角形第3条边长"））
If c = -1 Then Exit Do
p = （a + b + c） / 2
If a >= p Or b >= p Or c >= p Then
MsgBox "不能构成三角形"
Else
s = Sqr（p * （p - a） * （p - b） * （p - c））
MsgBox "面积为 " & s
End If
Loop
End Sub
```
示例3：使用余弦定理计算面积
```vb
Private Sub Command1_Click（）
Dim a, b, c, s As Double
a = CDbl（Text1.Text）
b = CDbl（Text2.Text）
c = CDbl（Text3.Text）
If a <= 0 Or b <= 0 Or c <= 0 Then
MsgBox "所有边长都必须大于0!"
Exit Sub
End If
If （a + b > c） And （a + c > b） And （b + c > a） Then
s = （a * b * c） / （4 * Sqr（a * a + b * b + c * c - a * a - b * b - c * c））
Text4.Text = s
Else
Text4.Text = "输入边长不能组成三角形!"
End If
End Sub
```
这些代码示例分别使用了海伦公式和余弦定理来计算三角形的面积，并包含了输入验证以确保输入的边长可以构成一个有效的三角形。你可以根据自己的需求选择合适的代码示例。
