如何用excel制作模拟考试

点击评分按钮的相应代百码度如下：
------------------------------------
Private Sub CommandButton2_Click()
Dim arr(1 To 10) As Integer

arr(1) = 2
arr(2) = 3
arr(3) = 4
arr(4) = 5
arr(5) = 6
arr(6) = 7
arr(7) = 8
arr(8) = 9
arr(9) = 10
arr(10) = 11

For i = 1 To 10
If Cells(i, 2) <> arr(i) Then
Cells(i, 2).Font.ColorIndex = 3
End If
Next

End Sub
---------------------------------
注：1.arr用来初始化答案的，前面吧正确问的答案先赋值给ARR
2.Cells(i, 2)，是指答第i行第回2列即B列，根据情况更改。

祝你成功答！

这是个经典模拟考试系统，希望对你有所帮助！HEYANG BOY

您好！您是有题库想抄做成模拟答题的方式来考试吗？
我知道有一款软件，支持导入题库并能支持模拟考试和练习的软件，手机下载“试题通”APP，电脑上也可以使用官网进入答题。试题通还是一款导入型袭的题库软件，支持导入自己的题库，现目前仅支持Word和Excel的题库文档，上传导入成功后，就可以在手机上或者电脑上答题练习。试题通的答题模式多样化，支持顺序、乱序练习、随机模拟考试、自定义组卷考试、一键发zd起扫码答题考试等。

公式没有问题，可能是你输入错误。

本文标签：excel测试题及答案(2)excel制作测试题(1)