Em VBScript...

Questão de Programação da banca ESAF aplicada no concurso CGU (2012). Confira a resolução completa abaixo:

Em VBScript