Lista 4_VBA

Prévia do material em texto

Página 1 de 2 
 
 
 
 
 
 
01 O nome de uma variável é criado por um programador 
devendo seguir algumas regras, são exemplos de 
nomes válidos, EXCETO: 
 
(A) Nota1, Nota2, Nota3 
(B) Aluno, aluno1, alunos 
(C) tres, treze, 3_tres 
(D) Tipo_camisa, T_tenis, tamanho 
(E) Media, aprovado, reprovado 
 
02 Sendo A = 5, B = 3 e C = 7, análise as operações a 
seguir e marque a opção correta. 
(V é verdadeiro e F é falso) 
 
 1. A + B = C 
2. B + C < A 
3. C < A * B 
4. B + C = 2 * A 
5. C / B > A 
 
(A) F – F – V – V – F 
(B) V – F – V – V – F 
(C) F – F – V – V – V 
(D) F – V – V – V – F 
(E) F – V – F – V – F 
 
03 Observe as operações e assinale qual será o valor do X 
e do Y, respectivamente. 
 
 X = 3 * 2 + 5 / 2 - 3 ^ 2 + Sqr(4) 
Y = Sqr(9) - (5 / 2) + (3 Mod 1) 
 
(A) X = 2.5 e Y = 5 
(B) X = 1.5 e Y = 3 
(C) X = 2 e Y = 1.5 
(D) X = 1.5 e Y = 0.5 
(E) X = 1 e Y = 3 
 
04 Análise a expressão e marque qual será o valor de D. 
 
 A = 6 
B = 4 
C = 12 
D = (C / A) + B – (A Mod B) * (A / B) 
 
(A) D = 7 
(B) D = 13 
(C) D = 4 
(D) D = 22 
(E) D = 3 
 
 
 
 
 
 
 
05 Em Visual Basic, qual é o tipo que uma variável não 
declarada assume por padrão (default)? 
 
(A) Object 
(B) Private 
(C) Variant 
(D) Range 
(E) Nenhuma das alternativas acima 
 
06 Analise o programa e marque qual a sua saída se as 
entradas forem 62 e 32, respectivamente. 
 
 Sub Exercicio_06() 
 Dim A As Integer 
 Dim B As Integer 
 
 B = InputBox("Digite o 1º nr inteiro:") 
 A = InputBox("Digite o 2º nr inteiro:") 
 
 If A > B Then 
 B = (A + B) 
 End If 
 
 If (A < B) Then 
 A = (B / 2) 
 End If 
 
 MsgBox ??? 
 
End Sub 
 
(A) 62 
(B) 32 
(C) 31 
(D) 34 
(E) 93 
 
07 Escolha a condição que gera a saída 13. 
 
 Sub Exercicio_07() 
 Dim num1 As Integer 
 Dim num2 As Integer 
 
 num1 = 13 
 num2 = 22 
 
 If (?????) Then 
 MsgBox (num2) 
 Else 
 MsgBox (num1) 
 End If 
End Sub 
 
 
Disciplina: Programação em Microinformática – Exercício (04) 
FATEC – Faculdade de Tecnologia de Ribeirão Preto 
Nome: ________________________________________ Código: ______________ 
Página 2 de 2 
 
 
(A) (num1 > num2) Or (num2 < 20) 
(B) (num2 > num1) And (num2 < 25) 
(C) (num1 > num2) Or (num1 < 20) 
(D) (num1 = num2) Or (num2 < 25) 
(E) (num1 <> num2) And (num2 <> 20) 
 
08 Quais serão as saídas do programa a seguir se 
primeiro as entradas forem, respectivamente, 2, 3 e 5, e 
então o programa será executado novamente, mas com 
as entradas 10, 2 e 3. 
 
 Sub Exercicio_08() 
 Dim X As Integer 
 Dim Y As Integer 
 Dim Z As Integer 
 
 X = InputBox("Digite o 1º nr") 
 Y = InputBox("Digite o 2º nr") 
 Z = InputBox("Digite o 3º nr") 
 
 If ((X > Y) And (Y * Z < X)) Then 
 MsgBox (Z * Y) 
 Else 
 MsgBox (X + Z * Y) 
 End If 
End Sub 
 
(A) Primeira saída é 25 e a segunda é 22 
(B) Primeira saída é 17 e a segunda é 6 
(C) Primeira saída é 13 e a segunda é 18 
(D) Primeira saída é 17 e a segunda é 16 
(E) Primeira saída é 6 e a segunda é 17 
 
09 Quais serão as entradas do programa a seguir se a 
saída for 2. 
 
 Sub Exercicio_09() 
 Dim A As Integer 
 Dim B As Integer 
 Dim C As Integer 
 
 C = InputBox("Digite o 1º nr") 
 B = InputBox("Digite o 2º nr") 
 A = InputBox("Digite o 3º nr") 
 
 If ((C > B) Or (A * B > C)) Then 
 MsgBox (A) 
 Else 
 MsgBox (B + C) 
 End If 
End Sub 
 
(A) A=3, B=2, C=13 
(B) A=1, B=11, C=1 
(C) A=5, B=4, C=17 
(D) A=7, B=2, C=9 
(E) A=2, B=3, C=5 
 
 
10 Qual será à saída do programa se as entradas forem, 
respectivamente, 4, 7 e 4. 
 
 Sub Exercicio_10() 
 Dim A As Integer 
 Dim B As Integer 
 Dim C As Integer 
 
 A = InputBox("Digite o 1º nr") 
 B = InputBox("Digite o 2º nr") 
 C = InputBox("Digite o 3º nr") 
 
 If ((A <> 0) And (B <> 0) And (C <> 0)) Then 
 If ((A = B) And (B = C)) Then 
 MsgBox (A + C) 
 Else 
 If ((A = B) Or (A = C) Or (C = B)) Then 
 MsgBox (A + B) 
 Else 
 MsgBox (B - C) 
 End If 
 End If 
 Else 
 MsgBox (A + B + C) 
 End If 
End Sub 
 
(A) 3 
(B) 4 
(C) 7 
(D) 11 
(E) 15