Mestre

1. Um professor de programação registrou as notas dos seus 25 alunos numa coluna da planilha do Excel. Para calcular a média da turma, ele escreveu um programa em VBA. Qual das alternativas abaixo apresenta a melhor réplica desse algoritmo?
c)Sub CalcularMedia() Dim soma, media As Double soma = 0 For linha = 1 To 25 Step 1 soma = soma + Cells(linha, 1) Next linha media = soma / 25 MsgBox (media)
End Sub
2.A dona de um mercadinho guardou, em duas colunas do Excel, os valores gastos para comprar e os valores ganhos ao vender 10 produtos de seu estoque em um mês. Agora ela quer saber qual foi seu lucro total nesse mês. Qual dos algoritmos abaixo resolve esse problema?
a)Sub CalcularLucro() Dim lucro As Double

lucro = 0 For linha = 1 To 10 lucro = lucro + (Cells(linha, 1) - Cells(linha, 2)) Next linha MsgBox (lucro)
End Sub
3. Um colega seu fez o seguinte programa em VBA:
Sub Programa()
Dim numero, contador As Integer
Dim resultado As Boolean resultado = False contador = 2 numero = InputBox("Digite um número")
Do While contador < numero
If numero Mod contador = 0 Then resultado = True
Exit Do
End If contador = contador + 1
Loop
If resultado = True Then
MsgBox ("mensagem 1")
Else
MsgBox ("mensagem 2")
End If
End Sub
Quais devem ser os textos das mensagens 1 e 2, respectivamente?
E) "O número não é primo" e "O número é primo".
4. Execute o algoritmo abaixo para os seguintes valores: 0, 5 e 7.
Sub programa()
Dim first, second, sum, fib, n As Integer n = InputBox("Digite um número") first = 0 second = 1 sum = 0
If n = 0 Then fib = first
ElseIf n = 1 Then fib = second
Else
For i = 2 To n sum = first + second first = second second = sum
Next i fib = sum
End If
MsgBox (fib)
End Sub
Qual alternativa contém os valores finais corretos para a variável fib?
A)0, 5 e 13
5. O algoritmo abaixo pede números ao usuário, até que ele digite 0. Para cada número