Private Sub Command1_Click () DIM A, B, C AS INTEGERDIM S AS LONG
A = CINT ("InputBox")) B = CINT (INPUTBOX ("InputBox)) C = CINT (INPUTBOX (" INPUTBOX)) IF A B> C OR A C> B or B C> a THEN S = (A B C) / 2 msgbox "three sides:" CSTR (a) "," CSTR (b) "," CSTR (C) "triangular area is:" CSTR (SQR (s * (s - a) * (s - b) * (s - c))) ELSE MSGBOX must 2 Greater than the third side ", Vbokonly," Introduction Error "end ifend sub
