trablho
Sub circulo()
Dim raio As Single
Dim superficie As Single
Const pi As Single = 3.14 raio = InputBox("Qual o raio do circulo?") superficie = pi * raio ^ 2
MsgBox " a superficie do circulo é " & superficie
End Sub
Rectangulo
Sub rectangulo()
Dim L1 As Single
Dim C1 As Single
Dim area As Single
L1 = InputBox("Qual a largura do rectangulo?")
C1 = InputBox("Qual o comprimento do resctangulo") area = L1 * C1
MsgBox " A Area do rectangulo é " & area
End Sub
Media
Sub media()
Dim N1 As Integer
Dim N2 As Integer
Dim media As Single
N1 = InputBox("Qual numero 1?")
N2 = InputBox("Qual numero 2?") media = (N1 + N2) / 2
MsgBox "a media dos dois numeros inteiros é" & media
End Sub
Media 3
Sub Media3()
Dim N1 As Integer
Dim N2 As Integer
Dim N3 As Integer
Dim Media As Single
Dim Resultado As Single
N1 = InputBox("Qual o numero 1?")
N2 = InputBox("Qual o numero 2?")
N3 = InputBox("qual o numero 3?")
Media = (N1 + N2 + N3) / 3
Resultado = (Media * 10) / 2
MsgBox " O resultado é " & Resultado
End Sub
Somatório
Sub sumatorio()
Dim N1 As Integer
Dim N2 As Integer
Dim N3 As Integer
Dim N4 As Integer
Dim soma As Integer
Dim subtração As Integer
Dim multiplicação As Integer
Dim divisão As Single
N1 = InputBox("Qual o numero 1?")
N2 = InputBox("qual o numero 2?")
N3 = InputBox("Qual o numero 3?")
N4 = InputBox("Qual o numero 4?") soma = (N1 + N2 + N3 + N4) subtração = (N1 - N2 - N3 - N4) multiplicação = (N1 * N2 * N3 * N4) divisão = (N1 / N2 / N3 / N4)
MsgBox " O resultado da soma é " & soma
MsgBox " O resultado da subtração é " & subtração
MsgBox " O resultado da multiplicação é " & multiplicação
MsgBox " o resultado da divisão é " & divisão
End Sub
Par ou impar
Sub par_impar()
Dim N1 As Integer
N = InputBox("Qual N1") resto = N Mod 2
If resto = 0 Then
MsgBox " o numero é par "
Else
MsgBox "o numero é impar "
End If
End Sub
Somo subtracção e multiplicação
Sub soma_subtraccao_multiplicacao()