使用VBA批量生成需求格式的数学题

雷沛qaz

数学题类型：

a+b=()+d  
其中（）是随机的，也可以a位置，也可以在b位置，也可以在d位置
两边的加号也是随机的比如两边都是+，或者两边都是-，或者左边+右边-，或者左边-右边+
以上，可以实现吗，谢谢大神的付出

雷沛qaz

qline302

有意思，abcd有数值位数范围吗？

gwjkkkkk

没看懂....

雷沛qaz

qline302 发表于 2024-1-20 12:48
有意思，abcd有数值位数范围吗？

小学题，最好单个数值不超过30

雷沛qaz

gwjkkkkk 发表于 2024-1-20 12:58
没看懂....

结果大概如下：
4+8=（）+5
8-2=3+（）
4+（）=10-3
随机生成这样的题库

雷沛qaz

qline302

练习一下，参考调整后使用。

micch

瞎写一个

1. Sub Main()
   
2.     Dim ar(1 To 100, 1 To 3)
   
3.    
   
4.     For i = 1 To UBound(ar)
   
5.     For j = 1 To UBound(ar, 2)
   
6.         ar(i, j) = GetABC
   
7.     Next
   
8.     Next
   
9.     Range("b2").Resize(100, 3).Value = ar
   
10. End Sub
    
11. Function GetABC()
    
12.     Randomize
    
13.     Dim a%, b%, c%, d%
    
14.     Const n As Long = 29
    
15.     a = Rnd * n + 1
    
16.     b = Rnd * n + 1
    
17.     If a + b > n Then
    
18.         c = a + b - n
    
19.         c = Rnd * (n - c) + c
    
20.     Else
    
21.         c = Rnd * n + 1
    
22.     End If
    
23.     d = Rnd * 3 + 1
    
24.     Select Case d
    
25.     Case 1: GetABC = "( )+" & c & "=" & b & "+" & a
    
26.     Case 2: GetABC = c & "+( )=" & b & "+" & a
    
27.     Case 3: GetABC = a & "+" & b & "=( )+" & c
    
28.     Case 4: GetABC = a & "+" & b & "=" & c & "+( )"
    
29.     End Select
    
30. End Function

复制代码

gwjkkkkk

小学题，括号内的结果应该不能是负数吧