Programación de juicio triangular

Subcomando privado 1_Click();

A = Val(InputBox("Ingrese la longitud de a"));

B = Val(InputBox("Ingrese la longitud de b"));

C = Val(InputBox("Ingrese la longitud de c"));

Si a b gt; y a c gt ; b y b c gt; a entonces

p = (a b c)/2

s = Sqr(p *(p-a)*(p-b)*(p-c ));

Imprimir "área": ​​​​s

En caso contrario

Imprimir "no es un triángulo"; Si;

Duansu;

Datos extendidos

Formato de código VB:

1.

2. Se pueden escribir varias declaraciones en la misma línea, separadas por dos puntos ":".

3. Una declaración se puede escribir en la misma línea o en varias líneas. El símbolo de continuación es un espacio con un guión bajo "_".

La declaración del comentario comienza con Rem, o puedes usar comillas simples "". El contenido de este último comentario puede aparecer directamente después de la declaración correspondiente.

VB6 agregó "Anotación de bloque/Anotación de bloque": en el modo de código, haga clic derecho en la barra de herramientas y seleccione el elemento "Editar" en el menú emergente.

Reglas de denominación para variables y constantes: números, letras y guiones bajos; letras como primer carácter; no se pueden utilizar palabras clave VB ni constantes del sistema como nombres.