Faça como milhares de estudantes: teste grátis o Passei Direto
Esse e outros conteúdos desbloqueados
16 milhões de materiais de várias disciplinas
Impressão de materiais
Agora você pode testar o
Passei Direto grátis
Prévia do material em texto
Sub letras()
Dim letra As String
letra = InputBox("Digite letra")
Do While letra <> "w" And letra <> "W"
MsgBox (letra)
letra = InputBox("Digite letra")
Loop
End Sub
Compartilhar