excel vba 自动在a列生成20道100内的加减法，如果是减法，被减数为两位数，个位数小于减数

在Excel VBA中创建这样的自动计算功能，你可以编写一段简单的宏脚本来完成。以下是步骤和示例代码：

1. 打开VBA编辑器（按Alt + F11键进入），然后选择"插入" -> "模块"，在新的模块窗口中开始编写代码。

2. 首先定义一个函数，用于随机生成题目和计算结果：

Function GenerateProblem() As String
    Dim num1 As Integer, num2 As Integer, operator As String, result As String
    
    ' 生成两个0-99之间的随机数
    num1 = Int((99 - 10) * Rnd + 10)
    num2 = Int(9 * Rnd) + 10 ' 为了保证减数是个位数小于被减数，生成10到90的数

    ' 随机选择加法或减法运算符
    If Int(Rnd * 2) = 0 Then ' 50%的概率选加法
        operator = "+"
        result = num1 + num2
    Else ' 否则是减法
        operator = "-"
        ' 检查是否满足条件：被减数大于减数
        Do While num1 <= num2
            num2 = Int(9 * Rnd) + 10
        Loop
        result = num1 - num2
    End If
    
    GenerateProblem = num1 & " " & operator & " " & num2 & " = " & result
End Function

3. 然后在A列循环调用这个函数生成20道题目，可以使用`For`循环：

Sub AutoGenerateProblems()
    Dim i As Long
    For i = 1 To 20
        Range("A" & i).Value = GenerateProblem
    Next i
End Sub

4. 运行`AutoGenerateProblems`宏即可看到A列自动生成了20道题目。