algoritimo

1) Crie uma função em EXCEL-VBA que receba como parâmetros um valor em Dólares (US$) e a cotação do Dólar em Reais. A função retornará o valor convertido em Reais (R$).

Function convertdolar(dolares, cotaçao)

convertdolar = dolares * cotaçao

End Function
2) Crie uma função em EXCEL-VBA que receba como parâmetros dois valores e retorne o maior valor.

Function MaiorValor(Valor1, Valor2)
If Valor1 >= Valor2 Then
MaiorValor = Valor1
Else
MaiorValor = Valor2
End If
End Function

3) Crie uma função em EXCEL-VBA que receba como parâmetros dois valores e retorne o menor valor.

Function MenorValor(Valor1, Valor2)
If Valor1 INTERVALO_INFERIOR And VALOR = 0 Then numero = "maior que zero"
Else
numero = "menor que zero"
End If
End Function

6) Crie uma função em EXCEL-VBA que receba como parâmetros dois valores e retorne uma das seguintes mensagens: "OS VALORES SÃO IGUAIS" ou "OS VALORES SÃO DIFERENTES"

Function iguais_diferentes(a, b)
If a = b Then
Iguais_diferentes = "os valores sao iguais "
Else
Iguais_diferentes = "os valores sao diferentes"
End If
End Function

7) Crie uma função em EXCEL-VBA que receba como parâmetros o PESO e a ALTURA de uma pessoa, calcule e retorne o IMC (Índice de Massa Corporal), que é calculado segundo a fórmula:
IMC = peso / (altura * altura)

Function imc(peso, altura)

imc = peso / (altura * altura)

End Function

8) Crie uma função em EXCEL-VBA que receba como parâmetro um número e retorne uma das seguintes mensagens: "O NÚMERO É PAR" ou "O NÚMERO É ÍMPAR"

Function teste_numeros(numero)
If (numero And 1) = 0 Then teste_numeros = "O NÚMERO É PAR"
Else
teste_numeros = "O NÚMERO É IMPAR"
End If
End Function

9) Crie uma função em EXCEL-VBA que receba como parâmetro o RAIO de uma esfera e calcule o VOLUME da esfera. Utilize a seguinte fórmula para determinar o volume: VOLUME = (4/3) * PI * RAIO^3

Function volumesfera(a) volumesfera = (4 / 3) * 3.141592654 * a ^ 3
End Function