A = <INPUT   Type=TEXT   Name=EditA   Value="3"   > &nbsp; &nbsp;

B = <INPUT   Type=TEXT   Name=EditB   Value="4"   ><BR><BR>

Resultat <INPUT   Type=TEXT   Name=EditResult   ><BR><BR>

<!-----  +  -  *  /  ----->

<INPUT   Type=BUTTON   Value=" A + B "
   OnClick="VBSCRIPT:EditResult.Value=CDbl(EditA.Value)+CDbl(EditB.Value)"
   > &nbsp;

<INPUT   Type=BUTTON   Value=" A - B "
   OnClick="VBSCRIPT:EditResult.Value=CDbl(EditA.Value)-CDbl(EditB.Value)"
   > &nbsp;

<INPUT   Type=BUTTON   Value=" A * B "
   OnClick="VBSCRIPT:EditResult.Value=CDbl(EditA.Value)*CDbl(EditB.Value)"
   > &nbsp;

<INPUT   Type=BUTTON   Value=" A / B "
   OnClick="VBSCRIPT:EditResult.Value=CDbl(EditA.Value)/CDbl(EditB.Value)"
   > &nbsp;

<INPUT   Type=BUTTON   Value="Moyenne"
   OnClick="VBSCRIPT:EditResult.Value=(CDbl(EditA.Value)+CDbl(EditB.Value))/2"
   ><BR><BR>

<!----- Minimum , Maximum ----->

<INPUT   Type=BUTTON   Value="Minimum"
   OnClick="VBSCRIPT:IF CDbl(EditA.Value) <= CDbl(EditB.Value) THEN
                        EditResult.Value = EditA.Value
                     ELSE
                        EditResult.Value = EditB.Value
                     END IF"
   > &nbsp;

<INPUT   Type=BUTTON   Value="Maximum"
   OnClick="VBSCRIPT:IF CDbl(EditA.Value) >= CDbl(EditB.Value) THEN
                        EditResult.Value = EditA.Value
                     ELSE
                        EditResult.Value = EditB.Value
                     END IF"
   ><BR><BR>

<!----- Ordonner , OrdreInverse ----->

<INPUT   Type=BUTTON   Value="Ordonner"
   OnClick="VBSCRIPT:DIM  UU
                     IF CDbl(EditA.Value) > CDbl(EditB.Value) THEN
                        UU          = EditA.Value
                        EditA.Value = EditB.Value
                        EditB.Value = UU
                     END IF"
   > &nbsp;

<INPUT   Type=BUTTON   Value="Ordre Inverse"
   OnClick="VBSCRIPT:DIM  UU
                     IF CDbl(EditA.Value) < CDbl(EditB.Value) THEN
                        UU          = EditA.Value
                        EditA.Value = EditB.Value
                        EditB.Value = UU
                     END IF"
   >