module1.bas

vb电子书籍

Attribute VB_Name = "Module1"
  Public Function area(x!, y!, z!) As Single
  Dim c!, d!
  c = 1 / 2 * (x + y + z)
  d = c * (c - x) * (c - y) * (c - z)
  If d < 0 Then
    MsgBox ("负数不能开平方")
    area = 0
    Exit Function
  End If
  are = Sqr(d)
  End Function