p1

Sub figuras ()
Dim a1 , v1 ,h , b, a , apt , radio
Pi as constant= 3.1416

Msgbox (bienvenido ) , vb , "modulo1"

If cubo then
B=inputbox (introduce valor )
Msgbox formula ďe area y volume de cubo
Else
If esfera then
R= inputbox (dame valor)
A1 = FORMULA essfera

En sub

sub conversor


Longitud Ben If