文档介绍：打开Excel 2010，建立“模拟考试系统-出题测试版”。打开此工作簿，建立“单项选择题”工作表(如图1)，在A2输入公式=ROW()-1&"."以自动生成序号，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动向下填作表中要输入准考证号的D2单元格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT("考号")〔如图12〕。切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”〔如图13〕。
图12
图13
在F2单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单! $B:$C,2,FALSE))，在D2单元格输入准考证号后会自动显示考生。〔如图14〕
图14
右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图15，。
Sub 出题()
If Range("D2").Value = 0 Then
提示 = MsgBox("请先输入准考证号")
GoTo 重来
End If
'如果D2为空则弹出提示要求输入准考证号并直接跳到后面的"重来:"处。
Sheets("单项选择题").Range("A:D").Sort Key1:=Sheets("单项选择题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("多项选择题").Range("A:D").Sort Key1:=Sheets("多项选择题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
'这三行分别是对单项选择、多项选择和判断题工作表的A:D区域按D列随机数升序排序。
'对B列设置最适合行高，以完整显示题目。
Range("D5").Select
'定位到D5以便输入答案
("出题按钮").Visible = False
'隐藏出题按钮以防重复选题
("评分按钮").Visible = True
'显示评分按钮
重来:
End Sub
图15
试卷中的题目总是显示各题库最前面的N题，而在此对各题库按随机数进行随机排序后最前面的N题自然是随机的，也就相当于是随机抽题了。
新建 “成绩记录”工作表(如图16)，在A2输入公式=NOW()，并选中A列右击从“设置单元格格式”中设置为日期格式以显示当前时间。在B2输入公式=试卷!D2和C2输入公式=试卷!F2以显示相应数据。D2输入公式=SUM(E2:G2)对后面三个得分进行合计，E2、F2、G2则分别输入公式=SUM(试卷!E5:E34)、=SUM(试卷!E36:E75)、=SUM(试卷!E77:E106)分别对相应题型得分进行合计。
图16
右击“评分”按钮，选择“指定宏”，输入宏名“评分”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图17:
Sub 评分()
Sheets("成绩记录").Rows("3:3").Insert Shift:=xlDown
'在成绩记录工作表第3行前插入一行
Sheets("成绩记录").Rows("2:2").Copy
'复制成绩记录工作表第2行
Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues
'以数值方式粘贴到成绩记录工作表A3
得分 = MsgBox("最终得分" & Range("成绩记录!D2").Value & " 其中:单项选择题" & Range("成绩记录!E2").Value & "、多项选择题" & Range("成绩记录!F2").V