Ficha nº6

1.

Código:

Private Sub Command1_Click()

    

    Dim num As Long, mult As Long, i As Long, soma As Long

    

    num = Val(Text1.Text)

    mult = Val(Text2.Text)

    soma = 0

    i = 0

    

    Do Until i > num

        soma = soma + (i * mult)

        i = i + 1

    Loop

    Label4.Caption = soma

    

End Sub

Private Sub Command2_Click()

    End

    

End Sub

2.

Código:

Private Sub Command1_Click()
    Dim num As Integer, soma As Integer, i As Integer, impar As Integer
    impar = 1
    i = 1
    soma = 0
    
    Do
        num = Val(InputBox("Quantos números ímpares quer somar?", "Entrada de dados"))
        If num <= 0 Then
            MsgBox "O valor introduzido é inválido", vbInformation, "Aviso"
        End If
    Loop While (num <= 0)
    
    Do While i <= num
        soma = soma + impar
        impar = impar + 2
        i = i + 1
    Loop
    
    MsgBox "A soma dos " & num & " primeiros números ímpares é " & soma, vbInformation + vbOKOnly, "Saída"
        
End Sub

3.

Código:

Private Sub Command1_Click()

    

    Dim idade As Integer, media As Single, cont As Integer, soma As Integer, inf14 As Integer, sup14menor18 As Integer, sup18 As Integer, maioridade As Integer

    

    inf14 = 0

    sup14menor18 = 0

    sup18 = 0

    maioridade = 0

    soma = 0

    cont = 0

    

    MsgBox "Introduzir o valor 0 quando quiser acabar de introduzir dados", vbInformation, "Aviso"

    Do

        Do

            idade = Val(InputBox("Qual é a idade do aluno?", "Entrada de dados"))

            If idade < 0 Then

                MsgBox "A idade introduzida é inválida", vbCritical, "Aviso"

            End If

        Loop While (idade < 0)

        soma = soma + idade

        If idade <> 0 Then

            cont = cont + 1

        End If

        If idade < 14 And idade <> 0 Then

            inf14 = inf14 + 1

        ElseIf idade >= 14 And idade < 18 Then

            sup14menor18 = sup14menor18 + 1

        ElseIf idade >= 18 Then

            sup18 = sup18 + 1

        End If

        If idade > maioridade Then

            maioridade = idade

        End If

    Loop Until (idade = 0)

    

    media = Round(soma / cont)

    

    MsgBox "A média das idades que introduziu é " & media, vbInformation, "Saída"

    MsgBox "O número de alunos com idade inferior a 14 anos: " & inf14, vbInformation, "Saída"

    MsgBox "O número de alunos com idade superior ou igual a 14 e menor que 18 anos: " & sup14menor18, vbInformation, "Saída"

    MsgBox "O número de alunos com idade superior ou igual a 18 anos: " & sup18, vbInformation, "Saída"

    MsgBox "A maior idade registada: " & maioridade, vbInformation, "Saída"

    MsgBox "Dados recolhidos: " & cont, vbInformation, "Saída"

End Sub