這個問題用EXCEL函式與VBA就能解決。

一、最終效果

1、實現自動出題，滿足100以內三個數，且得數不超過100.

2、實現自動閱卷，給出分數，並給出正確答案。

如圖：

如圖：

三 模板思路

準備自己的資料題庫，用RAND函式產生隨機值，就可以實現以上功能。

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

大家好，雷哥透過函式randbetween函式和concat函式來實現題主需求。一起來學習看看把。

01-構造出這3個數字

第一個數是正數，因此輸入函式 =randbetween(0,100)

解釋：表示數字為0到100的隨機數字。

B列和C列中，分別輸入函式 =randbetween(-100,100)

表示B列和C列的數字都顯示為-100到100的隨機數字02- 正數新增 +

使用if函式給B列和C列的數字新增 +

=IF(B1>0,"+"&B1,B1)

03-使用函式concat生成公式

如圖所示，使用公式 concat函式，

=concat(A1,F1,G1,"=")，來生成公式。具體見下圖。

大家來看看最終效果把，如果需要更換題庫，只需要雙擊下即可哦。