\documentclass[a4paper]{article}

\usepackage[utf8x]{inputenc}    
\usepackage[T1]{fontenc}
\usepackage{fp}
\usepackage[francais,bloc]{automultiplechoice}    

\ExplSyntaxOn
\DeclareExpandableDocumentCommand{\booltest}{mmm}
 {
  \bool_if:nTF { #1 } { #2 } { #3 }
 }
\DeclareExpandableDocumentCommand{\fpcompare}{m}
 {
  \fp_compare_p:n { #1 }
 }
\ExplSyntaxOff


\newcounter{sortie}
\begin{document}
\FPseed=12
\exemplaire{10 }{    
\setcounter{sortie}{0}
%%% debut de l'en-tête des copies :    

\noindent{\bf QCM  \hfill TEST}

\vspace*{.5cm}
\begin{minipage}{.4\linewidth}
\centering\large\bf Test\\ Examen du 01/01/2008\end{minipage}
\champnom{\fbox{    
                \begin{minipage}{.5\linewidth}
                  Nom et prénom :

                  \vspace*{.5cm}\dotfill
                  \vspace*{1mm}
                \end{minipage}
         }}

\begin{center}\em
Durée : 10 minutes.

  Aucun document n'est autorisé.
  L'usage de la calculatrice est interdit.

  Les questions faisant apparaître le symbole \multiSymbole{} peuvent
  présenter zéro, une ou plusieurs bonnes réponses. Les autres ont
  une unique bonne réponse.

  Des points négatifs pourront être affectés à de \emph{très
    mauvaises} réponses.
\end{center}
\vspace{1ex}

%%% fin de l'en-tête





%\def\sone{55.3}
\FPeval\VQa{round(50+3*random,2)}
\FPeval\VQb{round(50+3*random,2)}
\FPeval\VQc{round(50+3*random,2)}
\FPeval\VQd{round(50+3*random,2)}
\FPeval\VQe{round(50+3*random,2)}



\whiledo{\value{sortie}=0}{%
\booltest{%
% on compare VQa aux autres valeurs
\fpcompare{\VQa = \VQb} || 
\fpcompare{\VQa = \VQc} ||
\fpcompare{\VQa = \VQd} ||
\fpcompare{\VQa = \VQe} ||
%on compare VQb aux autres sauf VQa
\fpcompare{\VQb = \VQc} ||
\fpcompare{\VQb = \VQd} ||
\fpcompare{\VQb = \VQd} ||
%on compare VQc aux autres sauf VQa, VQb
\fpcompare{\VQc = \VQd} ||
\fpcompare{\VQc = \VQe} ||
%on compare VQd aux autres sauf VQa, VQb, VQc
\fpcompare{\VQd = \VQe}
}
 {\relax}%on ne fait rien donc sortie =0
 {\setcounter{sortie}{1}}
}%%%whiledo

\begin{questionmult}{valeurs}    
Quelle est la bonne valeur ?
  \begin{reponses}
    \bonne{\VQa}
    \mauvaise{\VQb}
    \bonne{\VQc}
     \mauvaise{\VQd}
    \bonne{\VQe}
  \end{reponses}
\end{questionmult}

}   

\end{document}
