RUN the following cell to define the functions for the quiz.

Clear[f, ff, fun, x, nfunct, e, sin, cos, arctan, arcsin, ln, a, 
        info, month, day, year, t1, t2, t3, a, ay, bee, funlist];
ay  =  Random[Integer, {1, 7}];
bee  =  Random[Integer, {1, 9}];
f[1, x_]  =  Sqrt[x];
f[2, x_]  =  x^(-1);
f[3, x_]  =  x^bee;
f[4, x_]  =  e^x;
f[5, x_]  =  ay^x;
f[6, x_]  =  sin[x];
f[7, x_]  =  cos[x];
a[1, x_]  =  arcsin[x];
a[2, x_]  =  arctan[x];
f[8, x_]  =  a[Random[Integer, {1, 2}], x];
f[9, x_]  =  ln[x];
\(\(nfunct\  = \ 9;\)
\)
funlist = {0, 0, 0, 0, 0, 0, 0, 0, 0};
\(\(Do[

        newlist = 
          Complement[{1, 2, 3, 4, 5, 6, 7, 8, 9}, 
            funlist]; 
\(funlist[\([i]\)]\  = 
            newlist[\([Random[Integer, {1, Length[newlist]}]]\)];\)
, {i, 1, 
          9}];\)
\)
Clear[fun, x];
Do[fun[i, x_]  =  f[funlist[[i]], x], {i, 1, 9}];
Clear[ff, x];
ff[1, x_]  =  fun[1, fun[2, x]];
ff[2, x_]  =  fun[3, fun[4, x]];
ff[3, x_]  =  fun[5, fun[6, x]];
ff[4, x_]  =  fun[7, fun[8, x]];
ff[5, x_]  =  fun[9, fun[1, x]];
ff[6, x_]  =  fun[2, x]*fun[4, x];
ff[7, x_]  =  fun[3, x]/fun[5, x];
ff[8, x_]  =  
        Random[Integer, {-4, 4}]/2*fun[7, x] + 
          Random[Integer, {-9, 9}]*fun[9, x];
\(\(ff[9, x_]\  = \ fun[8, fun[1, fun[6, x]]];\)
\)
month  =  Date[ ][[2]];
day  =  Date[ ][[3]];
year  =  Date[ ][[1]] - 2000;
t1  =  Date[ ][[4]];
t2  =  Date[ ][[5]];
\(\(t3\  = \ \(Date[\ ]\)[\([6]\)];\)
\)

RUN the following cell to generate the quiz.

If you want to print out the quiz on the printer, highlight the ouput cells
by clicking on the cell brackets at the right, then go to the File menu and
pick "Print Selection".

Print[" "];
Print["PRACTICE TEST: Derivative \
Formulas"];
Print["  (", month, "/", day, "/", year, ", ", 
        t1, ":", t2, ":", t3, ")"];Do[Print[" "];
Print[i,".  (d/dx)\!\(\*
StyleBox[\"(\",\nFontSize->24]\)",ff[i, x],"\!\(\*
StyleBox[\")\",\nFontSize->24]\)"];
Print[" "]
,{i, 1, 9}];
Print[" "];

RUN the following cell to generate the answers to the quiz.

Clear[i];
e  =  E;
ln[x_] = Log[x];
sin[x_] = Sin[x];
cos[x_] = Cos[x];
arctan[x_] = ArcTan[x];
arcsin[x_] =  ArcSin[x];
Print[" "];
Print["ANSWERS:"];
Print["  (", month, "/", day, "/", year, ", ", 
        t1, ":", t2, ":", t3, ")"];
Print[" "];
Do[Print[i,".  (d/dx)\!\(\*
StyleBox[\"(\",\nFontSize->36]\)",ff[i, x],"\!\(\*
StyleBox[\")\",\nFontSize->36]\)"," = ",D[ff[i, x], x]];
,{i, 1, 9}];
Print[" "];
Print["Note:"];
Print["  Mathematica's ``E'' means ``e''"];
Print["  Mathematica's ``Log'' means ``ln''"];