VBA随机取数在Excel中的应用---10以内加法出题及阅卷

     小学生加减乘除的计算，只要不是应用题，完全可以用VBA随机取数解决，甚至连阅卷都可以用VBA操作。现在写一个最简单的，10以内的加法。

用到两个关键点：随机取数Int(0 + 11 * Rnd())和字典去重（Scripting.Dictionary）

先创建三个按钮：

直接上代码：

Sub 按钮1_Click()

  Test

End Sub

Function Test()          '出题

  Dim Math1, Math2, i, j, m As Integer

  Dim arr() As Variant

  Dim MathStr As String

  Dim Rept As Boolean

  Sheets("数学考试").Cells(1, 1) = "计算题"