excel数学(excel数学计算公式)

怎么用excel出数学题？

Sub 出题()

k = 1

For i = 1 To 20

Dim a, b, c, d, e, f

Do

a = WorksheetFunction.RandBetween(1, 100)

b = WorksheetFunction.RandBetween(-100, 100)

c = WorksheetFunction.RandBetween(-100, 100)

If b > 0 Then b = "+" & b

If c > 0 Then c = "+" & c

d = a & b

e = a & b & c

f = Evaluate(d) < 0 Or Evaluate(d) > 100 _

Or Evaluate(e) < 0 Or Evaluate(e) > 100

Loop While f

Cells(k, "N") = e & "="

k = k + 1

Next

End Sub