I use this function to generate a graphic and a PopupMenu:
Labeled[listar1 = {PopupMenu[Dynamic[r1], {"Sen","Cos","Tan"}]};
Plot[Sin[x],{x, -2 Pi, 2 Pi}, PlotStyle->Red,PlotRange->{-4,4},ImageSize->Large],
Column[Flatten[{Text["Which function?"],listar1}]],Right];
After a user has answer the question, how can I check the value of the PopupMenu and display a green/red rectangular or a phrase to indicate him that he is right/wrong?