Const PI = 3.14
Private Function VCilindro(x As Single, z As Single) As Single
VCilindro = PI * x ^ 2 * z
End Function
Private Function ACirculo(x As Single) As Single
ACirculo = PI * x ^ 2
End Function
Private Function VCubo(x As Single) As Single
VCubo = x ^ 3
End Function
Private Function AEsfera(x As Single) As Single
AEsfera = 4 * PI * x ^ 2
End Function
Private Function VEsfera(x As Single) As Single
VEsfera = 4 / 3 * PI * x ^ 3
End Function
Private Function AQuadrado(x As Single) As Single
AQuadrado = x * x
End Function
Private Function PQuadrado(x As Single) As Single
PQuadrado = x * x * x * x
End Function
Private Function ARectangulo(x As Single, z As Single) As Single
ARectangulo = x * z
End Function
Private Function PRectangulo(x As Single, z As Single) As Single
PRectangulo = 2 * (x + z)
End Function
Private Function ATriangulo(x As Single, z As Single) As Single
ATriangulo = x * z / 2
End Function
Private Function PTriangulo(x As Single) As Single
PTriangulo = x + x + x
End Function
Private Sub Autor_Click()
MsgBox "Programa protagonizado por João Florindo", vbOKOnly, "Exercício - Autor"
End Sub
Private Sub Cilindro_Click()
Dim r As Single, h As Single, v As Single
Do
r = Val(InputBox("Digite o valor do raio", "Volume do Cilindro"))
Loop While r <= 0
Do
h = Val(InputBox("Digite o valor da altura", "Volume do Cilindro"))
Loop While h <= 0
v = VCilindro(r, h)
MsgBox "O volume do cilindro é " & v & "m2", 64, " Volume do Cilindro"
End Sub
Private Sub Circulo_Click()
Dim r As Single, a As Single
Do
r = Val(InputBox("Digite o valor do raio", "Área do Círculo"))
Loop While r <= 0
a = ACirculo(r)
MsgBox "A área do círculo é " & a & "m2", 64, " Área do Círculo"
End Sub
Private Sub Cubo_Click()
Dim v As Single, a As Single
Do
a = Val(InputBox("Digite o valor da aresta", "Volume do Cubo"))
Loop While a <= 0
v = VCubo(a)
MsgBox "O volume do cubo é " & v & "m2", 64, " Volume do Cubo"
End Sub
Private Sub Esfera_Click()
Dim a As Single, r As Single
Do
r = Val(InputBox("Digite o valor da esfera", "Área da Esfera"))
Loop While r <= 0
a = AEsfera(r)
MsgBox "A área da esfera é " & a & "m2", 64, " Área da Esfera"
End Sub
Private Sub Esfera2_Click()
Dim v As Single, r As Single
Do
r = Val(InputBox("Digite o valor da esfera", "Volume da Esfera"))
Loop While r <= 0
v = VEsfera(r)
MsgBox "O volume da esfera é " & v & "m2", 64, " Volume da Esfera"
End Sub
Private Sub Quadrado_click()
Dim a As Single, l As Single
Do
l = Val(InputBox("Digite o valor do lado", "Área do Quadrado"))
Loop While l <= 0
a = AQuadrado(l)
MsgBox "A área do quadrado é " & a & "m2", 64, " Área do Quadrado"
End Sub
Private Sub Quadrado2_Click()
Dim p As Single, l As Single
Do
l = Val(InputBox("Digite o valor dos lados", "Perímetro do Quadrado"))
Loop While l <= 0
p = PQuadrado(l)
MsgBox "O perímetro do quadrado é " & p & "m2", 64, " Perímetro do Quadrado"
End Sub
Private Sub Rectangulo_Click()
Dim a As Single, b As Single, h As Single
Do
b = Val(InputBox("Digite o valor da base", "Área do Rectângulo"))
Loop While b <= 0
Do
h = Val(InputBox("Digite o valor da altura", "Área do Rectângulo"))
Loop While h <= 0
a = ARectangulo(b, h)
MsgBox "A área do rectângulo é " & a & "m2", 64, " Área do Rectângulo"
End Sub
Private Sub Rectangulo2_Click()
Dim p As Single, b As Single, h As Single
Do
b = Val(InputBox("Digite o valor da base", "Perímetro do Rectângulo"))
Loop While b <= 0
Do
h = Val(InputBox("Digite o valor da altura", "Perímetro do Rectângulo"))
Loop While h <= 0
p = PRectangulo(b, h)
MsgBox "O perímetro do rectângulo é " & p & "m2", 64, " Perímetro do Rectângulo"
End Sub
Private Sub Sair_Click()
If MsgBox("Deseja mesmo sair?", vbYesNo + vbQuestion, " Exercício - Confirmação") = vbYes Then End
End Sub
Private Sub Triangulo_Click()
Dim a As Single, b As Single, h As Single
Do
b = Val(InputBox("Digite o valor da base", "Área do Triângulo"))
Loop While b <= 0
Do
h = Val(InputBox("Digite o valor da altura", "Área do Triângulo"))
Loop While h <= 0
a = ATriangulo(b, h)
MsgBox "A área do triângulo é " & a & "m2", 64, " Área do Triângulo"
End Sub
Private Sub Triangulo2_Click()
Dim p As Single, l As Single
Do
l = Val(InputBox("Digite o valor dos lados", "Perímetro do Triângulo"))
Loop While l <= 0
p = PTriangulo(l)
MsgBox "O perímetro do triângulo é " & p & "m2", 64, " Perímetro do Triângulo"
End Sub
