-
Notifications
You must be signed in to change notification settings - Fork 0
/
Vbs 1.txt
63 lines (57 loc) · 1.3 KB
/
Vbs 1.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
'No pude ponerlo en la extensión .vbs debido a que el teams ponía que era insegurada y no me permitío subir el archivo'
'Triangulo'
MsgBox("Triangulo")
lado1 = 0
lado2 = 0
lado3 = 0
base = 0
altu = 0
peri = 0
area = 0
lado1=inputbox("Distancia 1")
lado2=inputbox("Distancia 2")
lado3=inputbox("Distancia 3")
base=inputbox("Distancia de la base")
altu=inputbox("Distancia de la altura")
area= (altu*base)/2
peri = (0+lado1+lado2+lado3)
MsgBox("El perímetro es: "&peri)
MsgBox("El área es de: "&area)
'Paralelogramo'
MsgBox("Paralelogramo")
lado1=0
lado2=0
altu=0
peri=0
area=0
base=0
lado1=inputbox("Distancia corta :")
lado2=inputbox("Distancia larga :")
base=inputbox("Distancia de la base :")
altu=inputbox("Distancia de la altura :")
peri= 2*(0+lado1+lado2)
area= altu*base
MsgBox("El perímetro es: "&peri)
MsgBox("El área es de: "&area)
'Cuadrado'
MsgBox("Cuadrado")
lado=0
peri=0
area=0
lado=inputbox("Longitud del lado :")
peri= 0+4+lado
area= lado*lado
MsgBox("El perímetro es: "&peri)
MsgBox("El área es de: "&area)
'Rectangulo'
MsgBox("Rectangulo")
lado1 = 0
lado2 = 0
peri = 0
area = 0
lado1=inputbox("Lado 1 :")
lado2=inputbox("Lado 2 :")
peri= 2*(0+lado1+lado2)
area= lado1*lado2
MsgBox("El perímetro es: "&peri)
MsgBox("El área es de: "&area)