Aula7 - Programação (VBA)

Prévia do material em texto

Introdução à Computação
Para Ciências Humanas
10 semestre de 2017
Renata Wassermann
renata@ime.usp.br
Exemplo 1
A reitoria está preocupada com as notas de seus alunos na 
disciplina MAC113. Para saber se demitirá o professor, a 
universidade pediu para verificar se a turma de MAC113 
atingiu o limite de repetência vexaminosa, LRV, isto é, se 
100% da turma obteve nota abaixo de 7 e 50% da turma 
obteve nota abaixo de 3.
Faça uma macro que verifica se o LRV foi atingido em uma 
determinada turma de alunos. Sua macro deve ler a 
seqüência de valores das médias dos alunos da turma 
contidos na coluna B a partir da 2 linha da planilha. Assuma 
que o número de alunos está na célula C1. A macro deve 
exibir, na célula C2, “Demite professor” ou “Mantém professor”, 
conforme o LRV tenha ou não sido atingido.
Exemplo 2 
Escreva um programa que lê uma 
sequência de inteiros positivos 
terminada por um negativo na 
coluna A e verifica se a sequência 
está em ordem (estritamente) 
crescente.
Variáveis Booleanas 
Dim nome As Boolean
● Variável nome pode ter apenas dois 
valores, True ou False.
● Pode ser usada no lugar de uma 
condição.
Variáveis Booleanas 
Sub Teste()
   Dim positivo As Boolean
   Dim numero As Integer
   positivo = True
   numero = CInt(InputBox("Digite um numero inteiro"))
   If numero <= 0 Then
       positivo = False
   End If
   If positivo Then
      MsgBox ("Positivo!")
   Else: MsgBox ("Errado...")
   End If
End Sub
Exemplo 2 
Simule seu programa com as 
seguintes sequências:
● 2,3,4,5,-1
● 3,2,1,4,-1
● 1,2,4,3,-1
Exemplo 3
 
Escreva o seu número USP na primeira linha da 
planilha, um algarismo por célula. Mostre como 
fica a planilha após a execução do seguinte 
programa:
 
Sub Simula()
  Dim Col As Integer
  Dim Guarda As Integer
  Col = 1
  While Col < 7
    Guarda = Cells(1, Col) + Cells(1, Col + 1)
    If Guarda > 9 Then
       Guarda = Guarda ­ 10
    End If
    Cells(2, Col) = Guarda
    Col = Col + 1
  Wend
  Col = 6
  While Col > 1
    Cells(3, 7 ­ Col) = Cells(2, Col)
    Col = Col ­ 1
  Wend
End Sub
	Slide 1
	Slide 2
	Slide 3
	Slide 4
	Slide 5
	Slide 6
	Slide 7
	Slide 8