女兒老師要求家長每天按圖中所示出題，媳婦将這個任務交給我，為了偷懶，用Excel VBA寫了個小程序，算是開始入門Excel VBA吧！

程序如下：

Sub 生成()

Dim a, b, c, d, e As Integer

For m = 1 To 30

t = 1

While t <= 10

n = 10 * (m - 1) t

a = Int((99 - 10 1) * Rnd 10) '生成10到100之間任意數

b = Int((99 - 10 1) * Rnd 10) '生成10到100之間任意數

e = Int((99 - 10 1) * Rnd 10) '生成10到100之間任意數

c = Int((2 - 1 1) * Rnd 1) '生成1到2之間任意數

d = Int((2 - 1 1) * Rnd 1) '生成1到2之間任意數

sum_1 = a (-1) ^ c * b

sum_2 = sum_1 (-1) ^ d * e

If sum_1 > 0 And sum_1 < 100 And sum_2 > 0 And sum_2 < 100 Then

Range("A" & n) = a

If (-1) ^ c = -1 Then

Range("B" & n) = "-"

Else: Range("B" & n) = " "

End If

Range("C" & n) = b

Range("D" & n) = "="

t = t 1

End If

Wend

t = 1

While t <= 5

n = 10 * (m - 1) t * 2 - 1

a = Int((99 - 10 1) * Rnd 10) '生成10到100之間任意數

b = Int((99 - 10 1) * Rnd 10) '生成10到100之間任意數

e = Int((99 - 10 1) * Rnd 10) '生成10到100之間任意數

c = Int((2 - 1 1) * Rnd 1) '生成1到2之間任意數

d = Int((2 - 1 1) * Rnd 1) '生成1到2之間任意數

sum_1 = a (-1) ^ c * b

sum_2 = sum_1 (-1) ^ d * e

If sum_1 > 0 And sum_1 < 100 And sum_2 > 0 And sum_2 < 100 Then

Range("G" & n) = a

If (-1) ^ c = -1 Then

Range("H" & n) = "-"

Else: Range("H" & n) = " "

End If

Range("I" & n) = b

If (-1) ^ d = -1 Then

Range("J" & n) = "-"

Else: Range("J" & n) = " "

End If

Range("K" & n) = e

Range("L" & n) = "="

t = t 1

End If

Wend

Next m

Cells.HorizontalAlignment = xlCenter

Cells.VerticalAlignment = xlTop

End Sub

成品如下：

百度盤提取Excel文件

https:///s/11lP3alZMJVcOAfCwNRYHnQ

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!