Sub codpecas()

Dim cod, va_pec, qt_pec, va_tot As Integer

cod = InputBox("digite o codigo da peça")
va_pec = InputBox("digite o valor da peça")
qt_pec = InputBox("digite a quantidade de peças")

va_tot = Val(qt_pec) * Val(va_pec)

MsgBox ("o código da peça é: " & cod & " e o valor é: " & va_tot)


End Sub

Sub estomedi()

Dim est_med, qt_min, qt_max As Integer

qt_min = InputBox("digite a quantidade mínima")
qt_max = InputBox("digite a quantidade máxima")

est_med = (Val(qt_min) + Val(qt_max)) / 2

MsgBox ("o estoque médio é de: " & est_med)


End Sub
Sub estomedi()

Dim num1, num2, soma, multi As Integer

num1 = InputBox("digite o primeiro número")
num2 = InputBox("digite o segundo número")

soma = Val(num1) + Val(num2)
multi = Val(soma) * Val(num1)

MsgBox ("o resultado é: " & multi)

End Sub
Sub triang()

Dim area, lado As Integer

lado = InputBox("digite o tamanho do lado do triângulo")

area = Val(lado) ^ 2

MsgBox ("a área do triângulo é: " & area)


End Sub
Sub triaequila()

Dim base, altura, area As Integer

base = InputBox("digite o tamanho da base")
altura = InputBox("digite o tamanho da altura")

area = (Val(base) * Val(altura)) / 2

MsgBox ("A área do triângulo equilátero é: " & area)


End Sub

Sub areacirc()

Dim area, raio As Integer

raio = InputBox("digite o valor do raio")

area = 3.18 * (Val(raio) ^ 2)

MsgBox ("a área da circunferencia é: " & area)


End Sub
Sub medianum()

Dim media, num1, num2 As Integer

num1 = InputBox("digite o primeiro número")
num2 = InputBox("digite o segundo número")

media = (Val(num1) + Val(num2)) / 2

MsgBox ("a média dos números digitados é: " & media)


End Sub
Sub dolar()

Dim cot, va_dol, va_rea As Integer

cot = InputBox("digite a cotação do dolar")
va_dol = InputBox("digite o valor em dolares")

va_rea = Val(cot) * Val(va_dol)

MsgBox ("o valor em reais é: " & va_rea)


End Sub
Sub comissao()

Dim nome As String
Dim pre_uni, qt_ven, porc_com, porc_conv, conv1, res As Long

nome = InputBox("digite o nome da peça")
pre_uni = InputBox("digite o preço unitário")
qt_ven = InputBox("digite quantas peças foram vendidas")
porc_com = InputBox("digite a porcentagem de comissão")

porc_conv = Val(porc_com) / 100
conv1 = Val(porc_conv) + Val(pre_uni)
res = Val(conv1) * Val(qt_ven)

MsgBox ("o nome da peça vendida é: " & nome & "e a comissão é de: " & res)

End Sub