math1 = Import["http://www.shiroitsubasa.com/shiroitsubasa/inuyasha_wall5_1024.jpg"]; 
math2 = Import["http://www.imaginethatstudios.com/twitter/wp-content/uploads/2009/07/Switzerland-flag.jpg"];
math3 = Import["http://upload.wikimedia.org/wikipedia/commons/4/4c/Berliner-Pfannkuchen.jpg"];
math4 = Import["http://misslink.org/sound/yodel.wav"];

Manipulate[If[r == 1, S = Speak["Ish bin Yasha"]; G = math1];
 If[r == 2, S = Speak["Ish leebeh Shveiz"]; G = math2];
 If[r == 3, S = Speak["Ish haabe djzwei Berliner"]; G = math3];
 If[r == 4, S = Speak["Ish moosh gahen"]; G = math4];
 Show[G], {{r, 1, "Die Toene der Mathematik:"}, {1 -> "1", 2 -> "2", 3 -> "3", 4 -> "4"}}]