*The input numbers are assigned to the variables nV, nL, nZ, nD*)
Clear[nV, nL, nZ, nD];
(*set default values*)
{nV, nL, nZ, nD} = {8, 12, 600, 10};
TableForm[{
{PopupMenu[Dynamic[nV], Range[2, 20, 2]]},
{PopupMenu[Dynamic[nL], Range[100]]},
{PopupMenu[Dynamic[nZ], Range[3000]]},
{PopupMenu[Dynamic[nD], Range[100]]}},
TableHeadings ->
{{"(a) planned total number of positive and negative test voltages
for each device",
"(b) planned number of test locations for each device",
"(c) planned number of zaps for each device",
"(d) planned number of devices to be tested"}, None}]

cdf[notebook_, file_] := Block[{},
  SetOptions[notebook, PrivateNotebookOptions -> {"ShowProductBranding" -> False}];
  CDFDeploy[file, notebook, "Target" -> "PlayerPro", Deployed -> False]]

Notebooks[]
(* {NotebookObject["Deploy CDF.nb"], NotebookObject["Untitled-1"], NotebookObject["Messages"]} *)

%[[2]] ~cdf~ "myfile.cdf"