Visual Basic para Aplicaciones - Necesito ayuda con unos algoritmos de Pseint

Necesito ayuda con un taller de algoritmos, y queria saber si alguien tiene las respuestas en alguna pagina por favor

https://drive.google.com/file/d/1BZ2pk8m1BAWcVLVXeUblfsWjD0SQZo2j/view