女儿的连加练习作业，快把我搞死了，只能在这里求助

ww111222

女儿 上小学一年级，

  老师要求  星期六星期天， 在家里 练习   连加运算，  和值不超过 100，

      让家长在家里自己出题进行练习，完了上传微信。 上星期还有耐心，现在是真心不行了。


   我想用VBA 来实现，


   比如说，    4连加 运算，   自动生成    4个随机数， 和值 不超过100就行。


  哪位大神给指点一下？


   谢谢啦。

一把小刀闯天下

Option Explicit

Const NUM = 5, CNT = 30, SUM = 100

Sub test()
  Dim i, j, m, n, t
  ReDim arr(1 To CNT, 1 To 1)
  Randomize
  For i = 1 To UBound(arr, 1)
    t = vbNullString: n = 0
    For j = 1 To NUM
      m = Int(Rnd * SUM / 2) + 1
      t = t & "+" & m
      n = n + m
      If n > SUM Then i = i - 1: Exit For
    Next
    If j = NUM + 1 Then arr(i, 1) = Mid(t, 2) & "="
  Next
  With [a:a]
    .ClearContents
    .Resize(CNT) = arr
  End With
End Sub

未忘初心

1. Sub Main()
   
2.     'Date:2019/3/10 二月初四 Sunday
   
3.     Dim arr2(1 To 10 ^ 5, 1 To 4)
   
4.     For j = 1 To 2000
   
5.         k = 99
   
6.         For i = 3 To 0 Step -1
   
7.             s = Random(1, k - i - Random(Random(1, k - 4 - 1), k - 4))
   
8.             arr2(j, 4 - i) = s
   
9.             k = k - s
   
10.         Next
    
11.     Next
    
12.     Range("A1").Resize(2000, 4) = arr2
    
13. End Sub
    
14. Function Random(min, max)
    
15.     Randomize
    
16.     If min >= max Then
    
17.         Random = Int((min - max + 1) * Rnd + max)
    
18.     Else
    
19.         Random = Int((max - min + 1) * Rnd + min)
    
20.     End If
    
21. End Function

复制代码

zopey

老师给家长布置作业，不合理。

micch

A列算式，D列答案

1. Dim ar(99, 3), a(3) As String, i%
   
2. Sub test()
   
3.     For i = 0 To 99
   
4.         Call add
   
5.     Next
   
6.     [a1:d100] = ar
   
7.     [d1:d100].Font.Color = vbWhite
   
8. End Sub
   
9. Function add()
   
10.     s = 0
    
11.     Randomize
    
12.     For k = 0 To 3: a(k) = Int(Rnd() * 66) + 1: s = s + a(k): Next
    
13.     If s > 99 Then
    
14.         Call add
    
15.     Else
    
16.         ar(i, 0) = Join(a, "+") & " ="
    
17.         ar(i, 3) = "答案:" & s
    
18.     End If
    
19. End Function

复制代码

ww111222

micch 发表于 2019-3-10 17:46
A列算式，D列答案

谢谢指点，

让我 学习了。