Nota: As informações utilizadas na elaboração dessa série de aulas sobre programação Basic para Open Office - Calc, foram obtidas de fontes primárias, como manual de programação Basic e o editor de ajuda do Open Office Basic e sintetizadas com o objetivo de facilitar a compreensão dos elementos básicos da linguagem de programação basic e sua utilização na criação de macros e funções. Vale lembrar que o ambiente de desenvolvimento abordado aqui se estende aos demais softwares do pacote Open Office, além de haver compatibilidade com o Office do Windows (Professor Roni Márcio Fais, 2014 – www.rmfais.com).

Function imc(c1 As double, c2 As Double)

calculo = c1 / (c2 * c2)

if(calculo < 17 ) Then

imc = "magérrimo"

End If

if(calculo >= 17 and calculo <= 18) Then

imc = "magro"

End if

if(calculo > 18 and calculo < 24) then

imc = "normal"

End if

if(calculo >= 24 and calculo < 30) then

imc = "sobrepeso"

End if

if(calculo >= 30 and calculo < 35) then

imc = "obeso"

End if

if(calculo >= 35 and calculo < 40) then

imc = "muito obeso"

End if

if(calculo >= 40) then

imc = "obesidade mórbida"

End If

End Function

Sub tabuada()

Dim x As Integer

Dim numero As integer

numero = inputbox("número da tabuada")

For x = 0 To 10 Step 1

resultado = resultado & numero & " X " & x & " = " & numero * x & chr(13)

Next

msgbox(resultado)

End sub

function tabuada(numero as integer)

for x = 1 to 10 step 1

resultado = resultado & numero & " x " & x & " = " & numero * x & chr(13)

next

msgbox(resultado)

end function

sub jurocomposto()

dim capital as double

dim taxa as double

dim parcelas as double

dim juros as double

dim parcela as string

capital = inputbox("capital")

taxa = inputbox("taxa")

parcelas = inputbox("parcelas")

for x=1 to parcelas step 1

juros = capital * (taxa/100)

capital = capital + juros

parcela = parcela & juros & chr(13)

next

msgbox("montante = " & capital)

msgbox(parcela)

end sub